SUBROUTINE RLCI (NEWLCI) 
 
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      INTEGER     NEXT,   NUMBER, I,      IOTYPE 
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP 
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      INTEGER ICLP05 
      LOGICAL     ENDOK,CONEND 
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE 
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N 
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX 
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS 
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP 
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      COMMON   /LOGOS/  ICLP05 
      COMMON   /LOGOS/  ENDOK,CONEND 
 
      INTEGER  WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12,WF13,W
     1F14,WF15,WF16,WF17 
      INTEGER  ICLP16 
      COMMON   / WF / WF1,WF2,WF3,WF4,WF5,WF6,WF7,WF8,WF9,WF10,WF11,WF12
     1,WF13,WF14,WF15,WF16,WF17 
      COMMON   / WF / ICLP16 
 
      INTEGER     CODE 
      INTEGER     NOUNLC 
      INTEGER     DATALC 
      INTEGER     COMLOC 
      INTEGER     FBLOCK 
      INTEGER     ZREL 
      INTEGER     ABSLC 
      INTEGER     CBTAB (15) 
      INTEGER     CBX 
      INTEGER     LCTAB (15) 
      COMMON      /LCFUNC/ CODE 
      COMMON      /LCFUNC/ NOUNLC 
      COMMON      /LCFUNC/ DATALC 
      COMMON      /LCFUNC/ COMLOC 
      COMMON      /LCFUNC/ FBLOCK 
      COMMON      /LCFUNC/ ZREL 
      COMMON      /LCFUNC/ ABSLC 
      COMMON      /LCFUNC/ CBTAB 
      COMMON      /LCFUNC/ CBX 
      COMMON      /LCFUNC/ LCTAB 
 
      INTEGER  LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS 
      INTEGER  LEXEQU, LNLEQU 
      COMMON   /LCON/   LOWWF, LTLNA, LLPOOL, LLNAME, LMOVEP, LBSS 
      COMMON   /LCON/   LEXEQU, LNLEQU 
 
      INTEGER  LRET, OFFSET, LINEX, LTIME, LN 
      INTEGER  LINE (40) 
      INTEGER  INDXFL, LX, TABNR, TABX, LMODE 
      LOGICAL  LENTER 
      COMMON   /LCOM/   LRET, OFFSET, LINEX, LTIME, LN 
      COMMON   /LCOM/   LINE 
      COMMON   /LCOM/   INDXFL, LX, TABNR, TABX, LMODE 
      COMMON  /LCOM/   LENTER 
      INTEGER NEWLCI 
      IF (.NOT. (NEWLCI .NE. LCI))GO TO 13000 
 
      IF (LENTER) CALL LIST (LMOVEP, 0, 0) 
      LCTAB (LCI) = LC 
      LCI = NEWLCI 
      CALL BLDBLK (LCI, WF10) 
      MAXLCV = LCTAB (LCI) 
      CALL SETLCI 
13000 CONTINUE 
 
      RETURN 
      END