Télécharger d2elt3.eso

Retour à la liste

Numérotation des lignes :

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

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