C LIRENT    SOURCE    CHAT      05/01/13    01:21:12     5004
      SUBROUTINE LIRENT(IVAL , ICODE , IRETOU )
      IMPLICIT INTEGER(I-N)

-INC PPARAM
-INC CCOPTIO
      CHARACTER*(8) IEN
      IEN='ENTIER  '
      CALL LIROBJ(IEN ,IRAT,ICODE,IRETOU)
      IF(IERR.NE.0) RETURN
      IF(IRETOU.EQ.0) RETURN
      IVAL=IRAT
      RETURN
      END