Sources Esope | Cast3M

cnorm
C CNORM     SOURCE    PV        07/11/23    21:15:59     5978
C   CALCUL LA NORME D'UN VECTEUR
C
      SUBROUTINE CNORM
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (a-h,o-z)
 
-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
      REAL*8 XNA
      CALL LIROBJ('POINT   ',IP,1,IRETOU)
      IF (IERR.NE.0) RETURN
      SEGACT MCOORD
      IREF=(IP-1)*(IDIM+1)
      XNO=0.D0
      DO 1 I=1,IDIM
      XNO=XNO+XCOOR(IREF+I)**2
   1  CONTINUE
      XNA=SQRT(XNO)
      CALL ECRREE(XNA)
      RETURN
      END