Esope source files

   1 : C CREPRO    SOURCE    MAUGIS    07/10/26    21:15:17     5812           
   2 : C     CONVERTIT UN FLOTTANT EN LISTREEL LE CONTENANT 
   3 : C
   4 :       SUBROUTINE CREPRO(XFLOT,MLREEL)
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC SMLREEL
   7 :       JG=1
   8 :       SEGINI, MLREEL
   9 :       PROG(1)=XFLOT
  10 :       RETURN
  11 :       END
  12 : 
  13 : 
  14 : 
  15 : 
  16 : 
  17 : 
  18 :