Esope source files

   1 : C LIRENT    SOURCE    CHAT      05/01/13    01:21:12     5004           
   2 :       SUBROUTINE LIRENT(IVAL , ICODE , IRETOU )                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCOPTIO                                                                    
   5 :       CHARACTER*(8) IEN                                                         
   6 :       IEN='ENTIER  '                                                            
   6 :       CALL LIROBJ(IEN ,IRAT,ICODE,IRETOU)                                       
   7 :       IF(IERR.NE.0) RETURN                                                      
   8 :       IF(IRETOU.EQ.0) RETURN                                                    
   9 :       IVAL=IRAT                                                                 
  10 :       RETURN                                                                    
  11 :       END                                                                       
  12 :  
  13 :  
  14 :