C OU        SOURCE    CHAT      05/01/13    02:08:22     5004           
      SUBROUTINE OU                                                             
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      LOGICAL IR1,IR2,IR                                                        
      ICOD=1                                                                    
      CALL LIRLOG(IR1,ICOD,IRETOU)                                              
      IF(IERR.NE.0) RETURN                                                      
      CALL LIRLOG(IR2,ICOD,IRETOU)                                              
      IF(IERR.NE.0) RETURN                                                      
      IR=IR1.OR.IR2                                                             
      CALL ECRLOG(IR)                                                           
      RETURN                                                                    
      END