C     from CPLST.INC   
C     PERLND module common
C            PSTEMP 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,AIRTMP,
     $              AIRTS,AIRTFP,DUM2,SLTVFG,ULTVFG,LGTVFG,TSOPFG,
     $              ASLTM,BSLTM,ULTP1M,ULTP2M,LGTP1M,LGTP2M,AIRTC,
     $              SLTMP,ULTMP,LGTMP,AIRTCS,ASLT,BSLT,ULTP1,ULTP2,
     $              LGTP1,LGTP2,AIRTCX,SLTFP,ULTFP,LGTFP,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),AIRTFP,
     $              SLTVFG,ULTVFG,LGTVFG,TSOPFG,AIRTCX,SLTFP,ULTFP,
     $              LGTFP
      REAL          DELT,DELT60,DELT5,AIRTMP,AIRTS,ASLTM(12),
     $              BSLTM(12),ULTP1M(12),ULTP2M(12),LGTP1M(12),
     $              LGTP2M(12),AIRTC,SLTMP,ULTMP,LGTMP,AIRTCS,ASLT,
     $              BSLT,ULTP1,ULTP2,LGTP1,LGTP2
      INTEGER       DUM1(29),DUM2(1034),DUMPER(16731)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PTPM1,SLTVFG),(PTST1,AIRTC),
     $              (PTST2,ASLT),(PTSTFP,AIRTCX)
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5),PTPM1(4),
     $              PTSTFP(4)
      REAL          PTST1(4),PTST2(6)
C     end byte:  72000 word:18000
