Laserfiche WebLink
<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 />FULL 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 /> <br />PROGRAM HELTON 00 <br /> <br />SOURCE <br /> <br />DATE 24/04/74 <br /> <br />RF06 <br /> <br />LA BEL ceNT . . . 1 Ii i' . ./. . . Ii 2 ill . . j /. , . .311 Ii . -/- . . . 4' . . . /. . . II 5 Ii . . ,I. . . .6. . . ,I. . . .7. . . . PAGL I N <br /> <br />1110 <br /> <br />DO 460 YEAR=YEAR1JYEAR2 <br />NYYY..YEAR+BASEYR <br />WRITEI6Jlll0INYYYJ(HDRQIMONTHJYEARlJMONTH..1J?)JTHRlYEAR) <br />FORMATl' IJI19IJI2dXJ8(3XJF?'0)) <br />DO 460 MONTH..1J7 <br />TWRlMONTH,YEARI..TWRlMONTHJYEARI+HDRQIMONTHJYEARI <br />TOTWR tYEARI=TOTWR( YEAR I +HORQIMONTH1 YEAR)' <br />C'DNTI NUE <br />WRITEI6Jl0/;8) <br />WRITEl6J1112lWDIST <br />FORMAT( 111,6XJ 'TOTAL WATER REQuIRED TO MeET THEORETICAL DEMANDS IN <br />WATER DISTRICT NO,IJI31 <br />WR I TE I 6J.l.0/;8 I <br />. WRITEl6Jl0481 <br />WRITE (6J 1064) <br />wRITE I 6J 104S I <br />DO /;70 YEAR..YEAR1JYEAR2 <br />NYYY"YEAR+BASEYR <br />WR ITE 1.6:' 111..)NYYY.) (TWR I MONTHJYEAR.) ,MONTH"b 7) J TOTWR.( Y.EAR I . <br />FORMAT(' IJ 11~Pd2dxJ8(2XJF8'0)) <br />CONTINUE <br />STOP <br />END <br /> <br />00~680 <br />00:3-690 <br />003700 <br />00~710 <br />003720 <br />003730 <br />003740 <br />0031150 <br />003760 <br />003770 <br />003780 <br />003790 <br />0038.QO. <br />00.3810 <br />003820 <br />003830 <br />003840 <br />003850 <br />003860 . <br />OO~870 <br />003880 <br />003890 <br />00~900 <br /> <br />..60 <br /> <br />1112 <br /> <br />1 <br /> <br />11 14 <br />470 <br />500 <br /> <br />CALLED SUSROUTI NE <br />QFREAD QINOUT QFINIO <br />SCALAR ALLOCATION <br />00000 YEARl OOOD/; YEAR2 <br />000E4 NY OOOES MONTH <br />OOOF8 I OOOFC NO ITCH <br />0010C RQl 00110 RQ2 <br />00120 RQ6 <br />ARRAY ALLOCATION <br />00124 PCTSUN 003EO RSO <br />017CS TGCU OU20 TEP <br />01064 THR 010CS NCROP <br /> <br />QFWRIT <br /> <br />eSTOP <br /> <br />EXIT <br /> <br />:CHS <br /> <br />00008 SASEyR <br />OOOEC NYYY <br />00100 K <br />00114 RQ3 <br /> <br />OOOOC WDIST <br />OOOFO CROP <br />00104 TOTAC <br />00118 RQ/; <br /> <br />OOOEO YEAR <br />000F4 NO <br />o010B EFF <br />0011e RGi5 <br /> <br />003FC TEMP 006S8 COEF 00760 GCU <br />OlAS.,. ACRE OlA9C LOSS 01AAB HORQ <br />01DE8 TWR 020A4 TOTWR <br />'"'''''''''''~''W''''''' """'""""'"-".'~"~'"" V-'_N,",~~ "",'_" "."',"" '" '" "~M,___,,,..~~" ""'_"'"''''^''' ".,.,."+-,,,,",,<<>, <br />