C LIRREE    SOURCE    PV        11/04/08    21:16:12     6934           
      SUBROUTINE LIRREE(XVAL , ICODE , IRETOU )                         
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                            
-INC CCOPTIO                                                            
-INC CCASSIS
      REAL*8 XVAL                                                       
      CHARACTER*(8) IFL                                                 
      ith=0
      if (nbesc.ne.0) then
          call ooonth(ith)
      endif
      lotesc=.false.
      if (ith.ne.0) lotesc=.true.
      IFL='FLOTTANT'                                                    
      ICOD=ICODE                                                                                                  
      CALL LIRABJ(IFL,IRAT,ICOD,IRETOU)                                 
      IF(IERR.NE.0) RETURN                                              
      IF(IRETOU.EQ.0) RETURN                             
      if(nbesc.ne.0) segact ipiloc        
      IF(IFL.EQ.'FLOTTANT'.AND. (.not. lotesc)) THEN
         XVAL=XIFLOT(IRAT)                                              
      ELSEIF(IFL.EQ.'FLOTTANT'.AND. lotesc) THEN
         call ooonth(ith)
         mescla=imescl(ith)
         XVAL=ESOPRE(IRAT)
      ELSEIF(IFL.EQ.'ENTIER  ') THEN
         XVAL=IRAT                                                      
      ENDIF
      if(nbesc.ne.0) segdes ipiloc                                      
      RETURN                                                            
      END