C LIRFLO    SOURCE    PV        11/03/07    21:17:26     6885           
      SUBROUTINE LIRFLO(FLOT,ICODE,IRETOU)                                      
C                                                                               
C               CE SOUS PROGRAMME LIT UN FLOTTANT  SIMPLE PRECISION             
C                                                                               
C                                                                               
      IMPLICIT INTEGER(I-N)
      REAL*8 XFLOT                                                              
      CALL LIRREE(XFLOT,ICODE,IRETOU)                                           
      FLOT=XFLOT                                                                
      RETURN                                                                    
      END