Sources Esope | Cast3M

cochpt
C COCHPT    SOURCE    GOUNAND   25/11/12    21:15:06     12399          
      SUBROUTINE COCHPT(NC,INATU,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
      TYPE=' '
      CALL CRCHPT(TYPE,MELEME,NC,INATU,MCHP)
      RETURN
      END