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