Télécharger cnorm.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  8. -INC SMCOORD
  9. REAL*8 XNA
  10. CALL LIROBJ('POINT ',IP,1,IRETOU)
  11. IF (IERR.NE.0) RETURN
  12. SEGACT MCOORD
  13. IREF=(IP-1)*(IDIM+1)
  14. XNO=0.D0
  15. DO 1 I=1,IDIM
  16. XNO=XNO+XCOOR(IREF+I)**2
  17. 1 CONTINUE
  18. XNA=SQRT(XNO)
  19. CALL ECRREE(XNA)
  20. RETURN
  21. END
  22.  
  23.  
  24.  

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