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. -INC CCOPTIO
  5. LOGICAL IR1,IR2,IR
  6. ICOD=1
  7. CALL LIRLOG(IR1,ICOD,IRETOU)
  8. IF(IERR.NE.0) RETURN
  9. CALL LIRLOG(IR2,ICOD,IRETOU)
  10. IF(IERR.NE.0) RETURN
  11. IR=IR1.OR.IR2
  12. CALL ECRLOG(IR)
  13. RETURN
  14. END
  15.  
  16.  

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