Télécharger excoo1.eso

Retour à la liste

Numérotation des lignes :

  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 CCOPTIO
  26. -INC SMCOORD
  27.  
  28. SEGACT,MCOORD
  29. IDIMP1 = IDIM + 1
  30. ICOEF = (NUMPT-1) * IDIMP1
  31.  
  32. IF (IDIM .EQ. 3) THEN
  33. X = XCOOR(ICOEF + 1)
  34. Y = XCOOR(ICOEF + 2)
  35. Z = XCOOR(ICOEF + 3)
  36. ELSE IF (IDIM .EQ. 2) THEN
  37. X = XCOOR(ICOEF + 1)
  38. Y = XCOOR(ICOEF + 2)
  39. Z = 0.D0
  40. ELSE IF (IDIM.EQ.1) THEN
  41. X = XCOOR(ICOEF + 1)
  42. Y = 0.D0
  43. Z = 0.D0
  44. END IF
  45. D = XCOOR(NUMPT*IDIMP1)
  46.  
  47. RETURN
  48. END
  49.  
  50.  
  51.  

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