Télécharger cnorm.eso

Retour à la liste

Numérotation des lignes :

cnorm
  1. C CNORM SOURCE PV 07/11/23 21:15:59 5978
  2. C CALCUL LA NORME D'UN VECTEUR
  3. C
  4. SUBROUTINE CNORM
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8 (a-h,o-z)
  7.  
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. -INC SMCOORD
  11. REAL*8 XNA
  12. CALL LIROBJ('POINT ',IP,1,IRETOU)
  13. IF (IERR.NE.0) RETURN
  14. SEGACT MCOORD
  15. IREF=(IP-1)*(IDIM+1)
  16. XNO=0.D0
  17. DO 1 I=1,IDIM
  18. XNO=XNO+XCOOR(IREF+I)**2
  19. 1 CONTINUE
  20. XNA=SQRT(XNO)
  21. CALL ECRREE(XNA)
  22. RETURN
  23. END
  24.  
  25.  
  26.  

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