Esope source files

   1 : C DIST9     SOURCE    CHAT      05/01/12    22:51:20     5004           
   2 : C
   3 :       FUNCTION DIST9(ilent1,IT,IH,TP0,ZA0)
   4 : C
   5 : C    CALCUL DE LA DISTANCE EUCLIDIENNE DANS L'ESPACE (TP,ZA)
   6 : C
   7 : C    SOURCE MARTINEZ   08/07/1998
   8 : C
   9 : C
  10 : C
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8(A-H,O-Z)
  13 : C
  14 : -INC SMLENTI
  15 : -INC SMLREEL
  16 : C
  17 : C     
  18 :       mlent1 = ilent1
  19 :       segact mlent1
  20 :          mlenti = mlent1.lect(IH)
  21 :          SEGACT mlenti
  22 :             mlreel = lect(it)
  23 :             segact mlreel
  24 :             TPTAB = prog(2)
  25 :             ZATAB = prog(3)
  26 :             SEGDES mlreel, mlenti
  27 :          SEGDES mlent1
  28 : C
  29 :       DIST9=((TPTAB-TP0)**2.D0)+((ZATAB-ZA0)**2.D0)
  30 :       RETURN
  31 :       END
  32 : 
  33 :  
  34 :