C CRELEC SOURCE MAUGIS 07/10/26 21:15:16 5812 C CONVERTIT UN ENTIER EN LISTENTI LE CONTENANT C SUBROUTINE CRELEC(IVAL) IMPLICIT INTEGER(I-N) -INC SMLENTI JG=1 SEGINI, MLENTI LECT(1)=IVAL IVAL=MLENTI RETURN END