Sources Esope | Cast3M

lirflo
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