|
<br />,.:~~~
<br />, ."0 '~'(f~ "
<br />~;I- I. \,,:,~'
<br />
<br />C INCREMENT INLAND LAKES GUERNSEY AND GLEN DO BY ACCRURAL
<br />OWN(5) = OWN(5) + ACCIL~
<br />Oh'N(6) = OWN(6) + ACCIL~'
<br />FLOW(196,J) = OWN(5) + OWN(6)
<br />RETURN
<br />END
<br />C GUERNSEY OWNERSHIP ACCRURAL
<br />SUBROUTINE GURACC(NPASS)
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*l ANS
<br />DIMENSION ISAVE(48),IPLOT(24) ,IRES(15)
<br />COMMON CDATA(85),TABLE(10,42,13),FLOW(224,13),HDATA(42,12),
<br />+IFRST,IGROUP(40),HOLD(224,13),ADATA(35,12),ISTART,IEND,J,I,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,8) ,ATHEAD(10,8),
<br />+ALHEAD(224,4),AGHEAD(40,4),CNAME(85,4),ISTUDY,ANAME(35,8),RDATE,
<br />+OWN (11) , OWNACC (7) , GAIN (5) , STORE (7) , Oh'IWlAX (6) , Oh'NPRE (11) , PREACC (7)
<br />ACCRU = OWNMAX(4) - OWNACC(4)
<br />ACCGUR = O.
<br />C CHECK IF PATHFINDER HAS FILLED
<br />IF(NPASS.EQ.1) THEN
<br />DO 10 II = 5,1,-1
<br />IF{ACCRU.GE.GAIN{II)) THEN
<br />ACCGUR = ACCGUR + GAIN(II)
<br />ACCRU = ACCRU - GAIN(II)
<br />GAIN(II) = 0.0
<br />ELSE
<br />ACCGUR = ACCGUR + ACCRU
<br />GAIN(II) = GAIN(II) - ACCRU
<br />ACCRU = 0.0
<br />ENDIF
<br />10 CONTINUE
<br />ELSE
<br />DO 20 II = 5,3,-1
<br />IF(ACCRU.GE.GAIN(II)) THEN
<br />ACCGUR = ACCGUR + GAIN{II)
<br />ACCRU = ACCRU - GAIN(II)
<br />GAIN (II) = 0.0
<br />ELSE
<br />ACCGUR = ACCGUR + ACCRU
<br />GAIN(II) = GAIN(II) - ACCRU
<br />ACCRU = 0.0
<br />ENDIF
<br />20 CONTINUE
<br />ENDIF
<br />FLOW(186,J) = ACCGUR
<br />OWNACC(4) = Oh'NACC(4) + ACCGUR
<br />FLOW(190,J) = FLOW{190,J) + ACCGUR
<br />RETURN
<br />END
<br />C GLEN DO OWNERSHIP ACCRURAL
<br />SUBROUTINE GLNACC(NPALC,NPSEM,NPGLN)
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CN~1E,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*l ANS
<br />DIMENSION ISAVE(48),IPLOT(24),IRES(15)
<br />COMMON CDATA(85),TABLE(10,42,13) ,FLOW{224,13) ,HDATA{42,12),
<br />+IFRST,IGROUP(40),HOLD(224,13),ADATA(35,12),ISTART,IEND,J,I,
<br />
|