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