C     from CPLTR.INC   
C     PERLND module common
C            TRACER section
      COMMON/SCRTCH/AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG,
     $              BFLAG,PIVL,BIVL,PYREND,BYREND,PERPFG,PERBFG,
     $              UUNITS,IUNITS,OUNITS,PUNIT,BUNIT,MESSU,MSGFL,LSNO,
     $              LSID,DELT,DELT60,DELT5,NDAY,NDAYS,DUMW,HRFG,DAYFG,
     $              STFG,EDAYFG,EMONFG,EPYRFG,EBYRFG,YR,MON,DAY,HR,
     $              MIN,IVL,IVL1,PIVLNO,BIVLNO,NXTMON,SPAFP,SPAKND,
     $              SPIVL,SPOPNO,SPOUT,SPNUND,DUMGEN,DUM1,PRECFP,DUM2,
     $              SNIF,DUM3,MST,FRAC,MSTFP,FRACFP,DUM4,AGGTFG,DUM5,
     $              TRLIF,LITRSX,TRAFFP,TRACFP,TRADFG,TRACID,TRAFXM,
     $              TRACNM,TRWCNT,STRSU,UTRSU,ITRSU,LTRSU,ATRSU,TOTTR,
     $              STRSFP,UTRSFP,ITRSFP,LTRSFP,ATRSFP,TRSUFP,TRCFX1,
     $              TRCFX2,POTRS,TRCFX3,TRCFX4,TRADEP,TSTRFP,SSTRFP,
     $              POTRFP,TRADDX,TRADWX,TRADPX,DUMPER
      INTEGER       AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG(12),
     $              BFLAG(12),PIVL,BIVL,PYREND,BYREND,PERPFG,PERBFG,
     $              UUNITS,IUNITS,OUNITS,PUNIT(2),BUNIT(2),MESSU,
     $              MSGFL,LSNO,LSID(5),NDAY(12),NDAYS,DUMW(2),HRFG,
     $              DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,EBYRFG,YR,MON,DAY,
     $              HR,MIN,IVL,IVL1,PIVLNO,BIVLNO,NXTMON,SPAFP,SPAKND,
     $              SPIVL,SPOPNO,SPOUT,SPNUND,DUMGEN(13),PRECFP,
     $              MSTFP(5),FRACFP(8),AGGTFG,LITRSX(5),TRAFFP(2),
     $              TRACFP(2),TRADFG(4),TRWCNT(1),STRSFP,UTRSFP,
     $              ITRSFP,LTRSFP,ATRSFP,TRSUFP,TSTRFP(5),SSTRFP(3),
     $              POTRFP,TRADDX(2),TRADWX(2),TRADPX(2)
      REAL          DELT,DELT60,DELT5,SNIF(5),MST(5),FRAC(8),
     $              TRLIF(5,5),TRACID(5),TRAFXM(12,2),TRACNM(12,2),
     $              STRSU,UTRSU,ITRSU,LTRSU,ATRSU,TOTTR(5),
     $              TRCFX1(5,5),TRCFX2(3,5),POTRS,TRCFX3(2,5),
     $              TRCFX4(2,5),TRADEP(2)
      INTEGER       DUM1(3),DUM2(28),DUM3(3306),DUM4(505),DUM5(3201),
     $              DUMPER(10626)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PREC,SNIF),(LITRS,TRLIF(1,1)),
     $              (TRST1,STRSU),(TRSU,TOTTR(1)),(TSTRS,TRCFX1(1,1)),
     $              (SSTRS,TRCFX2(1,1)),(TRADDR,TRCFX3(1,1)),
     $              (TRADWT,TRCFX4(1,1))
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5)
      REAL          PREC,LITRS(5),TRST1(5),TRSU,TSTRS(5),SSTRS(5),
     $              TRADDR(2),TRADWT(2)
C     end byte:  72000 word:18000
