541 7 oT STG ENS PT STG ENS RT STG' I~42 WRIT~ 16, l074JIP(!l51, !15•20q,232154J 1074 ~oR~l~T!I tx. A?, 3X, A2, 2x, A2, 3X1 A2. 3X, A2, 2x. A21 )X, A2,544 l 3X, A2, 2x, A2, 3X. 42. 3X, ~2. zx. ~z. 3X, A2, 3X, A2, zx. AZ,545 2 3)(, A2. 3X, A2, 2x, A2, 3X, i12, 3X, A2. 2x, A2. 5X, A21 )X, A2,546 3 2x. t.21547 C AAOVE FCRMAT 1074 FOR LOTH LINE OF NUM. PEST OUTPUT~4~ WP[TI: (6, 1075154~ 1075 FCP'lAT( 'l',LX,•SHGE 4 ICCNT!NUEDI PILMAS ••• I STAGE o: ROJT~50 LS ANO TUBE'PS • • • • • • • • • • •••••••••• I' II lX551 2. •rr•111=R l CTMEo 2 RATS 131 ANTS 1515'?. 3 ".'.AT'.:D.P!LLAR(l,I i3EETLES 171 AGOUTI 1101 1 , I lX, '!Ti:M INT-::~53 4- ALL JTE," INT- CE- ALL INT- CE- ALL INT- CE- ALL INT- CE- 4-~55"" 5 !~IT- Cc- ALL !NT- CE- ALL', I lX, 1 ENS RT STG ;~555 65 q STG ENS RT ST'i ENS RT STG ENS RT STG iiNS RT i556 .,. .. G ENS RT sTr;• I557 WRP'E (e, 10761(Pl[l61, [16•233,2551~53 10"'~ FOMAT(I 2x, A2, 2x, A2, 3x, A2, 2x, A2. t,.X, 42, 2x, A2, 3X, A2,;~· l 2x. A2. 3X, A2, JX, A2, 2x, A2, 3X. 42, '3x, AZ, zx. A2, 3X, A2,560 2 1x. A2, 2x. A2, sx, A2. 3X, A2, 2)(, A2, 3x, A2, 3X, A2, 2x, A21561 C ~81"'VE FripuAf 1076 FOR llTI" LINE '1F NU"I, PEST OUTPUT5Ci2 wR!TF. (6, 10"'71563 11)77 ~OP"Hl//I lX, •sTAr;E 6 ICONT!NU':DI: '!OOTS ANO TUBERS ••••••564 t. • ••••••••••••• •-• •••••••••• '• II lX1~t 107~ ~OR"AT(I ix. A2, ~x. A~. zx, A2, 3X, A2, 3x, AZ, 2x, AZ, 'tX, A2,573 1 3)(. A2. 2x. AZ, JX. A2. Jx, A2. 2x, A2, 5X, A2, Jx, A2, zx. AZ,574 2 4X. A2, 3X. A2, 2x, A2, 4X, 42, 3X, .u, 2x, A21~75 C ~'30VE FQ~'4AT 1078 FCR l2TM LINE OF NU~. PEST OUTPUT576 '•R!TE (6, 107ql577 tore; :=r::JR'AAT(//I ix. •sT.aGE 6 (CQNT!NUEOl: :l.OOTS OR TUBERS57 9 l • • • • • • • • • • • • • • •~7'1 2 .1 1 .11 tx. •vi:RTS.ROIJTSl2'11 PAIN ROT (291 "PULGA0"132l PECC:.Rl'580 3115 I 'lTl-'E? l OTHER 2 "IOTE 1 NuTE 2 1 , I5'!t 4 ix. 'l'-!1"- CE- HL INT- CE- ALL INT- CE- ALL lNT- Cc- ALL582 5 IT~" !MT- C!:- ALL Iil!"I llllT- CE- ALL IT-ST-NO- IT-ST-NO-', I l.593 1 •• • I SEEDS I NOTE I', 11 lX, 'BEFORE PLANTING AFTER', lX,51;:. 2 •PLANTI"lr. WEED "'lRST DISEASE SECOND DISEASE PER- INT- :e- 1~95 3 , ?.X, •PER', 5X, 'CT22', I lX, 'NO.OF "IAN-OAYS NO.OF MAN-OAl'i59,c, 4 lRf'A l'llS- p, .. _ CE-'. 2x, •ors- ["IT- CE- CC:"lT ENS RT•,5.;7 5 3)(, '"ILL'. I ix, •T[l'!ES PER HA. T!"IES PER MA. CcRT•, 2x,599 6 'fASE :NS. p; ~ASE ENS. RT AREA'I59~ '.•RITE (6, 20031 C~44, 045, C346, C3470l, C3470Z, C348, ::31t9,/JOO !. C350, 1.351, C3~2, C353, C354, C355, C356, C357, C361t, Cl65
"tH(//// ix, 'WEA'rl-lER IN is DAYS AFTER PLANTING/ WEATHER IN isi DAYS 9EFGRE HIRVEST I Ml!SING DATA CODES I A8SOLUTE COOROlNAT~2!Te (IJ, io8Zt ')">i, Lt, 062, LZ, 063, L), L4, L5, L6, 06't, L7,i D65, Ld, D66, L'l, LlO, ui, LlZ, Ll3, Ll't, US, Ll6, Ll71 Ll812 1)67, Ll~. C68, LZOioqz0(1P'111T(/ ix. A1, Al., zx. AZ, 114, zx, A2, A4. zx, 3IA2, ZXI. A3,i A4, 2X, 2 ( AZ , A'-, 2 X t , 9 (A 2 , 2 XI , ZA4, 2X, Zi!.4 IC AllOVE l=•Jf: MAT ioaz FOR WEAT~ER ANO 4BSOL. COORDS.ioo C"J•IT!NU
- 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 66 and 67:
616Z63646566676116q707 l7Z7374757'>
- 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: lo.Al48 2l..~3l..(14t.-8 54S648"'41
- 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.