Laserfiche WebLink
<br />~~----------~-~- - ~~ -,---~--- ~~-- ~- -- - - ~ --- --~--------~--- <br /> <br />. <br /> <br />ERROR <br /> <br />. <br />. <br />PAGE 006 <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 />PROGRAM HEL.TON 00 <br /> <br />SOURCE <br /> <br />DATE 21t/01t171t <br /> <br />R.06 <br /> <br />. <br /> <br />LABEL CONT <br /> <br />. . -1- . . ./. .... .2. .. . ./. I' .. 3 Iii' " _/_ . . ..... . . ./. it, . 5.. I ./. . t t ~. . . ,I. . . _ 7. . t . PAGL I N <br />WRITEl6,101t81 . 002620 <br />00385 YEAR..YEAR 1, YEA,R2 002630 <br />NYYV..YEAR+BASEYR 002640 <br />WRITE(6,1086)NYYY,lTEHpIMONTH,YEARI,MONTH-1,7I,TEP(VEARl 002650 <br />FORMATI t t, '19',I2,1X,8(3X,F7.3)) 002660 <br />CONTINUE 002670 <br />002680 <br />0.0.'24&0 <br />002700 <br />002710 <br />002720 <br />002730 <br />0027'10 <br />002750 <br />002760 <br />002770 <br />002780 <br />002790 <br />002800 <br />,00U10 <br />002820 <br />002830 <br />002840 <br />002850 <br />.0.02860 <br />002870 <br />002880 <br />002890 <br />002900 <br />002910 <br />002920 <br />002930 <br />002940 <br />002950 <br />002960 <br />002970 <br />002980 <br />002990 <br />00:3000 <br />003010 <br />003020 <br />00:3030 <br />00:301t0 <br />.00:3050 <br />....,.-...-....,..."..,.. .,,,.....,...... .,.._~O <br />003070 <br />00:3080 <br />00:3090 <br />003100 <br />003110 <br />003120 <br />003130 <br />0031/tO <br /> <br />. <br /> <br />. <br /> <br />1086 <br />385 <br /> <br />. <br /> <br />C <br />C COMPUTE <br />C <br /> <br />MONTHLV!oiEAD6ATEREQlJIREMENTS <br /> <br />. <br /> <br />READlo.1088INO <br />FORMAT(I2) <br />DO 460 I=1,ND <br />READ 15.1090) NO ITCH,l ACR.E (CRO~ l.~ CROP-1,6 I' (I,.OSS l K), K..1,.3) <br />FORMAT(I5,6(lX,F5'0),3{1X~F2.2)) <br />DO 450 YEAR-YEAR1,YEAR2 <br />THRlYEARI-O. <br />TOTAC"ACREI11+ACRE(21+ACRE(31+ACRE(4)+ACREl51+ACREl61 <br />EFF.. ( 1 . .L.OSS ( 1 ) ) . l 1. .L.OSS ( 2) I. ( 1 . -LOSS I 3 ) ) <br />RQ1=ACRE I It) "1'( GCU 1It,1,YEAR) -TEMP (1,YEAR.1 ) <br />IFIRQ1)386,387,387 <br />RQhO. <br />RQ2..ACREI51.IGCU(5,1,YEAR).TEMPl1,YEARI) <br />IF(RQ2)388.389,389 <br />RQ2..0. <br />RQ3..ACRE(6).,GCUl6,1,YEARI-TEMP(1,YEAR)) <br />IFlRQ3)S90,S91,391 <br />RCl3=O. <br />HORQll,YEAR)=lRQ1+RQ2+RQ3)/(12..EFF) <br />RQ1..ACRE(1).(GCU(1,2,YEAR).TEMP(2,YEARll <br />IFIRQ1)392.393.393 <br />RQ1aO. <br />RQ2-ACRE(21.IGCU(2,2,YEARl-TEMPI2,YEAR)) <br />IF(RQ2139'1,395,395 <br />R02..0. <br />R03..ACREIIII.(GCUl~'2.YEARI.TEMPl2,YEAR)) <br />IF(RQ31396.397,397 <br />RQ3..0. <br />RQII..ACRE(51.(GCU(5,2.YEAR).TEMPl2'YEAR)1 <br />IF(RQ~)398,399,399 <br />R04-0' <br />RQ5_ACRE(61.(GCUl6,2.YEAR)-TEMPl2,YEAR)) <br />IFIRQ511l00,~01,'101 <br />RQ5..0. <br />HDRQ(2,YEAR)..IRQ1+RQ2+RQ3+RQ~+RQ51/l12..EFF) <br />"R~1:lIlttR!T1.t1l' (GCtl ('lr3T'f!:~taff:f'l1'>.t"37'Y'!'"A'R.t).....,-,. <br />IFIRQ1)'102.'103.1t03 <br />RG1_0. <br />RQ2..ACRE(2).IGCU(2,3,YEAR)aTEMP(3,YEAR)) <br />IFIRQ211t01t,1t05,'105 <br />RQ2-0. <br />RQS..ACRE(3).(GCUIS,3,YEAR)aTEMPl3,YEARII <br />IFlRQ31~06,1t07.407 <br />RQ3..0. <br /> <br />1088 <br /> <br />. <br /> <br />1090 <br /> <br />. <br /> <br />. <br /> <br />386 <br />387 <br /> <br />. <br /> <br />. <br /> <br />388 <br />389 <br /> <br />390 <br />391 <br /> <br />. <br /> <br />. <br /> <br />392 <br />393 <br /> <br />. <br /> <br />391t <br />395 <br /> <br />. <br /> <br />396 <br />397 <br /> <br />. <br /> <br />398 <br />399 <br /> <br />. <br /> <br />1100 <br />1101 <br /> <br />. <br /> <br />1102 <br />1103 <br /> <br />. <br /> <br />~O~ <br />1105 <br /> <br />. <br /> <br />406 <br /> <br />. <br />