Esope source files

   1 : C ADJUPO    SOURCE    CHAT      07/10/29    21:15:08     5940           
   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 :