C CREPO1    SOURCE    CB215821  23/01/25    21:15:08     11573          

C-----------------------------------------------------------------------
C                             C R E P O 1
C                             -----------
C
C  Fonction :
C  ----------
C    Creation d'un POINT (equivalent au sous-programme CREPOI sans
C    les lectures et ecritures). La densite du point cree est la
C    valeur courante (stockee dans CCOPTION).
C
C  Mode d'appel :
C  --------------
C    CALL CREPO1 (R1,R2,R3, IPOIN)
C
C  Parametres :   (E)=Entree  (S)=Sortie
C  ------------
C    R1      REEL DP   (E)  1ere coordonnee du point
C    R2      REEL DP   (E)  2e coordonnee du point (si IDIM=2 ou 3)
C    R3      REEL DP   (E)  3e coordonnee du point (si IDIM=3)
C    IPOIN   ENTIER    (S)  numero du point cree (dans SMCOORD)
C
C  Auteur, date de creation :
C  --------------------------
C    PASCAL MANIGOT     19 AVRIL 1985
C    10/2003 : Modifications pour traiter le cas IDIM=1
C
C  Langage : FORTRAN77 + ESOPE
C-----------------------------------------------------------------------

      SUBROUTINE CREPO1 (R1,R2,R3, IPOIN)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC CCGEOME

-INC PPARAM
-INC CCOPTIO
-INC SMCOORD

      IF ((IDIM.LT.1).OR.(IDIM.GT.3)) THEN
        CALL ERREUR (219)
        RETURN
      ENDIF

      idimp1=IDIM+1
      segact mcoord*mod
      NBPTS=nbpts+1
      SEGADJ MCOORD
      IPoin=(NBPTS-1)*idimp1
      XCOOR(IPoin+1)=R1
      IF (IDIM.GE.2) XCOOR(IPoin+2)=R2
      IF (IDIM.GE.3) XCOOR(IPoin+3)=R3
      XCOOR(IPoin+idimp1)=DENSIT
      IPOIN=NBPTS

      RETURN
      END