Télécharger norme.eso

Retour à la liste

Numérotation des lignes :

  1. C NORME SOURCE CHAT 05/01/13 02:00:25 5004
  2. SUBROUTINE NORME(ENT,VAL)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION ENT(3)
  6. C
  7. C-----------------------------------------------------
  8. C CALCUL DE LA NORME D UN VECTEUR
  9. C-----------------------------------------------------
  10. C
  11. VAL=SQRT(ENT(1)*ENT(1)+ENT(2)*ENT(2)+ENT(3)*ENT(3))
  12. RETURN
  13. END
  14.  
  15.  

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