Full text-L - Philip M. Fearnside - Inpa

L2~CCMP!LEC THIS PRGr;RA~ !CNEL!NC::LLI READS CATA FROM CARO TYPE LL & R.EFORMAr:i3 C IT IO!TH 01\E ITEM PER RECORD, l'AK!NG THE .1PPROPR!ATE ASSIGNMENTS4 C CF L~ST CARO VALUES ANC NCTES. OUTPUT IS IN TYPELL FORMAr ~ITH5 C COLU~NS 2'-73 ~LAN~b C INPUT UNITS AR: 7aTYPell ANC S•OATAF!LE. OUTPUT UNIT IS a•ONEll.7 c~ INTEr.ER 'IO~E1 INTC::GEP VAR153,VARl54,VARl~5,VAR156,VU157,VAA151,VARl.59,VARloO,10 LVARlol.VA~l~2.VARlb3,VARlo4,VARl65,VAR16o.VARlo7.VARlo8,VARlo9.LL2VAP170,VAP171,VAPli2,VARl73,VA11174,VAR175,VARl76,VAR177,VARl78,12 3VARL79,VAR180,VAR1El,VARL82,VAR183L3 c ABnve TYPE CECLARAT!C/\ FOR CARO TYPE LL14 ':Jl~E'IS!CN VAR153(2Ql,VAR154(20l,VAR155(201,VAR15o(201,VAR157120I,L 5 L VAR l 5 d ( 20 l , VAR l 5 q l 2ll l , VA? lo 0 I 20 l, VAR lb 11 20 l , VAR l oz I 20 l , VAR loll 20 I ,lb 2VAP l '>4 ( 20 l , VAR l 6 ~ l 20 l , VA P 161: ( 20 I , VAR lb 7 I 20 l •VAR 16 8 ( 20 l , VAR lb9 ( 20 I ,17 3VAR170(201,VAR171(2Ql,VAR172(201,VAR173(20),VAR174(20l,VAR175(2Ult18 "-VAR l 76 ( 2 0 I , VAR l 77 ( 20 l , VAR l 78 ( 2 0 l, VAR l 79 ( 20 I , VARl 80 ( 20 I, VAR ltlll 201 ,19 ~VAPl82(201,VAR183(2Ql,VAR184(20l • vo11201, V02(20l20 ~E:.::J !5.10711 !COSll.ICOS921 1071 FQRMAl(lX.15.!Sl22 DO L 13 L2•1 r ICCS~23 C !Cr:JS9 IS Tl-'E NUf'BER OF CASES !SAME AS NO. OF CARDS OF TYPE 9124 c noES ONE ITERATION ~CR EACH CRGP CASE25 00 100 !l•l.ICOSll2~ C CCUNTS CA?OS F':R EACH CASE27 PEAD (7,10~21 VAPL:ll!Llr V0l(lllo VARl54(!lJ, VOZl!ll, VAR155tlll28 lr VAR15ol!ll, VAR157(!2 q l L l • VAR 15 a I l l l 'VAR L 5 q ( l l l • VA~ 160 (I ll • VAR 161 I l 11 'v AR lb 2' l ll' VAR lol I I30 211.'/A~l!,4(!11 .VAR le~( lll .VARlooC! ll ,VARlo71 [l) ,VA.Rl68(lll.3 L 3V AR 16 ~I ll I , V All l 70 I 11 l , VAR 171 I l ll , VAR l 72 I l 11 , VAR l 7J( I 11, VAR 17/tU ll ,3? 4'/ AR l 7 ~I I l I , VAR l H ( l ll , VA P L "1'7 ( l 11 , VAR l 78 ( I ll , VAR\ 79 ( I 11, VAR 180 (! l l,33 5VAR1911Ill,VARL.~2(!ll,VARlB~llll,VARl81t(lll34 1052 ~cR·~4T(lX.A2, 2(Al, A4l. A4, 12, o(!3, 3A2l. 212. A3135 C ABOVE FOR~AT 10!2 Fr.R CAPO TYPE 11Jo IF (VAllLS7( Ill .EO. Ll GC TC 10137 C VA~L57 IS T~E LAST CARD !lllD!CATCR39 LOO CONTINUE39 101 CONTINUE40 rcc~SE • IL41 c rcc:.se IS il-'E NU~BER CF CARDS FOR THE CASE4 2 '10 112 l 2 • L , I CC ASE43 C OOES CNE ITERATION FCR EACH CARO FOR THE CASE44 IF ('/AR162(l2l .GE, Ll ~C TO 12345 LASTCD • l46 r,o rJ t2447 L23 (fJMT[NtJE49 LA5TCD• 04i124 [ONTINUE50 IF l.NCT.(VAPL~2(!2l .SE. 2ll GC TO 10'>'l ~ ,J;E • 0~2 r.o TO ios51 104 roNT!~UE54 /IJCTF. • VARL~3(!2l~5 105 CONT !NII':5~ IO?.!"!'E (., 10701 VARL53 (!2) ,vc1 ( 121,VA?.15'>(12l.vozc121 ,vAll.155( IZI,~7 1VAR15e(!2l•58 LLASTCC. VAn59( 12l,VARL5