C     from CPLPS.INC   
C     PERLND module common
C            PWTGAS 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,SNCF1,DUM2,
     $              WYFP,DUM3,CSNOFG,DUM4,PWCF1,DUM5,SOFP,IOFP,AOFP,
     $              DUM6,SLTMP,ULTMP,LGTMP,DUM7,SLTFP,ULTFP,LGTFP,
     $              IDVFG,ICVFG,GDVFG,GCVFG,ELEVGC,IDOXPM,ICO2PM,
     $              ADOXPM,ACO2PM,SOTMP,IOTMP,AOTMP,SODOX,SOCO2,IODOX,
     $              IOCO2,AODOX,AOCO2,IDOXP,ICO2P,ADOXP,ACO2P,SOTFP,
     $              IOTFP,AOTFP,SODOFP,SOCDFP,IODOFP,IOCDFP,AODOFP,
     $              AOCDFP,PGCF1,POHT,PGCF2,PODOXM,POCO2M,SOHTFP,
     $              IOHTFP,AOHTFP,POHTFP,SODOMX,SOCDMX,IODOMX,IOCDMX,
     $              AODOMX,AOCDMX,PODOMX,POCDMX,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),WYFP,CSNOFG,SOFP,IOFP,AOFP,
     $              SLTFP,ULTFP,LGTFP,IDVFG,ICVFG,GDVFG,GCVFG,SOTFP,
     $              IOTFP,AOTFP,SODOFP,SOCDFP,IODOFP,IOCDFP,AODOFP,
     $              AOCDFP,SOHTFP,IOHTFP,AOHTFP,POHTFP,SODOMX,SOCDMX,
     $              IODOMX,IOCDMX,AODOMX,AOCDMX,PODOMX,POCDMX
      REAL          DELT,DELT60,DELT5,NBLKSI,SNCF1(5,5),PWCF1(6,5),
     $              SLTMP,ULTMP,LGTMP,ELEVGC,IDOXPM(12),ICO2PM(12),
     $              ADOXPM(12),ACO2PM(12),SOTMP,IOTMP,AOTMP,SODOX,
     $              SOCO2,IODOX,IOCO2,AODOX,AOCO2,IDOXP,ICO2P,ADOXP,
     $              ACO2P,PGCF1(3,5),POHT,PGCF2(6,5),PODOXM,POCO2M
      INTEGER       DUM1(142),DUM2(13),DUM3(22),DUM4(192),DUM5(77),
     $              DUM6(465),DUM7(8),DUMPER(16787)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(PRTDAT,PFLAG),(UNIT,UUNITS),
     $              (TIMFG,HRFG),(DATIM,YR),(WYIELD,SNCF1(4,1)),
     $              (SURO,PWCF1(2,1)),(IFWO,PWCF1(3,1)),
     $              (AGWO,PWCF1(4,1)),(PGPM1,IDVFG),(PGST1,SOTMP),
     $              (PGST2,SODOX),(PGST1X,SOTFP),(PGST2X,SODOFP),
     $              (SOHT,PGCF1(1,1)),(IOHT,PGCF1(2,1)),
     $              (AOHT,PGCF1(3,1)),(SODOXM,PGCF2(1,1)),
     $              (SOCO2M,PGCF2(2,1)),(IODOXM,PGCF2(3,1)),
     $              (IOCO2M,PGCF2(4,1)),(AODOXM,PGCF2(5,1)),
     $              (AOCO2M,PGCF2(6,1)),(PGCF1X,SOHTFP)
      EQUIVALENCE   (PGCF2X,SODOMX)
      INTEGER       ASVEC(12),PRTDAT(14),UNIT(5),TIMFG(6),DATIM(5),
     $              PGPM1(4),PGST1X(3),PGST2X(6),PGCF1X(3),PGCF2X(6)
      REAL          WYIELD,SURO,IFWO,AGWO,PGST1(3),PGST2(6),SOHT,IOHT,
     $              AOHT,SODOXM,SOCO2M,IODOXM,IOCO2M,AODOXM,AOCO2M
C     end byte:  72000 word:18000
