Télécharger lirent.eso

Retour à la liste

Numérotation des lignes :

  1. C LIRENT SOURCE CHAT 05/01/13 01:21:12 5004
  2. SUBROUTINE LIRENT(IVAL , ICODE , IRETOU )
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. CHARACTER*(8) IEN
  6. IEN='ENTIER '
  7. CALL LIROBJ(IEN ,IRAT,ICODE,IRETOU)
  8. IF(IERR.NE.0) RETURN
  9. IF(IRETOU.EQ.0) RETURN
  10. IVAL=IRAT
  11. RETURN
  12. END
  13.  
  14.  
  15.  
  16.  

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