C     from CPLPQ.INC   
C     PERLND module common
C            PQUAL section
C
C     + + + PARAMETERS + + +
      INTEGER    MXQUAL,MXQAL2
      PARAMETER (MXQUAL = 10) 
      PARAMETER (MXQAL2 = 20) 
C
      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,PWIF,DUM4,SLIFP,DUM5,ILIFP,DUM6,ALIFP,
     $              DUM7,PWCF1,DUM8,SOFP,IOFP,AOFP,POFP,DUM9,SDIF,
     $              SLSDFP,DUM10,SDCF1,DUM11,WSDFP,CSDFP,DUM12,LIFAC,
     $              DUM13,PQIF,SLIQSP,ILIQC,ALIQC,SLIQOX,SLIQSX,
     $              ILIQCX,ALIQCX,PQAFFP,PQACFP,NQUAL,NQSD,NQOF,NQIF,
     $              NQGW,PQADFG,QSDFG,QSDFP,VPFWFG,VPFSFG,QSOFG,QSOFP,
     $              VQOFG,QIFWFG,QIFWFP,VIQCFG,QAGWFG,QAGWFP,VAQCFG,
     $              QUALID,QTYID,PQAFXM,PQACNM,POTFWM,POTFSM,ACQOPM,
     $              REMQOM,WSFAC,IOQCM,AOQCM,SQO,POTFW,POTFS,ACQOP,
     $              REMQOP,IOQC,AOQC,SOQSP,IOQCE,AOQCE,SQOFP,SOQSPX,
     $              IOQCFP,AOQCFP,PQCF1,PQCF2,SOQS,PQCF3,SOQOC,SOQUAL
      COMMON/SCRTCH/SOQC,PQCF4,PQCF5,POQUAL,POQC,PQCF6,PQCF7,PQADEP,
     $              ISQO,WSQSFP,SCQSFP,SOQSFP,SOQOFP,SOQOCX,SOQFP,
     $              SOQCFP,IOQFP,AOQFP,POQFP,POQCFP,PQADDX,PQADWX,
     $              PQADPX,ISQOFP,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,SLIFP,
     $              ILIFP,ALIFP,SOFP,IOFP,AOFP,POFP,SLSDFP,WSDFP,
     $              CSDFP,SLIQOX(MXQUAL),SLIQSX(MXQUAL),
     $              ILIQCX(MXQUAL),ALIQCX(MXQUAL),PQAFFP(MXQUAL),
     $              PQACFP(MXQUAL),NQUAL,NQSD,NQOF,NQIF,NQGW,
     $              PQADFG(MXQAL2),QSDFG(MXQUAL),QSDFP(MXQUAL),
     $              VPFWFG(MXQUAL),VPFSFG(MXQUAL),QSOFG(MXQUAL),
     $              QSOFP(MXQUAL),VQOFG(MXQUAL),QIFWFG(MXQUAL),
     $              QIFWFP(MXQUAL),VIQCFG(MXQUAL),QAGWFG(MXQUAL),
     $              QAGWFP(MXQUAL),VAQCFG(MXQUAL),QUALID(3,MXQUAL),
     $              QTYID(1,MXQUAL),SQOFP(MXQUAL),SOQSPX(MXQUAL)
      INTEGER       IOQCFP(MXQUAL),AOQCFP(MXQUAL),WSQSFP(MXQUAL),
     $              SCQSFP(MXQUAL),SOQSFP(MXQUAL),SOQOFP(MXQUAL),
     $              SOQOCX(MXQUAL),SOQFP(MXQUAL),SOQCFP(MXQUAL),
     $              IOQFP(MXQUAL),AOQFP(MXQUAL),POQFP(MXQUAL),
     $              POQCFP(MXQUAL),PQADDX(MXQUAL),PQADWX(MXQUAL),
     $              PQADPX(MXQUAL),ISQOFP(MXQUAL)
      REAL          DELT,DELT60,DELT5,SNIF(5),PWIF(5,5),PWCF1(6,5),
     $              SDIF(5),SDCF1(2,5),LIFAC(4),PQIF(MXQUAL,5),
     $              SLIQSP(MXQUAL),ILIQC(MXQUAL),ALIQC(MXQUAL),
     $              PQAFXM(12,MXQUAL),PQACNM(12,MXQUAL),
     $              POTFWM(12,MXQUAL),POTFSM(12,MXQUAL),
     $              ACQOPM(12,MXQUAL),REMQOM(12,MXQUAL),WSFAC(MXQUAL),
     $              IOQCM(12,MXQUAL),AOQCM(12,MXQUAL),SQO(MXQUAL),
     $              POTFW(MXQUAL),POTFS(MXQUAL),ACQOP(MXQUAL),
     $              REMQOP(MXQUAL),IOQC(MXQUAL),AOQC(MXQUAL),
     $              SOQSP(MXQUAL),IOQCE(MXQUAL),AOQCE(MXQUAL),
     $              PQCF1(MXQUAL,5),PQCF2(MXQUAL,5),SOQS(MXQUAL),
     $              PQCF3(MXQUAL,5),SOQOC(MXQUAL),SOQUAL(MXQUAL),
     $              SOQC(MXQUAL),PQCF4(MXQUAL,5),PQCF5(MXQUAL,5),
     $              POQUAL(MXQUAL),POQC(MXQUAL),PQCF6(MXQUAL,5),
     $              PQCF7(MXQUAL,5),PQADEP(MXQUAL),ISQO(MXQUAL)
      INTEGER       DUM1(3),DUM2(28),DUM3(170),DUM4,DUM5,DUM6,
     $              DUM7(555),DUM8(138),DUM9(27),DUM10(42),DUM11(11),
     $              DUM12(165),DUM13(82),DUMPER(14549)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PREC,SNIF),(SURLI,PWIF(1,1)),
     $              (IFWLI,PWIF(3,1)),(AGWLI,PWIF(5,1)),
     $              (SURO,PWCF1(2,1)),(IFWO,PWCF1(3,1)),
     $              (AGWO,PWCF1(4,1)),(PERO,PWCF1(5,1)),(SLSED,SDIF),
     $              (WSSD,SDCF1(1,1)),(SCRSD,SDCF1(2,1)),
     $              (SLIQO, PQIF(1,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),UNIT(7),TIMFG(6),DATIM(5)
      REAL          PREC,SURLI,IFWLI,AGWLI,SURO,IFWO,AGWO,PERO,SLSED,
     $              WSSD,SCRSD,SLIQO(MXQUAL),WASHQS(MXQUAL),
     $              SCRQS(MXQUAL),SOQO(MXQUAL),IOQUAL(MXQUAL),
     $              AOQUAL(MXQUAL),PQADDR(MXQUAL),PQADWT(MXQUAL)
C     end byte:  72000 word:18000
