C     from CPLPQ.INC   
C     PERLND module common
C            PQUAL 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,PRECFP,DUM2,
     $              SNIF,DUM3,PWCF1,DUM4,SOFP,IOFP,AOFP,POFP,DUM5,
     $              SDCF1,DUM6,WSDFP,CSDFP,DUM7,PQAFFP,PQACFP,NQUAL,
     $              NQSD,NQOF,NQIF,NQGW,PQADFG,QSDFP,VPFWFG,VPFSFG,
     $              QSOFP,VQOFG,QIFWFP,VIQCFG,QAGWFP,VAQCFG,QUALID,
     $              QTYID,PQAFXM,PQACNM,POTFWM,POTFSM,ACQOPM,REMQOM,
     $              WSFAC,IOQCM,AOQCM,SQO,POTFW,POTFS,ACQOP,REMQOP,
     $              IOQC,AOQC,SQOFP,PQCF1,PQCF2,SOQS,PQCF3,SOQOC,
     $              SOQUAL,SOQC,PQCF4,PQCF5,POQUAL,POQC,PQCF6,PQCF7,
     $              WSQSFP,SCQSFP,SOQSFP,SOQOFP,SOQOCX,SOQFP,SOQCFP,
     $              IOQFP,AOQFP,POQFP,POQCFP,PQADDX,PQADWX,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),PRECFP,SOFP,IOFP,AOFP,POFP,
     $              WSDFP,CSDFP,PQAFFP(10),PQACFP(10),NQUAL,NQSD,NQOF,
     $              NQIF,NQGW,PQADFG(20),QSDFP(10),VPFWFG(7),
     $              VPFSFG(7),QSOFP(10),VQOFG(7),QIFWFP(10),VIQCFG(7),
     $              QAGWFP(10),VAQCFG(7),QUALID(3,10),QTYID(1,10),
     $              SQOFP(7),WSQSFP(7),SCQSFP(7),SOQSFP(7),SOQOFP(7),
     $              SOQOCX(7),SOQFP(10),SOQCFP(10),IOQFP(7),AOQFP(7),
     $              POQFP(10),POQCFP(10),PQADDX(10),PQADWX(10)
      REAL          DELT,DELT60,DELT5,NBLKSI,SNIF(5),PWCF1(6,5),
     $              SDCF1(2,5),PQAFXM(12,10),PQACNM(12,10),
     $              POTFWM(12,7),POTFSM(12,7),ACQOPM(12,7),
     $              REMQOM(12,7),WSFAC(7),IOQCM(12,7),AOQCM(12,7),
     $              SQO(7),POTFW(7),POTFS(7),ACQOP(7),REMQOP(7),
     $              IOQC(7),AOQC(7),PQCF1(7,5),PQCF2(7,5),SOQS(7),
     $              PQCF3(7,5),SOQOC(7),SOQUAL(10),SOQC(10),
     $              PQCF4(7,5),PQCF5(7,5),POQUAL(10),POQC(10),
     $              PQCF6(10,5),PQCF7(10,5)
      INTEGER       DUM1(3),DUM2(28),DUM3(359),DUM4(77),DUM5(292),
     $              DUM6(11),DUM7(298),DUMPER(15382)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(PRTDAT,PFLAG),(UNIT,UUNITS),
     $              (TIMFG,HRFG),(DATIM,YR),(PREC,SNIF),
     $              (SURO,PWCF1(2,1)),(IFWO,PWCF1(3,1)),
     $              (AGWO,PWCF1(4,1)),(PERO,PWCF1(5,1)),
     $              (WSSD,SDCF1(1,1)),(SCRSD,SDCF1(2,1)),
     $              (WASHQS,PQCF1(1,1)),(SCRQS,PQCF2(1,1)),
     $              (SOQO,PQCF3(1,1)),(IOQUAL,PQCF4(1,1)),
     $              (AOQUAL,PQCF5(1,1)),(PQADDR,PQCF6(1,1)),
     $              (PQADWT,PQCF7(1,1))
      INTEGER       ASVEC(12),PRTDAT(14),UNIT(5),TIMFG(6),DATIM(5)
      REAL          PREC,SURO,IFWO,AGWO,PERO,WSSD,SCRSD,WASHQS(7),
     $              SCRQS(7),SOQO(7),IOQUAL(7),AOQUAL(7),PQADDR(10),
     $              PQADWT(10)
C     end byte:  72000 word:18000
