Esope source files

   1 : C COCHPT    SOURCE    CHAT      05/01/12    22:12:30     5004           
   2 :       SUBROUTINE COCHPT(NC,MCHP)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : -INC SMCHPOI
   6 : -INC SMELEME
   7 :       CHARACTER*8 TYPE
   8 : 
   9 :       NBNN=1
  10 :       NBELEM=1
  11 :       NBSOUS=0
  12 :       NBREF=0
  13 :       SEGINI MELEME
  14 :       ITYPEL=1
  15 :       NUM(1,1)=1
  16 :       SEGDES MELEME
  17 : 
  17 :       CALL CRCHPT(TYPE,MELEME,NC,MCHP)
  18 :       RETURN
  19 :       END
  20 :