Télécharger la plaquette Cast3M


fr en

Télécharger d2elt3.eso

Retour à la liste

Numérotation des lignes : 

d2elt3

  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11.       REAL*8 XE1(3,NBNN),XE2(3,NBNN)
  12. *
  13.       NDIM=IDIM
  14.       DIST=0.
  15.       DO 10 I=1,NDIM
  16.         XG1=0.
  17.         XG2=0.
  18.         DO 11 J=1,NBNN
  19.           XG1=XG1+XE1(I,J)
  20.           XG2=XG2+XE2(I,J)
  21.    11   CONTINUE
  22.         XG1=XG1/3.
  23.         XG2=XG2/3.
  24.         DIST=DIST+(XG1-XG2)**2
  25.    10 CONTINUE
  26.       DIST=SQRT(DIST)
  27.       RETURN
  28.       END
  29.  
  30.  
  31.  

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