|
<br />,
<br />
<br />'"
<br />
<br />7G CuNTlNuE
<br />RETuRN
<br />END
<br />Su3kOUTINE P~ft~~(N~)
<br />CCM~JN 1~3~ Tr!~(74,12),TPREl(i~,1?).TPSTO(14,12),rMrN(74.12),
<br />.B~REL(7~,lt),~~STO(7~,12),FN~EL(1~,12),CRY~cL(74,12),~ML5T(24)t
<br />+cMLEL(24),~MEL(74,12),~~PG(74.12)
<br />C8MM8~ IA41 ~~PP(74,12),~~EJ(7;,12),CqPP(7~,12),C~~Y(74.12),
<br />~PNPu(74,12),C~P~(j4,1~)
<br />
<br />c'>
<br />'oo"
<br />t.',)
<br />~ .:-
<br />
<br />,-I
<br />
<br />c
<br />
<br />C LI~IT 3LUE ~ES4 P1~E~~LANT C~~ACITY TO l~J AI~D
<br />C OfTfRMIN[ F(~~~rLA~l :~l~a~~ :~C ~tPA5S
<br />C
<br />
<br />CiO dV J=l,t.Y
<br />OU ':' 1 1=1,1.::
<br />If (~M~(L(J,I) .GT. l~C) T~~~J
<br />:;/",.ppeJ, I)::: L~.
<br />c~:Y(J,I)~~~~cL(J,:)-1:0.
<br />cL~~
<br />~~?F(J,l)~~~~~~(J,I)
<br />=!';j IF
<br />IF (C~YR~L(J,I) .~T. lro) Tn?';
<br />CI\?.J(J,l)=l\JC.
<br />C~~f(J,l)=C~YR~~(J,r)-lO~.
<br />::::LSe
<br />C~PP(J,I)=CRY~:L(J,I)
<br />:.~~ Ii=
<br />
<br />.
<br />
<br />c
<br />C CALCULAT~ ~LU~ ~~S4 DOM[P (~rj~~AT~~
<br />C
<br />
<br />~MPG(J,1)=~MPP(J,I)~(:~EL(J,T)-7172.5)~9.~~~-4
<br />
<br />C CALCUL~T~ M(~~~~ P~l~T cJ~c~ S=~E~~TE~
<br />C
<br />
<br />PN~G(J,I)=F:I~El(J,I)~.~t
<br />
<br />C
<br />C CALCULATE ~~YST~L P[W;R ~~N~~6T~C
<br />C
<br />
<br />CpP~(J,r)~C~Op(J,r);.lS
<br />Jl l.~NTINU~
<br />JC CONTINU~
<br />R::TURN
<br />f. ,~:J
<br />
<br />.
<br />
<br />~
<br />
|