Laserfiche WebLink
<br /> <br />. <br /> <br />406 <br /> <br />READI5.i088lND <br />FORMATlI2) <br />DO H,O 1"lJND <br />READ.l !'i. 109.0 ) NO ITCHJ( ACRE (CROP l J.CRO.P=lJ 6) J CI.OSS; K). K...l.a) <br />FORMAT(ISJ611X.FS'O).3(lX.F2.2)) <br />DO 4S0 YEAR.YEAR1.YEAR2 <br />THRlYEAR)=O. <br />TOTAC=ACREll)+ACREI2)+ACREI3)+ACRE(4)+ACRE(SI+ACRE(61 <br />EFF.(1.-LOSSll)).11.-LOSSI2)).(1'-LOSS(3)) <br />RQ1=ACRE (4). IGCUI4.1.YEAR) -TEMP 11. YEAR) ) <br />IFlRQll316.387.387 <br />RQ1.0. <br />RQ2..ACRElS).(GCUIS.l.YEAR)-TEMPll.YEARI) <br />IFIRQ2)388.389.389 <br />RQ2.0. <br />RQ3=ACRE(6 i. I GCU (6.1. YEAR 1.-TEMPll.YEAR) ) <br />1FlR(3)390.391J391 <br />RQ3..0. <br />HDRQI1.YEAR)..(RQ1+RQ2+RQ3)/(12..EFF) <br />RQ1=ACREll1.(GCU(1.2.YEAR)-TEMP(2.YEAR)) <br />IFlR(1)392.393.393 <br />RQ1=0. .. . .. . <br />RQ2.ACRE(2).IGCUI2.2.YEAR)-TEMP(2iYEAR)) <br />1F(RQ21394.395.39S <br />RQ2=0. <br />RQ3..ACRE(4).(GCUI4.2.YEAR)-TEMP(2.YEAR)) <br />IFlRQ31396.397.397 <br />RQ3.0. <br />RQ4..ACRE(S).(GCU(5.2.YEAR)-TEMPI2.YEAR)) <br />1FiR(4)398.399.399 <br />RQ4..0. <br />RQS=ACRE(6).IGCUI6.2.YEAR)-TEMPi2.YEAR)) <br />1F(RQ5)400.401.401 <br />RQ5.0. <br />HDRQI2.YEAR)=(RQ1+RQ2+RQ3+RQ4+RQa)/(12..EFFl <br />fro1:ii~rr"m:trt'"t'n1~~~1'tP'r3'"l~r"'~~'"." <br />1F(RQ11402.403.403 <br />RQ1.0. <br />RQ2=ACRE(2).(GCUI2.3.YEAR)-TEMPI3.YEAR)1 <br />1FIR(2)404.405.405 <br />RQ2.0. <br />RQ3..ACRE(3).(GCUI3.3JYEAR)-TEMPI3JYEARl) <br />IFIRQ3l406.407J401 <br />RQ3..0. <br /> <br />002620 <br />002630 <br />002640 <br />002650 <br />002660 <br />002670 <br />002680 <br />OCe:.90 <br />002700 <br />002710 <br />002720 <br />002730 <br />.002140 <br />002750 <br />002760 <br />002770 <br />002780 <br />002790 <br />002800 . <br />002UO <br />002820 <br />002830 <br />002840 <br />002850 <br />00U60 <br />002870 <br />.002880 <br />002890 <br />002900 <br />002910 <br />002920 <br />002930 <br />002940 <br />002950 <br />002960 <br />002970 <br />002910 <br />002990 <br />003000 <br />003010 <br />003020 <br />003030 <br />003040 <br />003050 <br />""00'3"06"0' <br />003070 <br />003080 <br />003090 <br />003100 <br />003110 <br />003120 <br />003130 <br />003HO <br /> <br />. <br />. <br />PAGE 006 <br />. <br />ERROR <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 />FULL FORTRAN IV <br /> <br />Ri="06 <br /> <br />PROGRAM HELTON 00 <br /> <br />SOURCE <br /> <br />DATE 24/04/74 <br /> <br />. <br /> <br />LASE L CDNT . . . 1 . . . ./. . . .2. . . -/- . . i 3. . . . / . . . .4. . . -/- . . .5. . i ./. . . .6. . . ,I. . . .7. . . .? AGL I N <br /> <br />. <br /> <br />1086 <br />385 <br /> <br />WRITE16.10481 <br />DO 385 YEAR=yEAR1.YEAR2 <br />NYYY.YEAR+BASEYR <br />wR1TE(6.1086)NYYYJITEMPIMONTH.YEAR).MONTH"1.7).TEP(YEAR) <br />FORMATI t IJ t191.12.1X.813X.F7.3)) <br />CONTI NUE <br /> <br />M.QNTlolLY.HEAOGATE .RE.Q.U I.REMENTS <br /> <br />. <br /> <br />. <br /> <br />C <br />C COMPUTE <br />C <br /> <br />. <br /> <br />1088 <br /> <br />. <br /> <br />1090 <br /> <br />. <br /> <br />. <br /> <br />386 <br />387 <br /> <br />. <br /> <br />388 <br />389 <br /> <br />. <br /> <br />390 <br />391 <br /> <br />. <br /> <br />. <br /> <br />392 <br />393 <br /> <br />. <br /> <br />394 <br />395 <br /> <br />. <br /> <br />396 <br />397 <br /> <br />. <br /> <br />398 <br />399 <br /> <br />. <br /> <br />400 <br />'tOl <br /> <br />. <br /> <br />'t02 <br />403 <br /> <br />. <br /> <br />404 <br />405 <br /> <br />. <br />