C NON       SOURCE    CHAT      05/01/13    01:59:09     5004           
      SUBROUTINE NON                                                            
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
      LOGICAL IR1,IR                                                            
      ICOD=1                                                                    
      CALL LIRLOG(IR1,ICOD,IRETOU)                                              
      IF(IERR.NE.0) RETURN                                                      
      IR=.NOT.IR1                                                               
      CALL ECRLOG(IR)                                                           
      RETURN                                                                    
      END