Esope source files

   1 : C CRLCHP    SOURCE    MAUGIS    07/10/26    21:15:19     5812           
   2 : C     CONVERTIT UN CHPOINT EN LISTCHPO LE CONTENANT 
   3 : C
   4 :       SUBROUTINE CRLCHP (IVAL)
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC SMLCHPO
   7 : 
   8 :       N1=1
   9 :       SEGINI, MLCHPO
  10 :       ICHPOI(1)=IVAL
  11 :       IVAL=MLCHPO
  12 :       RETURN
  13 :       END
  14 : 
  15 : 
  16 : 
  17 :