Télécharger ou.eso

Retour à la liste

Numérotation des lignes :

  1. C OU SOURCE CHAT 05/01/13 02:08:22 5004
  2. SUBROUTINE OU
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. LOGICAL IR1,IR2,IR
  8. ICOD=1
  9. CALL LIRLOG(IR1,ICOD,IRETOU)
  10. IF(IERR.NE.0) RETURN
  11. CALL LIRLOG(IR2,ICOD,IRETOU)
  12. IF(IERR.NE.0) RETURN
  13. IR=IR1.OR.IR2
  14. CALL ECRLOG(IR)
  15. RETURN
  16. END
  17.  
  18.  

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