Esope source files

   1 : C LIRFLO    SOURCE    PV        11/03/07    21:17:26     6885           
   2 :       SUBROUTINE LIRFLO(FLOT,ICODE,IRETOU)                                      
   3 : C                                                                               
   4 : C               CE SOUS PROGRAMME LIT UN FLOTTANT  SIMPLE PRECISION             
   5 : C                                                                               
   6 : C                                                                               
   7 :       IMPLICIT INTEGER(I-N)
   8 :       REAL*8 XFLOT                                                              
   8 :       CALL LIRREE(XFLOT,ICODE,IRETOU)                                           
   9 :       FLOT=XFLOT                                                                
  10 :       RETURN                                                                    
  11 :       END                                                                       
  12 :  
  13 :