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,
     $              PIVL,PYREND,PERPFG,UUNITS,IUNITS,OUNITS,PUNIT,
     $              MESSU,MSGFL,LSNO,LSID,DELT,DELT60,DELT5,NDAY,
     $              NDAYS,NBLKSI,NBLKS,HRFG,DAYFG,STFG,EDAYFG,EMONFG,
     $              EPYRFG,YR,MON,DAY,HR,MIN,IVL,IVL1,PIVLNO,NXTMON,
     $              SPAFP,SPAKND,SPIVL,SPOPNO,DUMGEN,DUM1,VUZFG,DUM2,
     $              LZSN,DUM3,UZSNM,DUM4,SURS,UZS,IFWS,LZS,AGWS,DUM5,
     $              UZSN,DUM6,SURSS,DUM7,SSFP,UZSFP,ISFP,LZSFP,AGWSFP,
     $              DUM8,SURSB,UZSB,IFWSB,SURSSB,SSBFP,UZSBFP,ISBFP,
     $              PWCF1,DUM9,PWCF5,DUM10,SURI,SOFP,IOFP,AOFP,DUM11,
     $              IGIFP,DUM12,IIFP,UZIFP,INFFP,PCFP,DUM13,AIFP,
     $              SURIFP,PWCF2,DUM14,PWCF6,SOBFP,IOBFP,DUM15,IIBFP,
     $              UZIBFP,INFBFP,PCBFP,DUM16,CFINMA,SLMPF,ULPF,LLPF,
     $              MST,FRAC,MSTFP,FRACFP,MSTB,FRACB,MSTBFP,FRACBX,
     $              DUMPER
      INTEGER       AIRTFG,SNOWFG,PWATFG,SEDFG,PSTFG,PWGFG,PQALFG,
     $              MSTLFG,PESTFG,NITRFG,PHOSFG,TRACFG,AGFG,PFLAG(12),
     $              PIVL,PYREND,PERPFG,UUNITS,IUNITS,OUNITS,PUNIT(2),
     $              MESSU,MSGFL,LSNO,LSID(5),NDAY(12),NDAYS,NBLKS,
     $              HRFG,DAYFG,STFG,EDAYFG,EMONFG,EPYRFG,YR,MON,DAY,
     $              HR,MIN,IVL,IVL1,PIVLNO,NXTMON,SPAFP,SPAKND,SPIVL,
     $              SPOPNO,DUMGEN(15),VUZFG,SSFP,UZSFP,ISFP,LZSFP,
     $              AGWSFP,SSBFP(5),UZSBFP(5),ISBFP(5),SOFP,IOFP,AOFP,
     $              IGIFP,IIFP,UZIFP,INFFP,PCFP,AIFP,SURIFP,SOBFP(5),
     $              IOBFP(5),IIBFP(5),UZIBFP(5),INFBFP(5),PCBFP(5),
     $              MSTFP(5),FRACFP(8),MSTBFP(3,5),FRACBX(5,5)
      REAL          DELT,DELT60,DELT5,NBLKSI,LZSN,UZSNM(12),SURS,UZS,
     $              IFWS,LZS,AGWS,UZSN,SURSS,SURSB(5),UZSB(5),
     $              IFWSB(5),SURSSB(5),PWCF1(6,5),PWCF5(6,5),SURI,
     $              PWCF2(5,2,5),PWCF6(5,4,5),CFINMA,SLMPF,ULPF,LLPF,
     $              MST(5),FRAC(8),MSTB(3,5),FRACB(5,5)
      INTEGER       DUM1(207),DUM2(6),DUM3(26),DUM4(73),DUM5(9),
     $              DUM6(4),DUM7(9),DUM8,DUM9(35),DUM10(11),DUM11,
     $              DUM12(7),DUM13,DUM14(25),DUM15(5),DUM16(1793),
     $              DUMPER(15272)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(PRTDAT,PFLAG),(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)),
     $              (SUROB,PWCF2(1,1,1)),(IFWOB,PWCF2(1,2,1)),
     $              (IFWIB,PWCF6(1,1,1)),(UZIB,PWCF6(1,2,1)),
     $              (INFILB,PWCF6(1,3,1)),(PERCB,PWCF6(1,4,1)),
     $              (MSTPM,SLMPF)
      INTEGER       ASVEC(12),PRTDAT(14),UNIT(5),TIMFG(6),DATIM(5)
      REAL          SURO,IFWO,AGWO,IGWI,IFWI,UZI,INFIL,PERC,AGWI,
     $              SUROB(5),IFWOB(5),IFWIB(5),UZIB(5),INFILB(5),
     $              PERCB(5),MSTPM(3)
C     end byte:  72000 word:18000
