|
<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 />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />.
<br />
<br />FUL.L FORTRAN IV
<br />
<br />.
<br />.
<br />PAGE 008
<br />.
<br />ERROR
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />.
<br />
<br />RF06
<br />
<br />PROGRAM HEL.TON 00
<br />
<br />SOURCE
<br />
<br />DATE 21t/01t/H
<br />
<br />LABEL CON T . . . 1 . . . ./. . . .2. . . ,/. . . .3.. I . ./. . I' if.. . I ./- i . .5. . . ./, . . .6. . . ./. . . .? . . . PAGL I N
<br />
<br />1110
<br />
<br />DO '160 YEAR"YEAR1,YEAR2
<br />NYYY-YEAR+BASEYR
<br />WRITEI6,1110)NYYY'I~DRQ(MONTH,YEAR1,MONTH-1,7),THR(YEAR)
<br />FORMAT(' ',119'd2dX,S(3X,F7.0))
<br />DO 1160 MONTH..l,7
<br />TWRIMONTH,YEAR)..TWRIMONTH,YEAR)+HDRQIMONTH,YEAR)
<br />TOTwl<( YEAR l-TO.T.WR (YEAR J +HDRQ (M.ONTHiY,EAR)
<br />CON:r,INt.iE
<br />WRITEl6,10ItS)
<br />WRITE(6,1112IWDIST
<br />FORMATI'1',6X,'TOTAL. WATER REQUIRED TO MEET THEORETICAL DEMANDS IN
<br />WATER DISTRICT NO.I,I31
<br />W.R I TEl 6..,1 0481
<br />WRITE16,101t8)
<br />wRITE( 6,1061t)
<br />.~RITE I 6,101tS)
<br />DO 1170 YEAR-YEAR1,VEAR2
<br />NVYV..YEAR+BASEYR
<br />WRJTEI6,1111t~NYYY'tTWRIMONTH,YeAR),MONTH-1.11rTOTWRIYEAR1
<br />FOR.MATt' ,,119Id2,1)U812X,F8'0))
<br />CONTINUE
<br />STOP
<br />END
<br />
<br />003680
<br />0'03690
<br />'0'03700
<br />0'03710
<br />003720
<br />003730
<br />. 0037.lfO
<br />,<HfS,,50-
<br />003760
<br />003770
<br />003780
<br />003790
<br />00380'0
<br />003810
<br />0'0382'0
<br />003S30
<br />003Slt0
<br />003850
<br />0031360 .
<br />003870
<br />0038S0
<br />003S90
<br />003900
<br />
<br />1t60
<br />
<br />1112
<br />
<br />1
<br />
<br />1114
<br />470
<br />500
<br />
<br />CALLED SUBROUTINE
<br />QFREAD G1INOUT QF"INIO :CHS G1FWR!T G1STOP EXIT
<br />SCALAR AL.L.OCATION
<br />00000 YEARl 0000 it vEAR2 OOODS BASEYR OOOOC WOIST OOOEO YEAR
<br />OOOEII NV 000E8 MONTH OOOEC NVYY OOOFO CROP 000F'4 ND
<br />000F'8 I OOOFC NO ITCH 00100 K 00101t TOTAC 0010S t:FF'
<br />0010C RGll 00110 RQ2 001111 RQ3 00118 RGlII 0011C RQ5
<br />00120 RGl6
<br />ARRAY ALLOCATION
<br />001211 PCTSUN 003EO RSO 003FC TEMP 006BS COEF 00760 GCU
<br />017CS TGCU 01A20 TEP o U 8lI ACRE 01A9C L.OSS OUA8 HDRQ
<br />01D6'+ THR 01DCS NCROP 01DES TWR 020AIt TOTWR
<br /> , .~~" -,,,"-". .~~., -,,~., "-~~,- "--'~-'" -""--~"--- ~~"'''' ~~_...~."""-",, -~~- ,,~.~, .~~. " -'..'" ,~."'" ' "",""" ....,""',-<" ._~" ",-,,",-,,-,~,,"~",,-,,~ ""., ~" "".~,--",~.,. '",,_.,'-. ~"-"~'~""""~"'~._'- ,.,.-.,. -'." ,~_.
<br />
|