<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 />
|