Full text-L - Philip M. Fearnside - Inpa

i2iIF !!START .EC. 01 !BC.HE• !BEGi22 IF !KL61IiO> .L:O. lflEGl GC TO ii9i21 I START " !START + ii24 IF l!ST,).RT .GT. i .ANO. KL6(KPREVl .eo. KL61IiO»Go TO 119i25IF (!START .GT. i1 recATE. KL6(KPREVIi26 C CALCULATES SEG!N~l~G CATE FCR EACH INTER-EVENT INTERVALi27 INii1 • IEl'.D - !flEGi28!Niis • MAXO(VARii3, VARii71129 1'' ( IPVIJSE .eo. i41 GO TO i22i3o IF ( !PlllJSE .EC. 8 .OR. !PVUSE .eo. isl GO TO i23i3i I= ( !PlllJSE .EQ. 'I .cii. !PVUSC: .EQ. i6 .QR. IPVUSE.E0.301GO TO i2•i32IF ( IDVUSE .eo.i1 .CR. !PVUSE .Eo. 311 GO TO i25i33 !F ( IPVUSE .fQ.19 .OR. !PVUSE .eo. 351 ~o TO i26i34!F ( !PllUSE .Ell.iz .QR. rovuse .eo. i8 .OR. IPVUSE.E0.371GO TO i27i35 IF ( IPVUSE .Eo.20 .OR.• !PVUSE .eo. 131GO TO i28i36 !F (I PVUSE .Ell.27 .OR. !PVUSE .eo. 33 IGO TO i28i37 p:: ( IPVIJSE .E0.39 .OR. !PVIJSE .eo. 41IGO TO 128i3a IF ( IPVIJSC: .E0.30 .CR. !PVUSE .eo. 541GO TO i28i39 !F {!PllUSE .eQ.56 .OR. rovuse .eo. ;slGO TO i28i40 IF ( !PllUSE .E0.22 .OR. IPVUSE .EQ. 231GO TO i28i41 p:: (!DVIJSE .E0.25 .nR. IPVUSE .EO. 261GO TO i28i42 IF (!PVIJSE .eo.n .o~. rovuSE .eo. 761GO TO i28i43 !F (!PVIJSE .E0.7e .QR. !PVUSE .eo. 791GO TO i28i44 !F ( !PVUSE .eo.ei .OR. !DVUSE .eo. 821GO TO i28i45 IF ( IPVUSE .Ee.es .QR. IPVl..SE .eo. !HIGO TO iZ8146 IF ( !PVUSE .eo.e~ .QR, !PVUSE .EO. 951GO TO i2Bi47 IF (!PVIJSE .Eo.q .CR. !PVl..SE .eo. 991GO TO i28i48IF ( !PVUSE .Eo. io2 .OR. IPVUSE .eo. io31GO TO i28i49 !F I IPVUSE .Eo.io6 .OR. IPVUSE .EQ. i071GO TO i28iso IF (!P~USE .Eo.iio .CR. !FVUSE .ec. ll31GO TO i28i5lIF ( !PVUSE .E0.115 .OR. !Pl/USE .eo. ii61GO TO i2si52 IF (!P ... USE .eo.ii1 .CR. !PVUSE .ec. iialGO TO i28i53 l