Esope source files

   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 :