Sources Esope | Cast3M

lirlog
C LIRLOG    SOURCE    PV        18/10/17    11:50:40     9965           
      SUBROUTINE LIRLOG(BVAL , ICODE , IRETOU )
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
 
-INC PPARAM
-INC CCOPTIO
-INC CCASSIS
      LOGICAL  BVAL
      CHARACTER*(8) ILO
      ILO='LOGIQUE '
      CALL LIRABJ(ILO,IRAT,ICODE,IRETOU)
      IF(IERR.NE.0) RETURN
      IF(IRETOU.EQ.0) RETURN
      ith=0
      if (nbesc.ne.0) ith=oothrd
      if (ith.eq.0) then
        if(nbesc.ne.0) segact ipiloc
        BVAL=IPLOGI(IRAT)
        if(nbesc.ne.0) SEGDES,IPILOC
      else
        mescla=imescl(ith)
        BVAL=esoplo(irat)
      endif
      RETURN
      END