C COCHPT    SOURCE    CHAT      05/01/12    22:12:30     5004           
      SUBROUTINE COCHPT(NC,MCHP)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC SMCHPOI
-INC SMELEME
      CHARACTER*8 TYPE

      NBNN=1
      NBELEM=1
      NBSOUS=0
      NBREF=0
      SEGINI MELEME
      ITYPEL=1
      NUM(1,1)=1
      SEGDES MELEME

      CALL CRCHPT(TYPE,MELEME,NC,MCHP)
      RETURN
      END