Télécharger normer.eso

Retour à la liste

Numérotation des lignes :

  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.  
  15.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales