|
<br />. '~"OM7n3
<br />. '.
<br />
<br />......-.,
<br />+NT,NCL,IE,NG,NL,NC,NA,NH,NYI,NRES,TITLE(2,S),ATHEAD(1O,S),
<br />+ALHEAD(224,4) ,AGHEAD(40,4) ,CNAME(S5,4),ISTUDY,ANAME(35,S),RDATE,
<br />+OWN(11),OWNACC(7),GAIN(5),STORE(7),OWN~~X(6),OWNPRE(11),PREACC(7)
<br />ACCGLl = O.
<br />ACCGL2 = O.
<br />ACCGL3 = O.
<br />ACCGL4 = O.
<br />ACCRU = OWNMAX(3) - OWNACC(3)
<br />ACCGLl = AMINl(ACCRU,GAIN(4))
<br />GAIN(4) = GAIN(4) - ACCGLl
<br />ACCRU = ACCRU - ACCGLl
<br />C CHECK IF ALCOVA OWNERSHIP FILLED
<br />IF(NPALC.EQ.l) THEN
<br />ACCGL2 = AMINl(ACCRU,GAIN(3))
<br />GAIN(3) = GAIN(3) - ACCGL2
<br />ACCRU = ACCRU - ACCGL2
<br />ACCGL3 = AMINl(ACCRU,GAIN(2))
<br />GAIN(2) = GAIN(2) - ACCGL3
<br />ACCRU = ACCRU - ACCGL3
<br />ENDIF
<br />C CHECK IF SEMINOE OWNERSHIP HAS FILLED
<br />IF(NPSEM.EQ.l) THEN
<br />ACCGL4 = AMINl(ACCRU,GAIN(l))
<br />GAIN(l) = GAIN(l) - ACCGL4
<br />ENDIF
<br />FLOW(19S,J) = ACCGLl+ACCGL2+ACCGL3+ACCGL4
<br />OWNACC(3) = OWNACC(3) + FLOW(19S,J)
<br />FLOW(203,J) = FLOW(203,J) + FLOW(19S,J)
<br />C CHECK IF GLENDO HAS FILLED
<br />IF(OWNACC(3).EQ.OWNMAX(3)) THEN
<br />NPGLN = 1
<br />ELSE
<br />NPGLN = 0
<br />ENDIF
<br />RETURN
<br />END
<br />C PATHFINDER OWNERSHIP ACCRURAL
<br />SUBROUTINE PATACC(NPASS)
<br />CHARACTER*lO TITLE,ATHEAD,AGHEAD,CNAME,ANAME,RDATE
<br />CHARACTER*S ALHEAD
<br />CHARACTER*5 ISTUDY
<br />CHARACTER*l ANS
<br />DIMENSION ISAVE(4S),IPLOT(24),IRES(15)
<br />COMMON CDATA(S5),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,S),ATHEAD(1O,S),
<br />+ALHEAD(224,4),AGHEAD(40,4),CNAME(S5,4),ISTUDY,ANAME(35,S),RDATE,
<br />+OWN(11),OWNACC(7),GAIN(5),STORE(7) ,OWNMAX(6) ,OWNPRE(ll) , PREACC (7)
<br />ACCRU = OWNY~X(2) - OWNACC(2)
<br />C KORTES TO PATHFINDER REACH
<br />ACCPTl = AMINl(GAIN(2),ACCRU)
<br />GAIN(2) = GAIN(2) - ACCPTl
<br />ACCRU = ACCRU - ACCPTl
<br />C SEMINOE INFLOW
<br />ACCPT2 = AMINl(GAIN(l),ACCRU)
<br />GAIN(l) = GAIN(l) - ACcPT2
<br />FLOW(175,J) = ACCPTl + ACCPT2
<br />OWNACC(2) = OWNACC(2) + FLOW(175,J)
<br />OWN(2) = OWN(2) + FLOW(175,J)
<br />FLOW(179,J) = OWN(2) + OWN(S)
<br />
|