Télécharger adjupo.eso

Retour à la liste

Numérotation des lignes :

adjupo
  1. C ADJUPO SOURCE PV 20/03/24 21:15:18 10554
  2. SUBROUTINE ADJUPO(PT,IPT)
  3. C--------------------------------------------------------------
  4. C Stockage d'un point a partir d'un vecteur
  5. C
  6. C Entree PT Tableau x,y,z
  7. C Sortie IPT Pointeur sur un objet de type point
  8. C
  9. C Appele par: CONNE1
  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.  
  18. -INC PPARAM
  19. -INC CCOPTIO
  20. -INC SMCOORD
  21. -INC CCGEOME
  22. C
  23. SEGACT MCOORD*MOD
  24. NBPTS=NBPTS+1
  25. SEGADJ MCOORD
  26. C
  27. IREF=NBPTS*(IDIM+1)-IDIM
  28. XCOOR(IREF) =PT(1)
  29. XCOOR(IREF+1)=PT(2)
  30. IF(IDIM.GE.3)THEN
  31. XCOOR(IREF+2)=PT(3)
  32. XCOOR(IREF+3)=DENSIT
  33. ELSE
  34. XCOOR(IREF+2)=DENSIT
  35. ENDIF
  36. C
  37. IPT=NBPTS
  38. C
  39. RETURN
  40. END
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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