C     from CPLNI.INC   
C     PERLND module common
C            NITR 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,PRECFP,DUM2,
     $              SNIF,DUM3,NCRP,CRPDAT,DUM4,SOILD,SLME,SLSM,ULSM,
     $              LLSM,ALSM,WILTPT,DUM5,SURS,UZS,DUM6,LZS,AGWS,DUM7,
     $              SOSED,DUM8,SOSDFP,DUM9,SLTMP,ULTMP,LGTMP,DUM10,
     $              SLTFP,ULTFP,LGTFP,DUM11,MST,FRAC,MSTFP,FRACFP,
     $              DUM12,AGGTFG,PSWCNT,DUM13,NITIF,NITIFX,NITLIF,
     $              NSDIF,LIAMSX,LINO3X,LISLNX,LISRNX,LISDNX,NIAFFP,
     $              NIACFP,VNUTFG,FORAFG,ITMAXA,BNUMN,CNUMN,NUPTFG,
     $              FIXNFG,AMVOFG,ALPNFG,VNPRFG,NIADFG,CRPDAY,CRPFRC,
     $              NUPTGT,NMXRAT,NIAFXM,NIACNM,SKPLNM,UKPLNM,LKPLNM,
     $              AKPLNM,SKRBNM,UKRBNM,LKRBNM,AKRBNM,KRANM,SKRLNM,
     $              UKRLNM,BNPRFM,LNPRFM,SKUNIM,UKUNIM,LKUNIM,AKUNIM
      COMMON/SCRTCH/SKUAMM,UKUAMM,LKUAMM,AKUAMM,SKINIM,UKINIM,LKINIM,
     $              AKINIM,SKIAMM,UKIAMM,LKIAMM,AKIAMM,NUPTFM,SNUPTM,
     $              UNUPTM,LNUPTM,ANUPTM,GNPM,SNPM,UNPM,LNPM,ANPM,
     $              SORNPM,UORNPM,LORNPM,AORNPM,SCSATN,UCSATN,LCSATN,
     $              ACSATN,SANUFM,UANUFM,LANUFM,AANUFM,SKVOL,UKVOL,
     $              LKVOL,AKVOL,THVOL,TRFVOL,BIVLN,CIVLN,NWCNT,NECNT,
     $              AGPLTN,LITTRN,SN,UN,IN,LN,AN,TN,TNIT,TOTN,SNDFC,
     $              UNDFC,LNDFC,ANDFC,TNDFC,AGPLNX,LITRNX,SNFP,UNFP,
     $              INFP,LNFP,ANFP,TNFP,TNTFP,TNITFP,NDFCTX,SKPLN,
     $              UKPLN,LKPLN,AKPLN,KRETBN,KRETAN,SKSATN,UKSATN,
     $              LKSATN,AKSATN,SNUPTG,UNUPTG,LNUPTG,ANUPTG,NUPTGX,
     $              SPNUTG,UPNUTG,LPNUTG,APNUTG,ANUTF,SNRXF,UNRXF,
     $              LNRXF,ANRXF,NCFX1,NCFX2,NCFX3,NCFX4,NCFX5,NCFX6,
     $              NCFX7,NCFX8,NCFX9,NCFX10,NCFX11,NCFX12,NIADEP,
     $              NCFX13,NCFX14,NCFX15,NCFX16,NCFX17,NCFX18,NCFX19,
     $              NCFX20,NCFX21,NCFX22,NCFX23,NCFX24,NCFX25,NCFX26,
     $              NCFX27,NCFX28,SOSEDN,PONO3,PONH4,POORN,PONITR,
     $              SDNFP,TSAMSX,SSAMSX,TSNO3X,SSNO3X,DENIFX,TDNIFP
      COMMON/SCRTCH/AMNITX,AMIMBX,ORNMNX,NIADDX,NIADWX,NIADPX,NFIXFP,
     $              TSSLNX,SSSLNX,TSSRNX,SSSRNX,NIIMBX,AMVOLX,RFRONX,
     $              NIUPAX,AMUPAX,NIUPBX,AMUPBX,RTAGNX,RTLLNX,RTRLNX,
     $              RTLBNX,RTRBNX,OSDNFP,PONIFP,POAMFP,POONFP,PONFP,
     $              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,NCRP,
     $              CRPDAT(4,3),SOSDFP,SLTFP,ULTFP,LGTFP,MSTFP(5),
     $              FRACFP(8),AGGTFG,PSWCNT(6),NITIFX(4),LIAMSX(5),
     $              LINO3X(5),LISLNX(5),LISRNX(5),LISDNX(3),
     $              NIAFFP(3,2),NIACFP(3,2),VNUTFG,FORAFG,ITMAXA,
     $              BNUMN,CNUMN,NUPTFG,FIXNFG,AMVOFG,ALPNFG,VNPRFG,
     $              NIADFG(12),CRPDAY(13,3),BIVLN,CIVLN,NWCNT(8),
     $              NECNT(1),AGPLNX,LITRNX,SNFP(8),UNFP(8),INFP(4),
     $              LNFP(8),ANFP(8),TNFP(8),TNTFP(5),TNITFP,NDFCTX(5),
     $              NUPTGX(4),SDNFP(3),TSAMSX(5),SSAMSX(3),TSNO3X(5),
     $              SSNO3X(3),DENIFX(5),TDNIFP,AMNITX(5),AMIMBX(5)
      INTEGER       ORNMNX(5),NIADDX(3,2),NIADWX(3,2),NIADPX(3,2),
     $              NFIXFP(5),TSSLNX(5),SSSLNX(3),TSSRNX(5),SSSRNX(3),
     $              NIIMBX(5),AMVOLX(5),RFRONX(5),NIUPAX(5),AMUPAX(5),
     $              NIUPBX(5),AMUPBX(5),RTAGNX,RTLLNX(3),RTRLNX(3),
     $              RTLBNX(5),RTRBNX(5),OSDNFP,PONIFP,POAMFP,POONFP,
     $              PONFP
      REAL          DELT,DELT60,DELT5,SNIF(5),SOILD(4),SLME,SLSM,ULSM,
     $              LLSM,ALSM,WILTPT(4),SURS,UZS,LZS,AGWS,SOSED,SLTMP,
     $              ULTMP,LGTMP,MST(5),FRAC(8),NITIF(4,5),
     $              NITLIF(5,4,5),NSDIF(3,5),CRPFRC(13,3),NUPTGT,
     $              NMXRAT,NIAFXM(12,3,2),NIACNM(12,3,2),SKPLNM(12),
     $              UKPLNM(12),LKPLNM(12),AKPLNM(12),SKRBNM(12),
     $              UKRBNM(12),LKRBNM(12),AKRBNM(12),KRANM(12),
     $              SKRLNM(12),UKRLNM(12),BNPRFM(12),LNPRFM(12),
     $              SKUNIM(12),UKUNIM(12),LKUNIM(12),AKUNIM(12),
     $              SKUAMM(12),UKUAMM(12),LKUAMM(12),AKUAMM(12),
     $              SKINIM(12),UKINIM(12),LKINIM(12),AKINIM(12),
     $              SKIAMM(12),UKIAMM(12),LKIAMM(12),AKIAMM(12),
     $              NUPTFM(12),SNUPTM(12),UNUPTM(12),LNUPTM(12),
     $              ANUPTM(12),GNPM(11),SNPM(11),UNPM(11),LNPM(11),
     $              ANPM(11),SORNPM(4),UORNPM(4),LORNPM(4),AORNPM(4),
     $              SCSATN(4),UCSATN(4),LCSATN(4),ACSATN(4),
     $              SANUFM(12),UANUFM(12),LANUFM(12),AANUFM(12),SKVOL,
     $              UKVOL,LKVOL,AKVOL,THVOL,TRFVOL,AGPLTN,LITTRN
      REAL          SN(8),UN(8),IN(4),LN(8),AN(8),TN(8),TNIT(5),
     $              TOTN(5),SNDFC,UNDFC,LNDFC,ANDFC,TNDFC,SKPLN,UKPLN,
     $              LKPLN,AKPLN,KRETBN(5),KRETAN(4),SKSATN(4),
     $              UKSATN(4),LKSATN(4),AKSATN(4),SNUPTG,UNUPTG,
     $              LNUPTG,ANUPTG,SPNUTG,UPNUTG,LPNUTG,APNUTG,
     $              ANUTF(4),SNRXF(16),UNRXF(16),LNRXF(16),ANRXF(16),
     $              NCFX1(3,5),NCFX2(5,5),NCFX3(3,5),NCFX4(5,5),
     $              NCFX5(3,5),NCFX6(5,5),NCFX7(5,5),NCFX8(5,5),
     $              NCFX9(5,5),NCFX10(3,2,5),NCFX11(3,2,5),
     $              NCFX12(5,5),NIADEP(3,2),NCFX13(5,5),NCFX14(3,5),
     $              NCFX15(5,5),NCFX16(3,5),NCFX17(5,5),NCFX18(5,5),
     $              NCFX19(5,5),NCFX20(5,5),NCFX21(5,5),NCFX22(5,5),
     $              NCFX23(5,5),NCFX24(1,5),NCFX25(3,5),NCFX26(3,5),
     $              NCFX27(5,5),NCFX28(5,5),SOSEDN,PONO3,PONH4,POORN,
     $              PONITR
      INTEGER       DUM1(3),DUM2(28),DUM3(223),DUM4(352),DUM5(110),
     $              DUM6,DUM7(297),DUM8(12),DUM9(79),DUM10(8),
     $              DUM11(2186),DUM12(505),DUM13(601),DUMPER(11432)
C
      EQUIVALENCE   (ASVEC,AIRTFG),(UNIT,UUNITS),(TIMFG,HRFG),
     $              (DATIM,YR),(PREC,SNIF),(SOILM,SLME),
     $              (LIAMS,NITLIF(1,1,1)),(LINO3,NITLIF(1,2,1)),
     $              (LISLN,NITLIF(1,3,1)),(LISRN,NITLIF(1,4,1)),
     $              (LISEDN,NSDIF(1,1)),(NITFG,VNUTFG),
     $              (NYLDPM,NUPTGT),(AMVOPM,SKVOL),(TOTNIT,TOTN(1)),
     $              (NDFCT,SNDFC),(KPLN,SKPLN),(NUPTG,SNUPTG),
     $              (SEDN,NCFX1(1,1)),(TSAMS,NCFX2(1,1)),
     $              (SSAMS,NCFX3(1,1)),(TSNO3,NCFX4(1,1)),
     $              (SSNO3,NCFX5(1,1)),(DENIF,NCFX6(1,1))
      EQUIVALENCE   (AMNIT,NCFX7(1,1)),(AMIMB,NCFX8(1,1)),
     $              (ORNMN,NCFX9(1,1)),(NIADDR,NCFX10(1,1,1)),
     $              (NIADWT,NCFX11(1,1,1)),(NFIXFX,NCFX12(1,1)),
     $              (TSSLN,NCFX13(1,1)),(SSSLN,NCFX14(1,1)),
     $              (TSSRN,NCFX15(1,1)),(SSSRN,NCFX16(1,1)),
     $              (NIIMB,NCFX17(1,1)),(AMVOL,NCFX18(1,1)),
     $              (REFRON,NCFX19(1,1)),(NIUPA,NCFX20(1,1)),
     $              (AMUPA,NCFX21(1,1)),(NIUPB,NCFX22(1,1)),
     $              (AMUPB,NCFX23(1,1)),(RETAGN,NCFX24(1,1)),
     $              (RTLLN,NCFX25(1,1)),(RTRLN,NCFX26(1,1))
      EQUIVALENCE   (RTLBN,NCFX27(1,1)),(RTRBN,NCFX28(1,1))
      INTEGER       ASVEC(12),UNIT(7),TIMFG(6),DATIM(5),NITFG(10)
      REAL          PREC,SOILM(5),LIAMS(5),LINO3(5),LISLN(5),LISRN(5),
     $              LISEDN(3),NYLDPM(2),AMVOPM(6),TOTNIT,NDFCT(5),
     $              KPLN(4),NUPTG(4),SEDN(3),TSAMS(5),SSAMS(3),
     $              TSNO3(5),SSNO3(3),DENIF(5),AMNIT(5),AMIMB(5),
     $              ORNMN(5),NIADDR(3,2),NIADWT(3,2),NFIXFX(5),
     $              TSSLN(5),SSSLN(3),TSSRN(5),SSSRN(3),NIIMB(5),
     $              AMVOL(5),REFRON(5),NIUPA(5),AMUPA(5),NIUPB(5),
     $              AMUPB(5),RETAGN,RTLLN(3),RTRLN(3),RTLBN(5),
     $              RTRBN(5)
C     end byte:  72000 word:18000
