C KRCHPT    SOURCE    CHAT      05/01/13    01:05:56     5004           
      SUBROUTINE KRCHPT(TYPI,IGEOM,NC,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 CCOPTIO
-INC SMCHPOI
-INC SMELEME
      POINTEUR IGEOM.MELEME
      CHARACTER*(*) TYPI
      CHARACTER*8 TYPE
      CHARACTER*4 MOT(NC)

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