Sources Esope | Cast3M

crlchp
C CRLCHP    SOURCE    MAUGIS    07/10/26    21:15:19     5812
C     CONVERTIT UN CHPOINT EN LISTCHPO LE CONTENANT
C
      SUBROUTINE CRLCHP (IVAL)
      IMPLICIT INTEGER(I-N)
-INC SMLCHPO
 
      N1=1
      SEGINI, MLCHPO
      ICHPOI(1)=IVAL
      IVAL=MLCHPO
      RETURN
      END