Laserfiche WebLink
<br />~, <br /> <br />O n.l i:: I" <br />v '_' Q.] "t ~ <br /> <br />OWN(5) - OWN(5) . DINLGU <br />OWN(6) - OWN(6) - DINLGL <br />FLOW(196,J) - OWN(5) + OWN(6) <br />FLOW(193,J) - DINLGU + DINLGL <br />ENDIF <br />ELSE <br />RESDL - 0.0 <br />ENDIF <br />C(39): FIRST MEET GUERNSEY natural flow RELEASE FROM REACH GAINS <br />DO 50 II - 5,1,-1 <br />IF(GAIN(II).GE.RESDL) THEN <br />GAIN(II) - GAIN(II) - RESDL <br />RESDL - O. <br />ELSE <br />RESDL - RESDL GA1N(II) <br />GAIN(II) - 0.0 <br />END IF <br />50 CONTINUE <br />C(40): CHECK INLAND LAKES ACCRUAL [NEBfWYO] <br />IF(CDATA(82).EQ.l) THEN <br />C NEBRASKA CLAIM FOR INLAND LAKES <br />IF(ADATA(31,J).EQ.1.) THEN <br />C CHECK IF INLAND LAKES HAS FILLED <br />IF(OWNACC(5).LT.OWNMAX(5)) THEN <br />C CALL INLAND LAKES ACCURAL <br />CALL AINLAC <br />ENDIF <br />END IF <br />ENDIF <br />C(4l): CHECK IF GUERNSEY RESERVOIR HAS FILLED <br />IF(OWNACC(4).LT.OWNMAX(4)) THEN <br />C CALL GUERNSEY OWNERSHIP ACCRUAL <br />CALL GURACC(NPASS) <br />ENDIF <br />C(42): CHECK IF GLENDO RESERVOIR HAS FILLED <br />IF(OWNACC(3).LT.OWNMAX(3)) THEN <br />C CALL GLENDO OWNERSHIP ACCRURAL <br />CALL GLNACC(NPALC,NPSEM,NPGLN) <br />ENDIF <br />C(43): CHECK IF PATHFINDER HAS FILLED <br />IF(OWNACC(2).LT.OWNMAX(2)) THEN <br />C CALL PATHFINDER OWNERSHIP ACCRURAL <br />CALL PATACC(NPASS) <br />END IF <br />C(44): CHECK IF KENDRICK HAS FILLED <br />IF((OWNACC(1)+OWNACC(7)).LT.(OWNMAX(1)+OWNMAX(6))) THEN <br />C CALL KENDRICK OWNERSHIP ACCRURAL <br />CALL AKENACC(NPALC,NPSEM) <br />END IF <br />C(45): INLAND LAKES ACCRURAL WYOMING CLAIM (junior rights) <br />IF(CDATA(82).EQ.0.) THEN <br />IF(DCFLAG.EQ.l.) THEN <br />C CHECK IF INLAND LAKES HAS FILLED <br />IF(OWNACC(5).LT.OWNMAX(5)) THEN <br />CALL AINLWY(NPALC,NPSEM,NPGLN) <br /> <br />38 <br />