Sources Esope | Cast3M

loadpo
C LOADPO    SOURCE    CHAT      05/01/13    01:24:37     5004
      SUBROUTINE LOADPO(IPT,PT)
C--------------------------------------------------------------
C     Chargement d'un point dans un vecteur
C
C     Entree  IPT  Pointeur sur un objet de type point
C     Sortie  PT   Tableau x,y,z
C
C     Appele par CONNE1 NLOVEP
C
C     PP 22/10/92
C--------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION PT(3)
C
 
-INC PPARAM
-INC CCOPTIO
-INC SMCOORD
C
      IF(IPT.EQ.0)THEN
        PT(1)=0.D0
        PT(2)=0.D0
        PT(3)=0.D0
      ELSE
        IREF=IPT*(IDIM+1)-IDIM
        PT(1)=XCOOR(IREF)
        PT(2)=XCOOR(IREF+1)
        PT(3)=0.D0
        IF(IDIM.GE.3)PT(3)=XCOOR(IREF+2)
      ENDIF
C
      RETURN
      END