Esope source files

   1 : C TRJDIS    SOURCE    CHAT      05/01/13    03:49:32     5004           
   2 :       SUBROUTINE TRJDIS(XYZL,XCENT,DIST,NOEL,NDIM)
   3 : C   CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   4 : C
   5 : C    ON CALCULE LA PLUS GRANDE DISTANCE ENTRE UN ENSEMBLE DE POINTS
   6 : C    DONT LES COORDONNEES SONT DANS XYZL ET LE POINT XCENT
   7 : C
   8 : C
   9 : C    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  10 :       IMPLICIT INTEGER(I-N)
  11 :       IMPLICIT REAL*8 (A-H,O-Z)
  12 :       DIMENSION XYZL(NDIM,NOEL),XCENT(NDIM)
  13 : C
  14 :       DIST=0.D0
  15 :       DO 10 I=1,NOEL
  16 :       DIST2=0.D0
  17 :       DO 5 J=1,NDIM
  18 :       DIST2=DIST2+(XCENT(J)-XYZL(J,I))**2
  19 :    5  CONTINUE
  20 :       VINT=SQRT(DIST2)
  21 :       IF(VINT.GT.DIST)DIST=VINT
  22 :    10 CONTINUE
  23 :       RETURN  
  24 :       END
  25 :