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,
     $              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,SNCF1,DUM2,
     $              WYFP,DUM3,PWIF,DUM4,SLIFP,DUM5,ILIFP,DUM6,ALIFP,
     $              DUM7,CSNOFG,DUM8,PWCF1,DUM9,SOFP,IOFP,AOFP,DUM10,
     $              SLTMP,ULTMP,LGTMP,DUM11,SLTFP,ULTFP,LGTFP,SLITMP,
     $              ILITMP,ALITMP,SLIDOX,ILIDOX,ALIDOX,SLICO2,ILICO2,
     $              ALICO2,SLITFP,ILITFP,ALITFP,SLDOFP,ILDOFP,ALDOFP,
     $              SLCOFP,ILCOFP,ALCOFP,IDVFG,ICVFG,GDVFG,GCVFG,
     $              ELEVGC,IDOXPM,ICO2PM,ADOXPM,ACO2PM,LIFAC,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
      COMMON/SCRTCH/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),
     $              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),WYFP,SLIFP,
     $              ILIFP,ALIFP,CSNOFG,SOFP,IOFP,AOFP,SLTFP,ULTFP,
     $              LGTFP,SLITFP,ILITFP,ALITFP,SLDOFP,ILDOFP,ALDOFP,
     $              SLCOFP,ILCOFP,ALCOFP,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,SNCF1(5,5),PWIF(5,5),PWCF1(6,5),
     $              SLTMP,ULTMP,LGTMP,SLITMP,ILITMP,ALITMP,SLIDOX,
     $              ILIDOX,ALIDOX,SLICO2,ILICO2,ALICO2,ELEVGC,
     $              IDOXPM(12),ICO2PM(12),ADOXPM(12),ACO2PM(12),
     $              LIFAC(4),SOTMP,IOTMP,AOTMP,SODOX,SOCO2,IODOX,
     $              IOCO2,AODOX,AOCO2,IDOXP,ICO2P,ADOXP,ACO2P,
     $              PGCF1(3,5),POHT,PGCF2(6,5),PODOXM,POCO2M
      INTEGER       DUM1(165),DUM2(14),DUM3(2),DUM4,DUM5,DUM6,DUM7(7),
     $              DUM8(547),DUM9(138),DUM10(179),DUM11(8),
     $              DUMPER(16574)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(WYIELD,SNCF1(4,1)),(SURLI,PWIF(1,1)),
     $              (IFWLI,PWIF(3,1)),(AGWLI,PWIF(5,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))
      EQUIVALENCE   (AOCO2M,PGCF2(6,1)),(PGCF1X,SOHTFP),
     $              (PGCF2X,SODOMX)
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5),PGPM1(4),
     $              PGST1X(3),PGST2X(6),PGCF1X(3),PGCF2X(6)
      REAL          WYIELD,SURLI,IFWLI,AGWLI,SURO,IFWO,AGWO,PGST1(3),
     $              PGST2(6),SOHT,IOHT,AOHT,SODOXM,SOCO2M,IODOXM,
     $              IOCO2M,AODOXM,AOCO2M
C     end byte:  72000 word:18000
