|
<br />- - - - - - - - - - - - - - - , - ,- -, - - - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - , - - - - - -- - - - -- - - -- - -
<br />
<br />.
<br />.
<br />PAGE OO?
<br />.
<br />E R
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />
<br />RF'06
<br />
<br />
<br />PROGRAM HELTON 00
<br />
<br />SOURCE
<br />
<br />DATE 2/t/0/t174
<br />
<br />RQ4-ACREI41.18CU14/3/YEAR)-TEMPI3/YEA~)1
<br />IFIRQ4)/t08/409,409
<br />RQl;_O.
<br />RQ5-ACRE(5).IGCUI5,3/YEARI-TEMPI3,YEAR))
<br />IFIRQ5)/t10,411,/t11
<br />RQ5..0.
<br />. RQ6-ACRE C61.fGCUL6,3, YEARI-TEMP.,C3,Y.EAR})
<br />I~IRQ6)1j.12/~13,1j.13
<br />RQ6..0.' ." .. .,
<br />HDRQI3,YEARI=IRQ1+RQ2+RQ3+RQ4+RQ5+RQ6)/C12..EFF)
<br />THRIYEAR)-HDRQI1,YEAR)+HDRQI2,YEAR)+HDRQC3/YEAR)
<br />DO 450 MONTH-4,?
<br />RQ1-ACREll).IGCUC1/MONTH/YEARI-TEMPCMONTH,YEAR))
<br />IFTRQH41/t,415,415 . ......
<br />RQhO.
<br />RQ2-ACREI21.(GCUC2,MONTH,YEARI-TEMPCMONTH/YEAR))
<br />IFIRQ2)416,/t17,l;17
<br />RQ2..0.
<br />RQ3dCREI31.CGCUc.3,MONTH,YEAR)-TEMPIMONTH/YEAR))
<br />IFIRQ3)/t18,/t19,/t19 .
<br />RQ3.0.
<br />RQl;-ACREI41.(GCUIl;/MONTH/YEAR)-TEMPCMONTH/YEARI)
<br />IF(RQ41420,421,421
<br />RQ4..0.
<br />RQ5-ACREISI.(GCU15,MONTH,YEARI-TEMPIMONTH,YEARI)
<br />IFIRQ5)422,4!3,423
<br />RQS=O.
<br />HDRQCMONTH,YEAR)=IRQ1+RQ2+RQ3+RQ4+RQ51/(12'.EFF)
<br />THRIYEARI..THRIYEAR)+HDRQ(MONTH,YEARI
<br />CONTI NUE
<br />WRITE(6,1042IWDIST
<br />WR IrE ( 6/1092) ND ITCH
<br />FORMATI'0'/35X/'DITCH NO. '/I5)
<br />WR IrE I 611 0941
<br />FORMATI10',16X/'MONTHLY HEADGATE
<br />WRITEC6,1096)TOTAC
<br />FORMAT('0',26X,'TOTAL IRRIGATED ACREAGE IS',F?O)
<br />WRITE(6,1048)
<br />WRITEI6/1098IACREll)
<br />FORMATI' ',28X/'ACREAGE OF CORN IS',F7.0)
<br />WRITEC6,1100)ACREC2)
<br />FORMATC' ',28X/'ACREAGE OF POTATOES ISI,F7.0)
<br />WRITE(6/1102)ACREC3)
<br />FORMAT! 1 ',28X,'ACREAGE OF GRAIN SORGHUM IS',F7.0)
<br />wUtt.L6.".UOJW A CR EJ /t..).....".,. ,.... .....,... ...,.. "_".""
<br />FORMATI' ',28X/'ACREAGE OF ALFALFA IS ,,1"7'01
<br />WRITEI6,1106)ACREI5)
<br />FORMATII ',28X/'ACREAGE OF SUGAR BEETS IS',F7.0)
<br />WRITEI6,1108)ACREI6)
<br />FORMAT!' '/28X/IACREAGE OF WINTER WHEAT IS'/F7.01
<br />WRITE16,10481
<br />WR IrE I 6,1064)
<br />WRITE (0,1048)
<br />
<br />....7.... A
<br />003150
<br />003160
<br />003170
<br />003180
<br />003190
<br />003200
<br />003210
<br />003.220
<br />003230
<br />003240
<br />003250
<br />003260
<br />00~270
<br />00:f280'
<br />003290
<br />003300
<br />003310
<br />003320
<br />003330
<br />0033/t0
<br />0(33350
<br />003360
<br />003370
<br />003380
<br />003390
<br />003400
<br />003410
<br />003420
<br />003/t30
<br />0031t40
<br />003/t50
<br />003460
<br />003/t70
<br />003/t80
<br />003't90
<br />003500
<br />003510
<br />003520
<br />003530
<br />003540
<br />003550
<br />003560
<br />003570
<br />003580
<br />.,.....,..w...eG-35~~,
<br />003600
<br />003610
<br />003620
<br />003630
<br />003640
<br />003650
<br />003660
<br />003670
<br />
<br />T
<br />
<br />. . i ~ . . ., .,.. 2 . . . i I . . . .3. . , .
<br />
<br />
<br />DIVERSION R~QUIREMENTS IN AC-F'T')
<br />
|