Télécharger ou.eso

Retour à la liste

Numérotation des lignes :

ou
  1. C OU SOURCE PV090527 23/12/15 21:15:03 11810
  2. SUBROUTINE OU
  3. IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. LOGICAL IR1,IR2,IR3,IR
  8. ir1=.false.
  9. ir2=.false.
  10. ICOD=1
  11. CALL LIRLOG(IR1,ICOD,IRETOU)
  12. IF(IERR.NE.0) RETURN
  13. CALL LIRLOG(IR2,ICOD,IRETOU)
  14. IF(IERR.NE.0) RETURN
  15. IR=IR1.OR.IR2
  16. ICOD=0
  17. do i=1,1000
  18. CALL LIRLOG(IR3,ICOD,IRETOU)
  19. if(iretou.ne.1) goto 1001
  20. ir=ir.or.ir3
  21. enddo
  22. 1001 continue
  23. CALL ECRLOG(IR)
  24. RETURN
  25. END
  26.  
  27.  
  28.  
  29.  

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