Sources Esope | Cast3M

normer
C NORMER    SOURCE    CHAT      05/01/13    02:00:29     5004
      SUBROUTINE NORMER (VECT)
*
*     Fonction: normer un vecteur que l'on sait etre non nul.
*
      IMPLICIT INTEGER(I-N)
      REAL*8 VECT(3),XNORME
*
      XNORME=SQRT(VECT(1)**2+VECT(2)**2+VECT(3)**2)
      VECT(1)=VECT(1)/XNORME
      VECT(2)=VECT(2)/XNORME
      VECT(3)=VECT(3)/XNORME
      END