Esope source files

   1 : C LIRREE    SOURCE    PV        11/04/08    21:16:12     6934           
   2 :       SUBROUTINE LIRREE(XVAL , ICODE , IRETOU )                         
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU                                                            
   5 : -INC CCOPTIO                                                            
   6 : -INC CCASSIS
   7 :       REAL*8 XVAL                                                       
   8 :       CHARACTER*(8) IFL                                                 
   9 :       ith=0
  10 :       if (nbesc.ne.0) then
  10 :           call ooonth(ith)
  11 :       endif
  12 :       lotesc=.false.
  13 :       if (ith.ne.0) lotesc=.true.
  14 :       IFL='FLOTTANT'                                                    
  15 :       ICOD=ICODE                                                                                                  
  15 :       CALL LIRABJ(IFL,IRAT,ICOD,IRETOU)                                 
  16 :       IF(IERR.NE.0) RETURN                                              
  17 :       IF(IRETOU.EQ.0) RETURN                             
  18 :       if(nbesc.ne.0) segact ipiloc        
  19 :       IF(IFL.EQ.'FLOTTANT'.AND. (.not. lotesc)) THEN
  20 :          XVAL=XIFLOT(IRAT)                                              
  21 :       ELSEIF(IFL.EQ.'FLOTTANT'.AND. lotesc) THEN
  21 :          call ooonth(ith)
  22 :          mescla=imescl(ith)
  23 :          XVAL=ESOPRE(IRAT)
  24 :       ELSEIF(IFL.EQ.'ENTIER  ') THEN
  25 :          XVAL=IRAT                                                      
  26 :       ENDIF
  27 :       if(nbesc.ne.0) segdes ipiloc                                      
  28 :       RETURN                                                            
  29 :       END   
  30 :  
  31 :  
  32 :  
  33 :