Esope source files

   1 : C D2ELT3    SOURCE    CHAT      05/01/12    22:34:46     5004           
   2 :       SUBROUTINE D2ELT3(NBNN,XE1,XE2,DIST)
   3 : CCCCC
   4 : C     DETERMINE LA DISTANCE ENTRE 2 TRI3
   5 : CCCCC
   6 :       IMPLICIT INTEGER(I-N)
   7 :       IMPLICIT REAL*8(A-H,O-Z)
   8 : -INC CCOPTIO
   9 :       REAL*8 XE1(3,NBNN),XE2(3,NBNN)
  10 : *
  11 :       NDIM=IDIM
  12 :       DIST=0.
  13 :       DO 10 I=1,NDIM
  14 :         XG1=0.
  15 :         XG2=0.
  16 :         DO 11 J=1,NBNN
  17 :           XG1=XG1+XE1(I,J)
  18 :           XG2=XG2+XE2(I,J)
  19 :    11   CONTINUE
  20 :         XG1=XG1/3.
  21 :         XG2=XG2/3.
  22 :         DIST=DIST+(XG1-XG2)**2
  23 :    10 CONTINUE
  24 :       DIST=SQRT(DIST)
  25 :       RETURN
  26 :       END
  27 :  
  28 :