Sources Esope | Cast3M

xnorve
C XNORVE    SOURCE    CHAT      05/01/13    04:14:44     5004
C
      FUNCTION XNORVE(V1,IDIMC)
C     ***************************************************************
C     NORME D'UN VECTEUR
C     ***************************************************************
      IMPLICIT INTEGER(I-N)
      REAL*8 XNORVE
      INTEGER IDIMC
      REAL*8    V1(*),XYZEPS
C
C      COMMON /CGEPSI/ XYZHUG,XYZMIN,XYZEPS
C      REAL*8  XYZHUG,XYZMIN,XYZEPS
C      EXTERNAL SCALVE
C      REAL*8     SCALVE
C
      XYZEPS=1.d-10
      XNORVE = 0.D0
      IF(IDIMC.LE.0) RETURN
       DO 700 JG=1,IDIMC
  700 XNORVE=XNORVE + V1(JG) * V1(JG)
C      XNORVE  = SCALVE(V1,V1,IDIMC)
      IF( XNORVE .LT. XYZEPS**2 )THEN
        XNORVE = 0.0D0
      ELSE
        XNORVE = SQRT( XNORVE )
      ENDIF
      END