Esope source files

   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                                                                    
   6 :       CALL LIRLOG(IR1,ICOD,IRETOU)                                              
   7 :       IF(IERR.NE.0) RETURN                                                      
   7 :       CALL LIRLOG(IR2,ICOD,IRETOU)                                              
   8 :       IF(IERR.NE.0) RETURN                                                      
   9 :       IR=IR1.OR.IR2                                                             
   9 :       CALL ECRLOG(IR)                                                           
  10 :       RETURN                                                                    
  11 :       END                                                                       
  12 :