Esope source files

   1 : C LIRLOG    SOURCE    PV        11/04/08    21:16:10     6934           
   2 :       SUBROUTINE LIRLOG(BVAL , ICODE , IRETOU )                                 
   3 :       IMPLICIT INTEGER(I-N)
   4 : -INC CCNOYAU                                                                    
   5 : -INC CCOPTIO                                                                    
   6 : -INC CCASSIS
   7 :       LOGICAL  BVAL                                                             
   8 :       CHARACTER*(8) ILO                                                         
   9 :       ILO='LOGIQUE '                                                            
   9 :       CALL LIRABJ(ILO,IRAT,ICODE,IRETOU)                                        
  10 :       IF(IERR.NE.0) RETURN                                                      
  11 :       IF(IRETOU.EQ.0) RETURN                                                    
  12 :       ith=0
  12 :       if (nbesc.ne.0) call ooonth(ith)
  13 :       if (ith.eq.0) then
  14 :         if(nbesc.ne.0) segact ipiloc
  15 :         BVAL=IPLOGI(IRAT)
  16 :         if(nbesc.ne.0) segdes ipiloc
  17 :       else
  18 :         mescla=imescl(ith)
  19 :         BVAL=esoplo(irat)
  20 :       endif
  21 :       RETURN                                                                    
  22 :       END 
  23 :  
  24 :  
  25 :