|
<br />
<br />.
<br />
<br />.
<br />
<br />FULL FORTRAN IV
<br />
<br />RF06
<br />
<br />PROGRAM HELTON 00
<br />
<br />SOURCE
<br />
<br />OATE 2"/04;/74
<br />
<br />.
<br />
<br />.
<br />
<br />LABEL caNT . , . 1 . . . . /. . oj .2, . . a / . . . .3' . , " /- . . f ~. . . II. i . , 5. . . ./. . . .6. . . ,I. . . .1. . . . PAGL IN
<br />GO TO 299 .. 001560
<br />140 DO 14;5 YEAR-YEAR1,VEAR2 001570
<br />DO 1"5 MONTH=1,6 001580
<br />GCUICROP,MONTH+2,YEARl=COEF(CROP,MONTHI.PCTSUNIMONTH+2,YEARI 001590
<br />TGCUICROP,YEAR)=TGCUICROP,YEAR)+GCUICROP,MONTH+2,YEARl 001600
<br />145 CONTINUE 001610
<br />WRITEI6,1042)WD~ST 00~620
<br />WRUEI611054;). 0~Hi6.30
<br />1054 FORMAT I 'O','MONTHLY GROSS CONSUMPTIVE USE OF GRAIN SORGHUM BY THE 00164;0
<br />1 MODIFIED JENSEN-HAISE METHOD IN INCHESI) 001650
<br />WRITEI6,104;8l 001660
<br />wRITEI6,1056) 001670
<br />1056 FORMAT I '0 I,.' YEAR JUNE .J.UL Y AUG SEPT OCT 001680
<br />1 TOTAL') 001690
<br />WRITEI6,1048) 001700
<br />DO 150 YEAR=YEAR1,YEAR2 001710
<br />NYYY=YEAR+BASEYR 001720
<br />WRITEI6,1058INYYY'IGCU(CROP,MONTH,YEAR),MONTH.3,7),TGCUICROP,YEARI 001730
<br />1058 FORMAT I , ','19',I2,lX,6(3X,F7.31) 00174;0
<br />150 CONTINUE 001750
<br />GO Ta 299 001760
<br />155 IFICROP-6)160,185,185 001770
<br />160 DO 165 YEAR.YEAR1,YEAR2 001780
<br />DO 165 MONTH.l,? 001?90
<br />GCU(C~OPIMONTHIYEAR).COEF(CROP~MONTH1.PCTSUN{MONTH,YEARI 001800
<br />TGCUICROP,YEAR).TGCU(CROP,YEARI+GCU(CROP'MON~H,YEARI 001810
<br />CONTINUE 001820
<br />WRITEI6,104;2)WDIST 001830
<br />IF(CROP-5)166'1?0,1?0 00184;0
<br />WRITEI6,1060) 001850
<br />FORMAT(lO','MONTHLY GROSS CONSUMPTIVE USE OF ALFALFA BY THE MODIFI .001860
<br />ED JENSEN-HAISE METHOD IN INCHESf) 001870
<br />GO TO 175 001880
<br />WRITE16,1062l 001890
<br />FORMATI101;IMONTHLY GROSS CONSUMPTIVE USE OF SUGAR BEETS BY THE MO 001900
<br />DIFIED JENSEN-HAISE METHOD IN INCHES') 001910
<br />WRITE(6,1048) 001920
<br />WRITE16,10641 001930
<br />FORMAT(IOI,'YEAR APRIL MAY JUNE JULY AUG 001940
<br />SEPT OCT TOTAL') 001950
<br />WRITEI6,104;8) 001960
<br />DO 180 YEAR.YEAR1,YEAR2 001970
<br />NYYY.YEAR+BASEYR 001980
<br />WRITEI6,1066)NYYY'IGCUICROP,MONTH,YEARI,MONTH=1,71,TGCU(CROP,YEARI 001990
<br />1 066 -F-a~M-A.:rt-t---~.'7,1-~""rf'2T1;)(--I1!'( 3)('; F '7-...3'~'~"-""" ." ",'_.",-"", . .,. --,_., .,~.".. ""1:l1:l2()Qt)" . ,.
<br />180 CONTINUE 002010
<br />GO TO 299 002020
<br />185 DO 190 YEAR.YEAR1,YEAR2 002030
<br />DO 190 MONTH=1,3 00204;0
<br />GCUlCROP,MONTH,YEAR)=COEF(CROP,MONTH).PCTSUNIMONTH,YEARl 002050
<br />TGCUICROP;YEARI=TGCUICROP,YEAR)+GCUICROP,MONTH,YEARI 002060
<br />190 CONTINUE 002070
<br />WRITEI6,1042lWDIST 002080
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
|