Télécharger dist9.eso

Retour à la liste

Numérotation des lignes :

  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.  
  35.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales