Full text-L - Philip M. Fearnside - Inpa

l234567!I.,10l l12l314l;161718192021222 324252S27282-;130313233343536373~n1.041424344454647484q5u51525354555657~ B~960cC THIS ORO~PAM (":?CSIC~~~IGHe"I TAKES INFORMATION NEEDED FOR EROSIJ~C PR=DICT!JNS (GR~NULOMETll.IC DATA, SLOPE.ANO SOILDEPTHI FROM l/IRGSJLLC ANO NC~l/!PGSCIL ANC CALCULATES DISTANCES BETWEEN All POSSLBLc PALRSC OF SA"'PLES. l"'lFOFU•ATICN CN SAMPLES WITHIN A SPECLFIED RANGE LSc OUTPUT IN THE FILE ALLNEIGH~ORS, WITH Two LINES PER CASE. THISC opnl/IOES THE INPUT FOii. THE neRPRTAB• PROGRAM. THE I/ALU~ •-9.• ISC CUTPVT FOR MISSING DATA. INPLT DEVICES ARE:5•ENOATA, 7•1/LRGSOLLtC AND lO•N:JNl/IRGSOIL. CUTPUT DEVICE IS:9•ALLNEIGH80RS. Nu SU8PRO:OH~SC ARE CALL~C.c -H= =c~TRAN MONITOR "fll!NUSZERC• FEATURE IS USED. AS IS THE MTSC LOGICAL CCMPARISCN OF C~ARACTERS (LCOMCI FUNCTION.c!NT~GER voo~. vu lo 1/010DIMEl-lSION 1111/002( l 1001, BACX ( 1100 I, BACY( 11001, 1811261( 11001,1 Bl/025( llCOl, 81/021( llCOl, Bl/236( 11001, Bl/237111001, 81/23alllOOI,2 ~11239( 1100 lDATA MINZFO/Z80000COO/CALL FTNCl"D(. s::T "!NUSZERO•ON' .161~EAO (5, 10011 ICl/IRG, !CNl/!R, IOUAOS, RA()"[US, OISMIN, MAXNOFol!R!::3Afll, !PROF[, !TEST1001 t=QRMAT(lX, 215, !2, 2F6.Q, 314, 151C •!CV!RG" 15 THE NU"SER CF CASES IN l/IRGSOILC "!CMl/IR" IS THE NUl'BER CF CASES IN NONl/IRGSOILC •[QUADS" !S THE CCC~ FCR QUADRANTS TO ~E INCLUDED IN ALLN~IGHBQRSC