C KRCHPT    SOURCE    GOUNAND   25/11/12    21:15:33     12399          
      SUBROUTINE KRCHPT(TYPI,IGEOM,NC,INATU,MCHPOI,MOT)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C*************************************************************************
C
C Ce SP cree un champoint type TRIO-EF
C
C*************************************************************************

-INC PPARAM
-INC CCOPTIO
-INC SMCHPOI
-INC SMCOORD
-INC SMELEME
      POINTEUR IGEOM.MELEME
      CHARACTER*(*) TYPI
      CHARACTER*8 TYPE
      CHARACTER*(*) MOT(NC)

      TYPE='        '
      TYPE=TYPI
      MCHPOI=0
      IF(IGEOM .LE. 0)THEN
         NAT=2
         NSOUPO=0
         SEGINI MCHPOI
         JATTRI(1)=INATU
         IFOPOI = IFOUR
         RETURN
      ENDIF
      SEGACT IGEOM
      IF(IGEOM.ITYPEL.NE.1)THEN
         WRITE(6,*)' Support geometrique incorrect '
         RETURN
      ENDIF
      N=IGEOM.NUM(/2)
      NSOUPO=1
      NAT=1
      SEGINI MCHPOI,MSOUPO,MPOVAL
      JATTRI(1)=INATU
      IFOPOI=IFOUR
      MTYPOI=TYPE
      MOCHDE='                                                  '
      IPCHP(1)=MSOUPO
      IGEOC=IGEOM
      IPOVAL=MPOVAL
         DO 1 I=1,NC
            NOCOMP(I)=MOT(I)
 1       CONTINUE
      RETURN
      END