Esope source files

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