      double precision T, TENDL, TINCRL, TPRINT, FOURU
      real KOUNTS, KOUNTW, TFACTR, TINITL, VERSN
      real QSSAV(NCHEM), QTSAV(NCHEM), QWSAV(NCHEM), SYSLDL(NCHEM)
     &,    Z(6,NCHEM), Z2(12)
      real BIOPCT(NCHEM), CHEMPC(NCHEM), DOMAX(10,NCHEM)
     &,    EXPPCT(NCHEM), TRANLD(NCHEM), VOLPCT(NCHEM)
      integer BATCH,ICALL,IFLAG,IPULSL,JSAV1,JSAV2,KDTIME,LASTYR
     &,       MONTHL,NDAT,NDAYL,NDAYS(12),NPRINT,NPULSE,OLDYR,SINCAL
      logical DONE, STIFEQ
      character NAMONG(13)*4
      common /TIMEL/ T, TENDL, TINCRL, TPRINT, FOURU, TFACTR, TINITL
     &, IFLAG, IPULSL, KDTIME, LASTYR, MONTHL, NDAT
     &, NDAYL, NDAYS, NPRINT, OLDYR, DONE, STIFEQ
      common /SETUPL/ KOUNTS, KOUNTW, VERSN, BATCH, ICALL, JSAV1
     &, JSAV2, NPULSE, SINCAL
      common /RESULT/ BIOPCT, CHEMPC, DOMAX, EXPPCT, TRANLD, VOLPCT
     &, QSSAV, QTSAV, QWSAV, SYSLDL, Z, Z2
      common /NAMES/ NAMONG
