|
<br />, ' 0006:gS-
<br />,
<br />
<br />$STORAGE:2 ~
<br />$LP.RGE
<br />$DEBUG
<br />C STORAGE OWNERSHIP AC~pUNTING
<br />SUBROUTINE OWNSHP(PREDWN,EXCESS,PRE2,PRESTOR,DCFLAG)
<br />CHARACTER*10 TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*8 ALHEAD
<br />
<br />'-'U1ID7Ir>ITlL>'D+c:;. TCl'flnnV
<br />......0.4..............&..a......"....,. ......................
<br />
<br />CHl'.RACTER*l ANS
<br />DIMENSION COEFFS(2,7),AVEV(12,7)
<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,IEN D,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(ll) ,OWNACC(7),GAIN(5) ,STORE(7),OWNMAX(6) ,OWNPRE(11),PREACC(7)
<br />DATA AVEV 1.27, .11, .07, .08, .13, .23, .32, .50, .61, .61, .51, .38,
<br />1.27, .11, .07, .08, .13, .23, .32, .50, .61, .61, .51, .38,
<br />1.28, .11, .09, .09, .12, .21,.34, .46, .58, .60, .49, .41,
<br />1.29, .13, .10, .08, .13, .22, .33, .46, .56, .55, .46, .41,
<br />1.29, .13, . 10, .08, .13, .22, .33, .46, .56, .55, .46, .41,
<br />1.23, .12, .11, . II, .14, .16, .30, .45, .56, .65, .56, .41,
<br />1.14, .07, .08, .09, . 13 , .22, .35, .45, .48, .51, .45, .371
<br />DATA COEFFS/.0971,.7748,
<br />1.0317, .6584,
<br />1.1511,.7192,
<br />1. 0970, .6395,
<br />1.1213, .6188,
<br />1.1892,.6722,
<br />1.1922,.70461
<br />IF(I.GT.l) GO TO 20
<br />IF(J.EQ.l) THEN
<br />INITIALIZE OWNERSHIP BY RESERVOIR
<br />C SEMINOE OWNERSHIP
<br />OWN (1) = CDATA(37)
<br />C PATHFINDER OWNERSHIP
<br />OWN(2) = CDATA(38)
<br />C GLENDO OWNERSHIP
<br />OWN(3) = CDATA(39)
<br />C GUERNSEY OWNERSHIP
<br />OWN(4) = CDATA(40)
<br />C IN. LAKES OWNERSHIP (GUERN)
<br />OWN(5) = CDATA(41)
<br />C IN. LAKES OWNERSHIP (GLEND)
<br />OWN(6) = CDATA(42)
<br />C EXCESS TO OWNERSHIP
<br />OWN(7) = CDATA(43)
<br />C PATHFINDER OWNERSHIP IN GUERNSEY RESERVOIR
<br />OWN(8) = CDATA(44)
<br />C ETO FROM LOWER SYSTEM
<br />OWN(9) = CDATA(45)
<br />C ETO FROM UPPER SYSTEM
<br />OWN(10) = CDATA(46)
<br />C ALCOVA OWNERSHIP
<br />OWN(11) = CDATA(47)
<br />C SET MAXIMUM OWNERSHIP
<br />C KENDRICK OWNERSHIP
<br />OWNMAX(l) = CDATA(48)
<br />~ PATHFINDER OWNERSHIP
<br />OWNMAX(2) = CDATA(49)
<br />C GLENDO OWNERSHIP
<br />
|