|
<br />-- - - - - --- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - ---
<br />
<br />.
<br />
<br />.
<br />.
<br />PAGE: 00'1
<br />.
<br />ERROR
<br />.
<br />.
<br />.'
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />
<br />LABEL CaNT . . i 1 Ii' . ~ ./. . . .2. . . ./. i . .3.. w . ./ . . . . ~. . . ./ . . . .5 a . . .;. . . .6. . . ./. . . .7. . . II PAGLI N
<br />GO TO 299 001560
<br />1110 DO 145 YEAR-YEAR1,YEAR2 001570
<br />DO 145 MONTH=1,6 001580
<br />GCUICROP,MONTH+2,YEAR...COEFICROP,MONTH).PCTSUNIMONTH+2,YEAR) 001590
<br />TGCUICROP,YEAR)..TGCUICROP,YEARI+GCUICROP,MONTH+2,YEARI 001600
<br />1'15 CONTINUE 001610
<br />WRITE(6.~042)WDIST 00t620
<br />WRlT.E(6J.L051tI ,Oe1i630
<br />1051t FORMATI'Ot,IMONTH~Y GROSS CONSUMPTIVE USE OF GRAIN SORGHUM BV THE 00161t0
<br />1 MODIFIED JENSEN-HAISE METHOD IN INCHES') 001650
<br />WRITEl6,10ItS) 001660
<br />wRITE16,1(56) 001670
<br />1056. FORMATI)O',lYEAR JUNE JU~Y .AUGSEPT OCT Da1680
<br />1 TOTAL.') 001690
<br />WRITE(6,104S) 001700
<br />DO 150 YEAR..yEAR1,YEAR2 001710
<br />NYVY..YEAR+SASEYR 001720
<br />WRITEI6,1058)NYYY,lGCUICROP,MONTH,YEARI,MONTH-a,7),TGCUICROP,YEAR) 001730
<br />1058 FORMATl I. ','19I,I2I1X,6(3X,F7'3)) . 00171t0
<br />150 CONTINUE 001750
<br />GO TO 299 001760
<br />155 IF(CROP-6l160,185,185 001770
<br />160 DO 165 YEAR..vEAR1,YEAR2 001780
<br />DO 165 MONTH..1,7 001790
<br />GCI,J I CROP, MONTH,VEAR) ..COEF (CROP., MONTH )..pCTSUN lMONTH,YEAR) 001,8ao
<br />TGCUICROP,YEAR)..TGCUICROP,YEAR)+GCuiCROP,MONTH,YEAR) 001810
<br />CONTINUE 001820
<br />WRITEl6,1042lWDIST 001830
<br />IFICROP-5)166,170,170 00181t0
<br />wRITEl6,1060l 001850
<br />FORMAT('O',IMONTHI.Y GROSS CONSUMPTIVE USE OF AL.FAL.FABv THE MODIFI 001860
<br />ED JENSEN-HAISE METHOD IN INCHES') 001870
<br />GO ~O 175 00~880
<br />WRITEl6,10621 001890
<br />FORMATl'O','MONTHL.Y GROSS CONSUMPTIVE USE OF SUGAR BEETS ~V THE MO 001900
<br />DIFIED JENSEN-HAISE METHOD IN INCHES') 001910
<br />WRITE(6,10IlS) 001920
<br />WRITEl6,1061t1 001930
<br />FORMATI'O','YEAR APRIL MAY JUNE JU~Y AUG 001940
<br />SEPT OCT TOTAL') 001950
<br />WRITEl6,10481 001960
<br />DO 180 vEAR..YEAR1,YEAR2 001970
<br />NYYv-YEAR+BASEvR 001980
<br />WRITEI6,1066)NYVV,IGCUICROP,MONTH,YEARl,MONTH-i,7l,TGCUICROP,YEARI 001990
<br />i 066'?'aRfo!*'Fi.4'-'l-J-+1-9".,"f2'.r1"*, 8 I :3 X, r7.....3').!'-. ,.""." "". '.. "'~" ".,. .' "-e~o' .
<br />180 CONTINUE 002010
<br />GO TO 299 002020
<br />185 DC 190 YEAR..YEAR1,YEAR2 002030
<br />DO 190 MONTH-1,3 002040
<br />GCUICROP,MONTH,VEARI.COEFICROP,MONTH).PCTSUNIMONTH,YEAR) 002050
<br />TGCUICROP,YEAR)..TGCU(CROP,YEAR)+GCUICROP'MONTH,YEARI 002060
<br />190 CONTINUE 002070
<br />wRITEl6,1042)WDIST 002080
<br />
<br />.
<br />
<br />FUL~ FORTRAN IV
<br />
<br />RF06
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />165
<br />166
<br />1060
<br /> 1
<br />170
<br />1062
<br /> 1
<br />175
<br />106'1
<br /> 1
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />PROGRAM HEL.TON 00
<br />
<br />SOURCE
<br />
<br />DATE 21t/01t171t
<br />
<br />.
<br />
|