Télécharger loadpo.eso

Retour à la liste

Numérotation des lignes :

  1. C LOADPO SOURCE CHAT 05/01/13 01:24:37 5004
  2. SUBROUTINE LOADPO(IPT,PT)
  3. C--------------------------------------------------------------
  4. C Chargement d'un point dans un vecteur
  5. C
  6. C Entree IPT Pointeur sur un objet de type point
  7. C Sortie PT Tableau x,y,z
  8. C
  9. C Appele par CONNE1 NLOVEP
  10. C
  11. C PP 22/10/92
  12. C--------------------------------------------------------------
  13. IMPLICIT INTEGER(I-N)
  14. IMPLICIT REAL*8(A-H,O-Z)
  15. DIMENSION PT(3)
  16. C
  17. -INC CCOPTIO
  18. -INC SMCOORD
  19. C
  20. IF(IPT.EQ.0)THEN
  21. PT(1)=0.D0
  22. PT(2)=0.D0
  23. PT(3)=0.D0
  24. ELSE
  25. IREF=IPT*(IDIM+1)-IDIM
  26. PT(1)=XCOOR(IREF)
  27. PT(2)=XCOOR(IREF+1)
  28. PT(3)=0.D0
  29. IF(IDIM.GE.3)PT(3)=XCOOR(IREF+2)
  30. ENDIF
  31. C
  32. RETURN
  33. END
  34.  
  35.  

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