RESTART.INC

c.......... WRITE STATEMENTS FOR RESTART - USED TWO PLACES IN MAIN ...........
C**    ARRAYS
      WRITE (25) CPIAQ1,CPIAQ2,CPI1,CPI2,EWAQ,CUMAQW,
     & QWAQ,CUMEW,IAQREG,PAQ,PIAQ,
     & P,SO,SW,SG,PN,SON,SWN,SGN,
     & CUMO,CUMW,CUMG,TX,TY,TZ, DX,DY,DZ,
     & QOC,QWC,QGC,PID,PWF,PWFC,GMO,GMW,GMG,
     & BO,BW,BG,VP,CT,EL,PBOT,PBOTN, RPO,RPW,RPG,RSOA,
     & NPW,LWX,LWY,LWZ, ALPHA,TOP, KR3, CAPGO,CAPGW,
     & RHOO,RHOW,RHOG, VISO,VISW,VISG, IDIR,IDWEL 

C**    VECTORS
      WRITE (25) QWAQR,CUMAQR, KX,KY,KZ,PHI,
     & ITSNO,STIME,SOPROD,SGPROD,SWPROD,SGOR,SWOR,
     & SGINJ,SWINJ,SPVWTP,SOCUMP,SWCUMP,SGCUMP,
     & SGCUMI,SWCUMI,SAQUIR,SAQUIC, GORT,WORT,GORL,WORL,
     & ILIMOP,KIP,WELNAM,LAYER,IDWELL, QVO,QVG,QVW,QVT, IQN1,IQN2,IQN3,
     & MSAT,MPOT,MPWT,MPGT,RHOSCO,RHOSCW,RHOSCG, VSLOPE,BSLOPE,RSLOPE,
     & SAT,KROT,KRWT,KRGT,KROGT,PCOWT,PCGOT,POT,MUOT,BOT,BOPT,RSOT,RSOPT
     &,PWT,MUWT,BWT,BWPT, PGT,PSIT,MUGT,BGT,BGPT,PRT,CRT,
     & WQG,WQW,WQO,WCGP,WCWP,WCOP,WGOR,WWOR,WSGAV,WSWAV,WSOAV,WPOAV,
     & WPWFAV, QGN,QWN,QON,CUMGN,CUMWN,CUMON,NGOR,NWOR,SGG,SWW,SOO,  
     & POO,NPWF

C**    SCALARS
      WRITE (25) II,JJ,KK,KSM1,KSN1,KCO1,KSOL,MITER, NUMDIS,IRK,THRUIN,
     & FACT1,FACT2,OMEGA,TOL,TOL1,WORMAX,GORMAX,PAMIN,PAMAX,
     & NVQN,CWI,CGI,ETI,PBO,PMAXT, KSCRN,KOUT, KDX,KDY,KDZ,KDZNET,
     & STBO,STBOI,STBW,STBWI,MCFG,MCFGI,MBEO,MBEW,MBEG,CMBEO,CMBEW,
     & CMBEG,TOOIP,TOWIP,TOGIP,TODGIP,TOFGIP,DELT0,RESVOL,OP,WP,GP,WI,
     & GI,PAVG0,PAVG,OPR,WPR, GPR,WIR,GIR,COP, CWP,CGP,MCFG1,MCFGT,
     & CWOR,WOR,CGOR,GOR,DSMAX,DPMAX,KCOFF,KSN,KSM, KCO,SWR,PDATUM,
     & GRAD,DSMC,DPMC,IAQOPT,NTSTEP,IREPRS,ITHREE, NROCK,NPVT,IROCK,
     & IPVT,NWELLS,NODTOT,RKROMX,KXMP,KYMP,KZMP,IPMAP,ISOMAP,ISWMAP,
     & ISGMAP,IPBMAP,IAQMAP,KROMP,KRWMP,KRGMP,IRSOMP,IPCOW,IPCGO,KPHIMP