Télécharger lirflo.eso

Retour à la liste

Numérotation des lignes :

  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
  9. CALL LIRREE(XFLOT,ICODE,IRETOU)
  10. FLOT=XFLOT
  11. RETURN
  12. END
  13.  
  14.  
  15.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales