Sources Esope | Cast3M

maxlt3
C MAXLT3    SOURCE    CHAT      05/01/13    01:37:09     5004
      SUBROUTINE MAXLT3(NBNN,XE,DARET)
CCCCC
C     CALCUL DE LA LONGUEUR DE LA PLUS
C     LONGUE ARETE D'UN TRI3
CCCCC
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
      REAL*8 XE(3,NBNN)
*
      NDIM=IDIM
      DARET=0.
      D1=0.
      D2=0.
      D3=0.
      DO 10 I=1,NDIM
        D1=D1+(XE(I,3)-XE(I,2))**2
        D2=D2+(XE(I,1)-XE(I,3))**2
        D3=D3+(XE(I,2)-XE(I,1))**2
   10 CONTINUE
      DARET=MAX(DARET,D1)
      DARET=MAX(DARET,D2)
      DARET=MAX(DARET,D3)
      DARET=SQRT(DARET)
      RETURN
      END