C                                           *--> FROM COMMON.RESV26
      COMMON/RESV26/ELEV1,ELEV2,ELVNRM,EMXSTO,FCST,IBUG,IFCST,LOBSTO,
     $NDAMQ,NEMXST,NOSOH,NQGEN,NRUN,NSE,NSO,NS2,NTERP,NTERPQ,NTIM24,
     $NTOTPK,NUM,NUMPKO,QFLOOD,QGENMX,QGENDS,QI1,QI2,QIM,QLIMNF,QOK1,
     $QOK2,QO1,QO2,QOM,RULEL1,RULEL2,S1,S2,SLUICE,TESTPK,ICOMB
     $ ,DQOMX,DQMMX,DHMX
      LOGICAL FCST
C