Laserfiche WebLink
<br />CREL;CFC(J,I)+TPEOP+~~EOP-TSTCP(~))/5 <br />EL.iE <br />CR~L;(FC(J,I)+TP~QF+SMECP-TSTJRC7))/C~-I) <br />ErJ[} IF <br />IFCCREL .LT. CMI~(I))CR~l~C~I~(I) <br />PKEL=C'EL-H(J,l) <br />3RtL=PPEl-jPCJ,I) <br />BMEGF=~MECP+RI~-3RfL <br /> <br />c:< <br />1-" <br />(' . <br /> <br />r~. :" <br /> <br />en <br /> <br />c <br />C PREVENT BLUE ~tS4 f~CM [V[~FIlLI~3 ~R CrA~I~G <br />C PLANT UFf llN~ ~I G~'~iN~ :[~rJ T0~ fA~ (R~5ERYED STC~AGE=166 KAF) <br />C <br /> <br />IF CJ~EO~ ~~T. 82~~~) THE~ <br />~REL~a~~l+3~t~P-E~1~~ <br />~t.;Eu~;e;::?~5 <br />"RE.L=~I<El+r.P(J, [) <br />C~fL=Pr;,.:l+ACCJt 1) <br />EL.. SE <br />=.",;0 If <br />If (3HfCP ~lT~ 1~~~) T~~tJ <br />BhEl=2~fl-(1~5~-~~~~P) <br />2 i.\ E ,j F = 1 r:: S ~ <br />Pk~L=3~El+~P(J,I) <br />CK~L=?Q:l+'CeJ,~) <br />eL.SE' <br />E~C I~ <br />TPINeJ, 1):=1 I~~ <br />TPR::l(J,I)=TR;:l <br />TPSTGeJ,I)~T?~2P <br />B...1I (I, e J, 1):= ~ I:-S <br />8MRELCJ,I)=~oEl <br />ShSTJ(J,I)=a~=cp <br />PNREleJ,I)=PREL <br />C~yp.ELeJ,I~:=CREL <br />FINJ CORRE~PONCING ~L~V~TI[N T~ ~LU~ ~~SA STaR~GE <br /> <br />. <br /> <br />c <br />c <br /> <br />(.0 75 1\.=1,(4 <br />IF C3rSTG(J,Il ~lT~ :~lST(~)) T~~tJ <br />L:=K-l <br />PRI\T .,B~ST~(J,I),EMLST(K),e~lST(l),9MlFl(K),~MlEl(l) <br />c~ELeJ,I;=ee~~ST[eJ,I)-2~LST(L))/(eMlST(~)-S~LST(L)))*(B~LEL(K) <br />~-o~L:L(L)).~ML~L(L) <br />CO TG 70 <br />ELSE- <br />E ~~C' I r= <br />75 (LmTItJU1:. <br />C P~lNl ~,B~EL(J,l),?~~TC(J,I) <br />C <br />C IF BLUE ME$C ~:l:ASE IS lES5 T~GN 0, <br />C CM~~~E elU= M~S~ ~ElE~SE T8 a ANC ~CjUST <br />C MCRRJ~ 4~D CRYSTAL PElE~S=S AccrR~I~GlY <br /> <br />. <br /> <br />c <br /> <br />c <br /> <br />7~ IF(3M~EL(J,I) ~LT. ~) T~~N <br />:-.uf ,.. o~ - L:~'REL(J,I) <br />~'-1f.:EL(J, D := Ij <br />PNREleJ,I) ; p~R~LeJ,I) + Su~ <br />C~Y~CLeJ,I) := C~~k:LCJ,I) + ~U~ <br />c.L .i:: <br />i: Nr! I r= <br />71 C.J~JT1r~u: <br />