Esope source files

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