C CREPRO    SOURCE    MAUGIS    07/10/26    21:15:17     5812           
C     CONVERTIT UN FLOTTANT EN LISTREEL LE CONTENANT 
C
      SUBROUTINE CREPRO(XFLOT,MLREEL)
      IMPLICIT INTEGER(I-N)
-INC SMLREEL
      JG=1
      SEGINI, MLREEL
      PROG(1)=XFLOT
      RETURN
      END