C ADJUPO    SOURCE    CHAT      07/10/29    21:15:08     5940           
      SUBROUTINE ADJUPO(PT,IPT)
C--------------------------------------------------------------
C     Stockage d'un point a partir d'un vecteur
C
C     Entree  PT   Tableau x,y,z
C     Sortie  IPT  Pointeur sur un objet de type point
C
C     Appele par: CONNE1
C
C     PP 22/10/92
C--------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION PT(3)
C
-INC CCOPTIO
-INC SMCOORD
-INC CCGEOME
C
      NBPTS=XCOOR(/1)/(IDIM+1)+1
      SEGADJ MCOORD
C
      IREF=NBPTS*(IDIM+1)-IDIM
      XCOOR(IREF)  =PT(1)
      XCOOR(IREF+1)=PT(2)
      IF(IDIM.GE.3)THEN
        XCOOR(IREF+2)=PT(3)
        XCOOR(IREF+3)=DENSIT
      ELSE
        XCOOR(IREF+2)=DENSIT
      ENDIF
C
      IPT=NBPTS
C
      RETURN
      END