Télécharger la plaquette Cast3M


fr en

Télécharger excoo1.eso

Retour à la liste

Numérotation des lignes : 

excoo1

  1. C EXCOO1    SOURCE    CHAT      05/01/12    23:50:02     5004
  2.  
  3. ************************************************************************
  4. *                             E X C O O 1
  5. *                             -----------
  6. *
  7. * FONCTION:
  8. * ---------
  9. *     DONNER LES COORDONNEES ET LA DENSITE D'UN POINT.
  10. *
  11. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  12. * -----------
  13. *     NUMPT   (E)  NUMERO DU POINT CONSIDERE.
  14. *     X,Y,Z   (S)  COORDONNEES DU POINT. "Z" EST MIS A "0" EN 2D (C'EST
  15. *                  PRATIQUE POUR FAIRE DES CALCULS DE DISTANCES SANS
  16. *                  TESTER LA DIMENSION DE L'ESPACE GEOMETRIQUE).
  17. *     D       (S)  DENSITE ASSOCIEE AU POINT.
  18. ************************************************************************
  19.  
  20.       SUBROUTINE EXCOO1 (NUMPT, X,Y,Z,D)
  21.  
  22.       IMPLICIT INTEGER(I-N)
  23.       IMPLICIT REAL*8 (A-H,O-Z)
  24.  
  25. -INC PPARAM
  26. -INC CCOPTIO
  27. -INC SMCOORD
  28.  
  29.       SEGACT,MCOORD
  30.       IDIMP1 = IDIM + 1
  31.       ICOEF = (NUMPT-1) * IDIMP1
  32.  
  33.       IF (IDIM .EQ. 3) THEN
  34.         X = XCOOR(ICOEF + 1)
  35.         Y = XCOOR(ICOEF + 2)
  36.         Z = XCOOR(ICOEF + 3)
  37.       ELSE IF (IDIM .EQ. 2) THEN
  38.         X = XCOOR(ICOEF + 1)
  39.         Y = XCOOR(ICOEF + 2)
  40.         Z = 0.D0
  41.       ELSE IF (IDIM.EQ.1) THEN
  42.         X = XCOOR(ICOEF + 1)
  43.         Y = 0.D0
  44.         Z = 0.D0
  45.       END IF
  46.       D = XCOOR(NUMPT*IDIMP1)
  47.  
  48.       RETURN
  49.       END
  50.  
  51.  
  52.  

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