Full text-L - Philip M. Fearnside - Inpa

6162e3c465666768697071727374-7571;77797q8081ez113q4as66A7IJ8A9909 Lqz93949596"i 798 c99100LO l102103 c104LOS106 c107 c108 c109 cL l 0ll L112 cLL3L l '-ll 5ll 6117llilll 9120cI N34 • 0IN35 • 0IN36 • 0IN37 • 0rN3~ s 0IN39 • 0!N40 .,. 0o I N4 l • 0.I N42 • 0!N4 3 " 0IN44A• 0IN45A• 0IN46A• 0IN47 a IJI N48 • 0IN4? s 0IN50 • 0I N5 l • 0IN~2 • 0I N53 • 0! N5"' • 0IN55 • 0I N56 " 0IN57 • 0!N5.3 a 0IN'59 • 0!"160 • 0!N6l • 0!N62 • 0!NllB " 0!N231l ,. 0IN3L~ 0!N448 • 0!N45~ .. 0IN4oFI " 0!START " 000 llq IlO" lo!CCASE~AKES TA~ULAT!CN CALCULATICNS SCANNING •K• ARRAYK pq !"V • l LO - lIF (KPIHV .LE. 01 Ki>REll : lIF (!LO ,EQ. ll I P\IUSE • 4IF (!LO .GT.11 IPllLSE • KCURUSIKPREVI!PVUSE IS use DURING OREVIOUS INTER-EVENT INTERVALIF (KlC(!lOI .r.T, !ENCi GC TO 119IF (KL6(KPPEVI .GE. !Ej>.jOI GC TO 119ABOVE FOR CASE OF ~fPE THAN ONE EVENT ON THE SAMEDAY AS !END. THF P.C. HARVEST EVENT WILL ALWAYS BE FIRSTcu~ TO ;we CROER IN WHICH T~E EVENTS FIRST cNTEREO THECOIGHR!NC!PAL CROO !>LANTING DATE AS BEGINNING DATE FJR FIRSf!NTcR-EVE~T INTERVALIF (KUdtlOI .LE. raEGI GC TO 119!START " !START -+ 1IF (!START .GT •. 11 !BCATE • KL61KPREVICALCULATES ~EG!~N!NG CATE FOR EACH INTER-EVENT INTERVAL ll80ATEI!Nt..7 • IE~D - l~EGIN48 "MA•OlllARll3, VAR1171IF C !PVUSE ,EQ, 71 l';C TO 122IF (!PllUSE ,;::Q, 8 .CP, Il>VUSe .EO, 151 GO TO 123