C     from CPLMS.INC   
C     PERLND module common
C            MSTLAY 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,VUZFG,DUM2,
     $              LZSN,DUM3,UZSNM,DUM4,SURS,UZS,IFWS,LZS,AGWS,DUM5,
     $              UZSN,DUM6,SURSS,DUM7,SSFP,UZSFP,ISFP,LZSFP,AGWSFP,
     $              DUM8,PWCF1,DUM9,PWCF5,DUM10,SURI,DUM11,SOFP,IOFP,
     $              AOFP,DUM12,IGIFP,DUM13,IIFP,UZIFP,INFFP,PCFP,
     $              DUM14,AIFP,SURIFP,IRDMFP,DUM15,CFINMA,SLMPF,ULPF,
     $              LLPF,MST,FRAC,MSTFP,FRACFP,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),VUZFG,SSFP,
     $              UZSFP,ISFP,LZSFP,AGWSFP,SOFP,IOFP,AOFP,IGIFP,IIFP,
     $              UZIFP,INFFP,PCFP,AIFP,SURIFP,IRDMFP,MSTFP(5),
     $              FRACFP(8)
      REAL          DELT,DELT60,DELT5,LZSN,UZSNM(12),SURS,UZS,IFWS,
     $              LZS,AGWS,UZSN,SURSS,PWCF1(6,5),PWCF5(6,5),SURI,
     $              CFINMA,SLMPF,ULPF,LLPF,MST(5),FRAC(8)
      INTEGER       DUM1(249),DUM2(151),DUM3(43),DUM4(291),DUM5(11),
     $              DUM6(4),DUM7(11),DUM8(7),DUM9(40),DUM10(11),
     $              DUM11(56),DUM12,DUM13(8),DUM14,DUM15(2357),
     $              DUMPER(14519)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(SURO,PWCF1(2,1)),(IFWO,PWCF1(3,1)),
     $              (AGWO,PWCF1(4,1)),(IGWI,PWCF1(6,1)),
     $              (IFWI,PWCF5(1,1)),(UZI,PWCF5(2,1)),
     $              (INFIL,PWCF5(3,1)),(PERC,PWCF5(4,1)),
     $              (AGWI,PWCF5(6,1)),(MSTPM,SLMPF)
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5)
      REAL          SURO,IFWO,AGWO,IGWI,IFWI,UZI,INFIL,PERC,AGWI,
     $              MSTPM(3)
C     end byte:  72000 word:18000
