Laserfiche WebLink
<br />, <br /> <br />, <br /> <br />*.;.IC: <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />C <br />( <br /> <br />c~x P~REEMLA~O C;AO <br />TMIS P~CGRA~ SI~ULAT <br />RE~ERVOIR A~D ASPI~~ <br /> <br />~PG~ ~~L~NIAS?F~~ <br />S CP RATION FJD TAYLOR PAR~ <br />U!\:I <br /> <br />C'\ <br />I ,. <br />r., <br /> <br />c <br /> <br />VARIABLE.S: <br />AB- oLU= M=S~ ~ CC~FFI(IENT <br />~C- CRYS1~L ~ CO~F~l(IE~T <br />AP- ~ORR(w PCINT 6 CCEFflCI=~T <br />A1- TAYLCR PA~K ~ CO~fFICIENT <br />AX- YtA~lY AVE~~~ES <br />AX~VG- PEKljC Y~ARLY AV~r~GES <br />A~T0T- PE~IuC Y~~~LY T~T:LS <br />~b- dLU~ ~~SA ~ (OEF~ICIENT <br />~C- CRYSTAL e C~cF~I(IE~T <br />oMoY- oLL~ ~tS~ S1P~SS <br />~~EL- 5LLE ~~S~ ~L[VAT!G~ <br />~~EOF- SLUE ~ES~ ~~GINNI~~ 5T~~t~E <br />~Mlr~- aLl~ ~5S~ ~I~I~U~ ;~LE~5~ <br />=MLEL- ~lUE ~tS~ tL=V~TICN FC~ tLEV~TIO~-5T~PAG~ OETE~MINATICN <br />5ML5T- ~lUE ~:S~ )T~~AG= FG~ :l~VATiON-STO~AG= OfTER~INATION <br />3MPG- SLl~ MESA ~~~~; Gf'~RjT~~ <br />~MPP- eLl= ~~~~ FC~tt?L~~T ~fL:~S: <br />cMR=L- 3LU~ w:S~ ~~lr~S~ <br />~MSTC- =LU~ ~2S~ STJr~G= <br />9~TPMAX- 8LU~ ~~~A + TAYLOR PA~~ Y=~~lY ~A!I~UM ST~P.AGE <br />S~- MGRRCW P(I\1 C C:~fF1GIc~T <br />3T- TAYl~~ PA~~ ~ CJEFFI:I~~T <br />BTARG- T~YLG~ cA~~ TARS=T 3TCR~G~ <br />~TPA- ~LLE H~S~ + T~YLO~ p~~K 'E~~LY ~dXIMlJM AVEPAGE <br />CMIN- CPYSTAL ~I~I~U~ ~El~~5~ <br />CR8Y- CR~ST~l ~YP~55 <br />C~dY~~~- p~QIOD ~tXI~U~ CRYST~l ~yo~SS <br />C~PG- CkySTAl ~Sft=~ GEN~~~T~~ <br />CRPP- C~YSTAl 'GWfRPlA~!T R~LEAS~ <br />CRY~EL- C~YS1~L P~l~ASE <br />FC- FG"~(~ST <br />NY- NUNbE~ OF YEC~S CF FL~= <br />PNPG- Ma~~OW pnl~T FC~rr b~N~~~T~C <br />PN~:l- H(RRuft PuI~T ~EL~:S~ (P2w~~Ol~NT) <br />T- Y=ARLl TCHLS <br />~MAA- TAYL1P p~p~ ~~~i~U~ ~~lEASf <br />.T:TAVG- F~~IC~ TCTAl ~Vf~'~E <br />TP~JP- T~YLJ~ P4~~ :~uI~~I~~ ~Tr;~~GE <br />TPII~- T'YLJ~ p,~~ IN~L~~ <br />TPR=l- TDYLG~ PA~K P~lF~~t <br />TPSTO- TtYLGD p~~~ ST~P~GE <br />TSTuR- ~LUE ~:~~ + raYLS~ P~~K T~RGET ST[KdG~ <br /> <br />. <br /> <br />I"'r-'\- <br /> <br />.- <br /> <br />. <br /> <br />c <br />c <br />c <br />c <br />c <br />c <br />c <br />c <br />c <br />( <br />c <br />c <br />c <br />c <br />c <br />( <br />c <br />c <br />c <br /> <br />c <br /> <br />c <br />c <br />c <br />c <br />c <br />c <br />( <br /> <br />COMMON IAII 3C(12),BP(]2)fE~(i2)t~T(!2) <br />CQMMON IAil FC(74112),TST~~(1~),TKAX(1?)t~TA~G(lZ)t <br />.AC(74,12)ttP(7,,12)r:5(1'll~),AT(74112),(~IN(12) <br />CCMMG~ I~jl TPI~(7,,12)IT~~EL(74112)rTD~TC(74flL),eMIN(74,12), <br />+3MPcL(74,12),~~5T[(7,,12),F~D~L(~4f12),CPY~:l(74,12),BML$T(~4)f <br />+~ML~L(24),:MEl(74,lL),~~DG(741]2) <br />CO~M1r. IA41 ~~OP(7~,12),13MeY(74,1:),:~PP(74112)ICReY(74112), <br />+PN~~(74112),CRP~(74,12) <br />DIM~~SI0~ T(lL)tA~(1?)t~xtct(12),~x3v;(12)tl)mt~~~x(14) <br />d~ta ~xtot/12*O.rl <br />c~an(unit=4,fil~:.~~ol.d~t'tst~tw5;'old') <br />open(unlt=~ffl1a='~~p2.d~t't5t~tus='~ld') <br />