Laserfiche WebLink
<br />" <br /> <br />DOll "'~9 <br />.....1\JuV <br /> <br />C <br /> <br />IF(TTLWYO.LT.O.O) THEN <br />WYOOVR ~ WYOOVR TTLWYO <br />TTLWYO ~ O. 0 <br />ENDIF <br />LINGLE CANAL <br />FLOW(77+48.J) - HDATA(23.J) <br />FLOW(77+49.J) - AMINI(FLOW(77+48,J),DDATA(IO).TTLWYO) <br />FLOW(77+S0,J) - FLOW(77+48.J) - FLOW(77+49,J) <br />FLOW(77+S0,J) - AMIN1(FLOW(77+S0,J),TTLSTO) <br />FLOW(77+49.J) - FLOW(77+48,J) - FLOW(77+S0.J) <br />TTLSTO - TTLSTO - FLOW(77+S0.J) <br />TTLWYO - TTLWYO - FLOW(77+49.J) <br />IF(TTLWYO.LT.O.O) THEN <br />WYOOVR - WYOOVR TTLWYO <br />TTLWYO - 0.0 <br />ENDlF <br />WRIGHT-MURPHY (1st. APPROPRIATION) <br />FLOW(77+S1.J) - HDATA(2S.J) <br />FLOW(77+S2.J) - AMIN1(FLOW(77+S1,J).DDATA(11).TTLWYO) <br />FLOW(77+S3.J) - FLOW(77+S1,J) - FLOW(77+S2.J) <br />FLOW(77+S3.J) - AMIN1(FLOW(77+S3.J).TTLSTO) <br />FLOW(77+S2.J) - FLOW(77+S1.J) - FLOW(77+S3.J) <br />TTLSTO - TTLSTO - FLOW(77+S3,J) <br />TTLWYO - TTLWYO - FLOW(77+S2.J) <br />IF(TTLWYO.LT.O.O) THEN <br />WYOOVR - WYOOVR TTLWYO <br />TTLWYO - 0.0 <br />ENDIF <br />GRATTAN CANAL (2nd. APPROPRIATION) <br />PRENAT - FLOW(77+2S.J) <br />TTLDIV - AMIN1(FLOW(77+24.J)-FLOW(77+2S,J).DDATA(12).TTLWYO) <br />FLOW(77+2S,J) - FLOW(77+2S.J) + TTLDIV <br />PRESTO - FLOW(77+26,J) <br />FLOW(77+26.J) - FLOW(77+24,J) - FLOW(77+2S,J) <br />STG - FLOW(77+26.J) - PRESTO <br />STG = AMIN1(STG,TTLSTO) <br />FLOW(77+26,J) - PRESTO + STC <br />FLOW(77+2S.J) - FLOW(77+24,J) FLOW(77+26.J) <br />TTLDIV - FLOW(77+2S,J) - PRENAT <br />TTLSTO ~ TTLSTO - STG <br />TTLWYO - TTLWYO - TTLDIV <br />IF(TTLWYO.LT.O.O) THEN <br />WYOOVR - WYOOVR TTLWYO <br />TTLWYO - 0.0 <br />ENDIF <br />WRIGHT-MURPHY CANAL (2nd. APPROPRIATION) <br />PRENAT - FLOW(77+S2.J) <br />TTLDIV - AMIN1(FLOW(77+S1,J)-FLOW(77+S2.J).DDATA(13).TTLWYO) <br />FLOW(77+S2.J) - FLOW(77+S2.J) + TTLDIV <br />PRESTO ~ FLOW(77+S3.J) <br />FLOW(77+S3,J) - FLOW(77+S1,J) - FLOW(77+S2,J) <br />STG - FLOW(77+S3,J) - PRESTO <br />STG - AMIN1(STG,TTLSTO) <br />FLOW(77+S3.J) - PRESTO + STG <br />FLOW(77+S2.J) - FLOW(77+S1,J) - FLOW(77+S3.J) <br /> <br />C <br /> <br />c <br /> <br />C <br /> <br />29 <br />