Télécharger la plaquette Cast3M


fr en

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