Full text-L - Philip M. Fearnside - Inpa

More documents

Recommendations

Info

616Z63646566676116q707 l7Z7374757'>7778H80e iez83848586878~~q90919Z93949596q1q~qq10010 l10210310410510,,10710 gC:"lD QFWRITE (o, 10101 l/Z63, l/Z64, l/Z65, l/Z66, l/Z67, 1/268, 1/269, 1/270,l l/Z7l, l/Z72, l/Z73, 1/274. 1/275, l/Z76, l/Z77, l/Z78, l/Z79, 1/2801010 FQR"IAT(I zx, A3, n. A3, zx, A4, 6X, A3, 3X, A4, 4X, AZ, 5x, A4,l 3X, AZ, 2(lX, A21, 4X, A4, 5X, 4(A4, 4XI, 3(2X, A211WR !TE ( ':,, lOZ511025 l=CRMAT(/// lX, 'SA/'D,CEPTt-1lL+++ DH NOTES CTl3z3•,1 lX, 'REGIN ENO (~Pl'I31 I l I I Z I SANO00 lOZ !6al ,4P"iCS.COARSc(PP"llSANOPOTAS. CA++&HG++ NITROGEN AFINE SILT TOTAL SI02 Ai..20IME/lOOGI Ill IHc/lOOGCLAY' Ilo/RITE (o, lOZ61 l/lS'tCl61t l/l95II61, l/l961I61, 0241I61, l/b17(I61,ioz51r.s1, Vl981I6J, OZ61I61, v5561Iol, 0211Io1, v2001I61, 0281Io>.Zl/20llI~I, V20ZAIIol, VZOZBII61, l/2361I61, l/2371I61, 1/2381161,~ 1/2311 !61, CZ91161, 1/2401 I61, 0301 I61, VZ4ll I611026 FOR~1ATI/ ix. A't, ix. A4, lX, At+, 3X, Al, At+. 5X, Al, A4, 6X, Al,l A4, 5x, Al. A4, 4X, Al, A4, 3X, A3, 2x, A3, 4X, A4, 3X, A4t 2x.Z A4, ZX, A4, 2X, AZ, A4, lX, AZ, A41102 CONTINUEwRITF. 16, l0Z71lOZ7 l=CR'1ATI/// zx, •FEZ03 NOTE CARBON EXCHANGEABLE 8ASESIMt/luUGIl 1-i+ At.+++ P205 NOTES CTZ8 KI KR LATO ORGAN!:Z', I qx, 'CTl6 I ti NA+ K+ CA++ MG++ IME/lUOGllHE/l3clOGllME/lOOGI Ill 121 SOL MATTER' I')0 103 I7=l,4wR!TE:l6.tOZ81 D~ll!71, l/Z4ZII71, V2431!71, 0321I71, 1/5551171,l ')331I71, V5571I71, 0341I71, V5581I71, 0351!71, l/558AII71, 0361171z, l/~50E\II71, D371I71, V558CII71, 0381I71, 1/55801171, 0391171,3 l/555El!71, l/5~SII71, V5601I71, 0401171, C41!71, D4llI71, C51171,4 C~l!7l, 0'421171, C81!71lOZ8 FOR"IAT(I lX, A2, A4, 3X, AZ, 3X, Al, A4, 3X, Al, Alt, 2X, Al, Alt,l 2x, Al, :.4, 2x, Al, A4. 4X, Al, A4, 4X, Al, At+, 3X, Alt A4t ox.Z A3, ZX, A3, 3X, Al, A4, 2X, Al, A4, t+X, AZ, 3X, Al, 441t03 CONTINUEWRITE 1:-, 102911029 FOR"IATI/// 2x, 1 C/N SUM ex. TOT.CAT. oar. 8ASE 1 ' I 1x, 'BAScSl EXC.CAP. SATURATION')80 104 I 8=1,4WRITE"'' 10301 C'11181, 0431I81, ClOII81, Olt41ISI, Clllll31, Cl21IBl I1010 FORMAT!/ lX, A4, z~, Al• A4, 4X, A2, A4, 7X, A41104 CONTINUE100 CONTINL~C 5N~ C~ P~OGRAM "PRCFILE~R!NT"SD AT A139SS TOPFILEo ETIJR Ni:NO
cl2 C THIS Pf'OGP-"" IPPCFIL!SCRTl SORTS DATA FROM CARO TYPES Lil, ll, 16, 28,3 C t~C 24 (0Nf CASE PER CAPO: ONE241 INTO THE FILE PROFILE DATA ARRA~GEO4 SPUN *WATFIV 7=TYPE1 9•T,PE2 9•TYPE6 l0•NEW13 PAR•StZE•405 SCCMPILE6 CHAR~CT~R*2 VAR4927 CHARACTER•40 VAR4938 CHARACTER•37 USEq CMO.?ACTi::R•6 PHCSl, PCUSl, CA~Gl, l>HQSZ, POTAS2, CAMG210 !NTEGEP VAR 194, VAR19511 INTEGER VAR487, VAR490,VAR49l, VAR011,VAR006,VARIJU7,12 lVO.R008,VAR1~2,VARlg3,V~Rl87,VA202A, VA2028,13 lVAR002,VARCCS,VAR023,VAR186,VAR189,VAR48BhD!"ENS!O"I VAR493(2101,VAFl490(21CJl,VAR49ll210l, VAR49212lul,lSlVAPOllllOCOI, VAPOQ6(1000J, VAR007110001, VAR008(1000J,16 2VAPU2(14001, Vt.Pl
Page 1 and 2:
Data Management Package for HumanCa
Page 3 and 4:
PDENS - Planting densityMASTERPRINT
Page 5 and 6:
6 16263646500t76370 ~·71n7374757'7
Page 7 and 8:
191 c '•ITH!N UF:SPLN .:F OQl'-C!
Page 9 and 10:
30 lJOZ='W OF FIL
Page 11 and 12:
el '
Page 13 and 14:
181 C lNT::.:i.vAL 2N~ R:O-~SSIGllE
Page 15 and 16: 301 KCURUSl!8l=O30~ 111 CCNTINUE303
Page 17 and 18: l23L.561~qLOll12L 1L ..L 5LO>L"L 9L
Page 19 and 20: l2ll2 2l2 3l24l2 5l 2'>l27lBlBl30l
Page 21 and 22: 61oz636465666761.169707172n74751b77
Page 23 and 24: ~NOL23.:,.567a•LOL LLZl3L4LSL6L7L
Page 25 and 26: 61 DO 500 15•1,!CALLN62 c DC'E S
Page 27 and 28: 12345"' 7~l101 112131415161711'!112
Page 29 and 30: lZl !POINT a 0lZ2 IPNT2 • 012 1 C
Page 31 and 32: 24 l21t224 37'>424 5Zit I>2'> 721t8
Page 33 and 34: 361 c AB•:Jv: Fr;
Page 35 and 36: l2345673ql \.)l l121314l 516l7l ~l
Page 37: t2 l c { 7) . c { 71 + l •12?. r;
Page 40 and 41: 30 l l FI V 14 I 14 I • ;, E .O.
Page 42 and 43: 4214Z24234244254264274Zil429'>3043l
Page 44 and 45: l23.:,.56..,'Iq10111213l '+151617l
Page 46 and 47: 12 l12 212 312412 512~12712'112 12
Page 48 and 49: 6 l62f 31>465e6~168~o70717273747571
Page 50 and 51: 24 l GC Tl) 136242 130 CONi!NUE243
Page 52 and 53: l2 c3 c.. c5 c7 " ca c'l c10 cll12l
Page 54 and 55: i2iIF !!START .EC. 01 !BC.HE• !BE
Page 56 and 57: 2-'tl !NlO~ "MAXO([NlOS, VARL38([12
Page 58 and 59: L2~CCMP!LEC THIS PRGr;RA~ !CNEL!NC:
Page 60 and 61: 121 WRITE
Page 62 and 63: lz34567'I9to1112l 314151617l ~1'21)
Page 64 and 65: l234567a910l l1213l 't1516171319202
Page 68 and 69: 6 l I CUR • 0~2 !1-EAO a 063 ICT6
Page 70 and 71: l 8 l40 PHGS 1 2 I' BA !XC18 2 299
Page 72 and 73: 30 L 326 CCNTt Nl.E302 IF I VAROL l
Page 74 and 75: 421 3~6 CONTINUE422 IF (VAROll(!CUQ
Page 76 and 77: l2345678~1011121 314151617ta1920212
Page 78 and 79: 121 GO TO 48122 650 CONT!NUE123 !F
Page 80 and 81: 24lIF IVAROll(!CURLJ .eo. 9 .OR. VA
Page 82 and 83: 361 qq ~SE••CACAU CCM MANC!CCA3
Page 84 and 85: 48 l482~ ETUR PlENO4~3484SCAT A'703
Page 86 and 87: 6162e3c465666768697071727374-7571;7
Page 88 and 89: 181 C !CATE3 IS O.EG!N•l!,.._G DA
Page 90 and 91: 301 l!N31B, IN32, !N33, !N34, IN35,
Page 92 and 93: l24'i67R910l l12131415l -S17la19202
Page 94 and 95: 121 p (I() • o.12 2 fl (K) • 0.
Page 96 and 97: 241 118 IF ( Vl2 I 141 .LT. 4 .o I
Page 98 and 99: 36 1 IF ( V 14 I I 4 I • LT. 0 .A
Page 100 and 101: 48L4824834fl4485486487'~ 848949049
Page 102 and 103: 61 C ICDS16 !S TH! NUMBER CF CARDS
Page 104 and 105: 131182IF (V23~IF (V239, O. ·Ol V23
Page 106 and 107: 301 620 IF CLCC~C• l/A~267, l/AR2
Page 108 and 109: 1 SRUN •WATFIV 7•TYPE9 8=TYPE13
Page 110 and 111: 121 r,o TO 29122 23 CONTINUE123 IO
Page 112 and 113: l2345..,7eq1011121314151617l~192021
Page 116 and 117:
l234567aTHIS PROGRAM (•SCPT22"l S
Page 118 and 119:
l234567i!9LO1112l J1415l61718l?202l
Page 120 and 121:
121 KlOO • 0122 1
Page 122 and 123:
241 1(220 • 02to2 I( 221 = 0243 1
Page 124 and 125:
36 l K40 " VAP 16 l362 K'tl" !AS363
Page 126 and 127:
481 37 K60 . VAR160482 K,C,l . VARl
Page 128 and 129:
601 IF (VAR l 5 8 .EQ.2ll r,c TO 74
Page 130 and 131:
721 GO TO 17722 85 K218 . VAP16072
Page 132 and 133:
841 IF
Page 134 and 135:
96 l96296 3964%59669679689699709719
Page 137 and 138:
12112212112 '•12 512 612 712 912-
Page 139 and 140:
l ~LuCK CAT~2 C FCP 'llNUS ZERC !NF
Page 141 and 142:
l 2 l r.o TO 15122 13 CONTINLE123 C
Page 143 and 144:
l234567~~10l l12131415l~l'.'18lO202
Page 145 and 146:
61 LlS" 062 L 25 " 063 L35 " 064 Ll
Page 147 and 148:
181 IF (L22 .GT. Ol GC TO 27182 IF
Page 149 and 150:
lINTEGER FUlliCT!ON C.Al9001 !0A, !
Page 151 and 152:
l2J45678q10111213141516171819202122
Page 153 and 154:
6162636465666768o970717273747576777
Page 155 and 156:
l 8 l182 183 184 cl 8 5186 18 7 c18
Page 157 and 158:
6 t X6 " I X3 - X4) I 5. + X46 2 Y
Page 159 and 160:
181182183184185ieo187188189190l 9 l
Page 161 and 162:
61 GO TO 10362 101 IP • 06~ IF CV
Page 163 and 164:
lINTEGER FUNCTION CURU)E( IPPEV\;,
Page 165 and 166:
12 l li;O TO 70122 GO T1 101123 100
Page 167 and 168:
241 IF (!PRES I .Ee. 42 .ANO. IPRES
Page 169 and 170:
36l !Fl P'RESI ,EQ, 6 ,Al'IO, !PRES
Page 171 and 172:
541 l .eo. 711 CUPUSE " RESE .eo. 5
Page 173 and 174:
661 l 8 .OR. IPRESE .EO. 411 GO TO
Page 175 and 176:
78 l IF l!PRESr.eo.21.AND.IIPRESE.a
Page 177 and 178:
901 IF (CUP•JSE .EO. 0 .ANO. IPRE
Page 179 and 180:
1021 IF (I PRES I .EO. 14 .A .. D.
Page 181 and 182:
11411142114311441145114611471148114
Page 183 and 184:
l2346 '739101112l 31415161718192021
Page 185 and 186:
121 "lT043 . 0122 U.8049 .. o •12
Page 187 and 188:
2412422432.t,.42452462472432"'92502
Page 189 and 190:
361 "'T289 " 362 "T290 036 3 "'T29
Page 191 and 192:
48 l482K3 • lJ3 .. l483484TNSKTP
Page 193 and 194:
601 !F(VAR023( !60J .EQ. \IAROlOI !
Page 195 and 196:
721722l • !AFTlKAS3671!41 "VO.R00
Page 197 and 198:
841 !Fl !POUND .Eo. 2 .AND. l
Page 199 and 200:
96 l96 z963964965966967968969970971
Page 201 and 202:
108 l10821083108 ...108510861087108
Page 203 and 204:
1201 371 CONTINUE1202 IF IKAS371CK3
Page 205 and 206:
l.32 l1322l.32 3132'-132 5l 32bl.32
Page 207 and 208:
144 l T F ([PVUSE .EC. 221 GC TO 58
Page 209 and 210:
156 l156 2156 31564156 51566156 715
Page 211 and 212:
168 l 592 MTl28 " '1Tl28 + I( TCA T
Page 213 and 214:
180 l 625 "T218 " "!T2 te + KTCATEI
Page 215 and 216:
19 21 657 MT2B • "T2'?8 + KTDATEl
Page 217 and 218:
2U4l 697 "T~3d • ,..73 3 9 + KTCA
Page 219 and 220:
2 lc l2162216 32 le4216 52 l6b21672
Page 221 and 222:
228 1 TAfl073 . (FL CAT ( "T0711/FT
Page 223 and 224:
240124022 .. 0324042405240624072408
Page 225 and 226:
2521252 225232524252525262,2 725232
Page 227 and 228:
2c4 l2o42264 32644H45264626472b4~26
Page 229 and 230:
l2345cTHIS PROG~AM l"SOILPR~DPRINT"
Page 231 and 232:
121 1019 coP•UT(ll/ lX, 'CA++ CA+
Page 233 and 234:
24 i24224324424524624724824925025i2
Page 235 and 236:
l234567!I.,10l l12l314l;16171819202
Page 237 and 238:
lZ llZZ ClZ 3lZ'+12 5 c126E'l'J OF
Page 239 and 240:
6 l co 500 !5,.l,[CALLN62 c OCES CN
Page 241 and 242:
l c2 C THIS PRCGIHM ("WEATf
Page 243 and 244:
l z l [F ( ['10 .ec. 91 [ c .. c .
Page 245 and 246:
t2345"' 7cTM!5 PRIJ!;l
Page 247 and 248:
lZl1015 FIJR'1ATl1X, 2!A1, A4, 2(A2
Page 249 and 250:
~41 ~ T1T!L C~LC. "'AX. IC l IC 2 I
Page 251 and 252:
361 C A~OVE "l".'«.1'.H lOSO FCR 4
Page 253 and 254:
lo.Al48 2l..~3l..(14t.-8 54S648"'41
Page 255 and 256:
"tH(//// ix, 'WEA'rl-lER IN is DAYS
Page 257 and 258:
f: 1f-2l-"6"'6
Page 259:
61 loVAR~J
Page 262 and 263:
'"2 14221.2 342442542642742 ~42 943
Page 264 and 265:
5 4 l5t. 2~4 3:.;..454554654.,!S4 ~
Page 266 and 267:
~l 9QQ6 FQO~AT(1X,15,36X.F4,0,F5.0,
Page 268 and 269:
1 ~ l ! i: ( LCC,..C C 4," I 'lZ Ql
Page 270 and 271:
301 11551':0 = V~~S3EI IAFT23l-V~55
Page 272 and 273:
l2~~7~•l'l11l?.l]ccT'-'lS i>R".'G
Page 274 and 275:
12 l t FI L cc·~c ( 4, .. ! NZ O!J
Page 276 and 277:
2412422'-324424524F,24 72'-A2"'l2,0
Page 278 and 279:
6i "007 Fn•1-1~T1~x. r~. 2cx. F4.
show all

Full text-L - Philip M. Fearnside - Inpa

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?