Télécharger adjupo.eso

Retour à la liste

Numérotation des lignes :

  1. C ADJUPO SOURCE BP208322 16/11/18 21:15:06 9177
  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. -INC CCOPTIO
  18. -INC SMCOORD
  19. -INC CCGEOME
  20. C
  21. NBPTS=XCOOR(/1)/(IDIM+1)+1
  22. SEGADJ MCOORD
  23. C
  24. IREF=NBPTS*(IDIM+1)-IDIM
  25. XCOOR(IREF) =PT(1)
  26. XCOOR(IREF+1)=PT(2)
  27. IF(IDIM.GE.3)THEN
  28. XCOOR(IREF+2)=PT(3)
  29. XCOOR(IREF+3)=DENSIT
  30. ELSE
  31. XCOOR(IREF+2)=DENSIT
  32. ENDIF
  33. C
  34. IPT=NBPTS
  35. C
  36. RETURN
  37. END
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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