Full text-L - Philip M. Fearnside - Inpa

l2 c3 c.. c5 c7 " ca c'l c10 cll12l 3l 4 cl;l 6171, c112021222324-2526272829303l3233343;'.!5137B3q4cl41.i..243444346474849~o51525354555657sa60 "'SUF\POl,;TINE MZI"ITR (IC CASE, I13EG, I FOL DD, ICASlO, !ENOITHIS SUBROUTINE (MZINTRl TABULATES INTERPLANT!NG DATA ~HcRc HA(ZcIS THE OR.!'IC!PAL CROP. APGIJ1'4ENTS AR!: !CCASE: THE NU"IBER uF CAROSeaR Tl-E CASE IN THE "K" AilRAY CF !?LANT; !BEG: THE DAYS SlNCC: 19QOi:co OR!NC !PAL CPCP (i"!AI ZE I PL.UH!Nt;; l!=OLDO: A PLACE HOlucR FORTHE DAYS SINCE 1900 FCR !NTERPLANTEO MAIZE FOLDING (USE 01:TCASlO: THE NUMREP OF CAROS FCR THE CASE TN MZlO. ~ !ENO THE END )F PR!NC.CROP TABULATION INTERVALTHO: MZINTR sue~OUTINE 1S CALLEC RY THE !PLANT MAIN PROGRAM.su~~~UTINES NE~D!O ARE CAl'lOO, PDENS ANO CURUSE.INTEGER CURUSE, DAlSOOlNTcGER VARl07, VARl09, VARllO, VARlllo VARll2, VARll3, VARll4tlVARll5,VAPll6o VARll7o VARl2'ABOVE TYPE CECLARAT!C~ l=CR CARO 9INTEGER VAR13lo VARl33o VARl34o VARl35, VAR136, VARl37, VARl38,lVAPl39, VAPl4Q, VAP14lo VARl42, VARl43, VARl44, VARl45, VAKl .. 6,2VARl4S, VARl50, VAR15l, VARl52ABOVE TYDE OECLARATIGN ~OR CARO 10COM"llJN/Cl/ VAR13l(l0l, VARl331lOlo VAiH341lOlo VARl3511UI,lVA::U36(lOI, VADl37