Laserfiche WebLink
<br />- - - - - - - - - - ~ - -- - _ _ _ _ _ ~ -l. ... _ _ _ _ _ _ _ _ __ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ? _ _ _ _ _ _ _ _ _ _ _ _ <br /> <br />. <br /> <br />. <br /> <br />FULL FORTRAN IV <br /> <br />RF06 <br /> <br />. <br /> <br />PROGRAM HELTON 00 <br /> <br />SOURCE <br /> <br />OATE 24/04/74 <br /> <br />LABEL caNT i . i 1 . . . II. iI . .2. 8 . i / fI . _ t:3 i . . ./- - - - 4-.. . . _/_ . . .5. . . ./. . . .6. . . ./. . . .7. . . . PAGL I N <br /> <br />. <br /> <br />. <br /> <br />15 <br />1035 <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br /> 17 <br />C <br />C COMPUTE <br />C <br /> 1038 <br /> 1040 <br /> 100 <br /> 105 <br /> 110 <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />115 <br />10'+2 <br />120 <br />10H <br /> 1 <br />125 <br />10'+6 <br /> 1 <br />130 <br />10'+8 <br />1050 <br /> 1 <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />. <br /> <br />1052 <br />135 <br /> <br />1 <br /> <br />DO 15 YEAR-YEAR1.YEAR2 <br />DO 15 MONTH-l.7 <br />PCTSUNlMONTH.YEAR)=.0141.lTEMPIMONTH.YEAR)-14'261. <br />PCTSUNIMONTH.YEAR) <br />CONTI NUE <br />WRITEe6.1035) <br />FORMAT C., 1. '.' AVERAC3E OA.n. Y P.OTEN.TIAL EV APOTRANSPIRA lION (IN/DAY) US <br />I.NG AP.PRO~' El'lERC3Y BUOG~ET' I . <br />WRltE16.1015)WDIST <br />WRITE e 6.1020) <br />WRlTE(611022) <br />DO 17 YEAR=YEAR1.YEAR2 <br />NYYY=YEAR+BASEYR <br />WRITEe6.1025INYYY.lPCTSUNlMONTH.YEARl.MONTH.l.71 <br />CONTINUE <br /> <br />GROSS CONSUMPTIVE USE FOR ALL CROPS <br /> <br />001030 <br />001040 <br />001050 <br />001060 <br />001070 <br />0010S0 <br />001090 <br />00,1100 <br />001110 <br />001120 <br />001130 <br />001140 <br />0.01150 <br />001160 <br />001170 <br />0011S0 <br />001190 <br />001200 <br />001210 <br />.001220 <br />0012.30 <br />001240 <br />001250 <br />001260 <br />001270 <br />001280 <br />001290 <br />001300 <br />001310 <br />001320 <br />001330 <br />001340 <br />001350 <br />001360 <br />001370 <br />001380 <br />001390 <br />001400 <br />001410 <br />001420 <br />001430 <br />001'140 <br />001450 <br />001460 <br />".&eHre <br />0014S0 <br />001490 <br />001500 <br />001510 <br />001520 <br />001530 <br />001540 <br />001550 <br /> <br />. <br /> <br />1 <br /> <br />REAOI5.1038INOIST.lNCRCPICROPl.CROP-I.61 <br />FORMAT1I3.2X.6Ill <br />DO 100 CROP=1I6 <br />REAoe5.1040)ICOEFeCRop.MONTH).MONTH-l.71 <br />FORMATe7x.7F4'2) <br />CONTI NUE <br />DO 29.9CROP=I.6 <br />IFlNCRopeCROP)l299.299.105 <br />IF'1 CROP-3 l 110.140.155 <br />00 115 YEAR=YEAR1.YEAR2 <br />DO 115 MONTH=1.6 <br />GCUICROP.MONTH+l.YEAR)=COEFeCROP.MONTHI.PCTSUNIMONTH+1.YEAR) <br />TGCUICROP.YEAR)=TGCUICROP.YEAR)+GCUICROP.MONTH+l.yEARl <br />CONTINUE <br />WRITEe6.1042INOIST <br />FORMATlll'.32X.'NATER DISTRICT NO.I.I3) <br />IFeCROp-l)120.120.125 <br />WRITElc.10H) <br />FORMATe 'OI.'MONTHLY GROSS CONSUMPTIVE USE OF CORN BY THE MODIFIED <br />JENSEN-HAISE METHOD IN INCHES') <br />GO TO 130 <br />WRITElc.l0,+6) <br />FORMATIIOI.IMONTHLY GROSS CONSUMPTIVE USE OF POTATOES BY THE MODIF <br />lED JENSEN-HAIsE METHOD IN INCHESI) <br />WRITEI6.10,+S) <br />FORMATl' '.IX) <br />..WR.I 'l"-i.46~1~5-Q..l.~,.~. .' . "-.' ........ <br />FORMATIIOI.'vEAR MAY <br />T OCT TOTAL'l <br />wRITE 16.10'+8) <br />DO 135 YEAR.YEAR1.YEAR2 <br />NYYY.YEAR+BASEYR <br />WRITE(6.1052lNYYY. IGCU(CROP.MONTH.YEAR).MONTH-2.7).TGCUlCROP.YEARl <br />FORMAT( I '.119Id2dx.713x.F7'3)) <br />CONTI NUE <br /> <br />JUNE <br /> <br />JULY <br /> <br />AUG <br /> <br />SEP <br />