Esope source files

   1 : C MAXLT3    SOURCE    CHAT      05/01/13    01:37:09     5004           
   2 :       SUBROUTINE MAXLT3(NBNN,XE,DARET)
   3 : CCCCC
   4 : C     CALCUL DE LA LONGUEUR DE LA PLUS
   5 : C     LONGUE ARETE D'UN TRI3
   6 : CCCCC
   7 :       IMPLICIT INTEGER(I-N)
   8 :       IMPLICIT REAL*8(A-H,O-Z)
   9 : -INC CCOPTIO
  10 :       REAL*8 XE(3,NBNN)
  11 : *
  12 :       NDIM=IDIM
  13 :       DARET=0.
  14 :       D1=0.
  15 :       D2=0.
  16 :       D3=0.
  17 :       DO 10 I=1,NDIM
  18 :         D1=D1+(XE(I,3)-XE(I,2))**2
  19 :         D2=D2+(XE(I,1)-XE(I,3))**2
  20 :         D3=D3+(XE(I,2)-XE(I,1))**2
  21 :    10 CONTINUE
  22 :       DARET=MAX(DARET,D1)
  23 :       DARET=MAX(DARET,D2)
  24 :       DARET=MAX(DARET,D3)
  25 :       DARET=SQRT(DARET)
  26 :       RETURN
  27 :       END
  28 :  
  29 :