HrXfi-iCl-X 



7 CONTINUE 



CALL Sf4(HS.X) 



CALL TpwHTE(NlNLET,x,WSiOlNFLO«Vi»MlNliRNKtNT) 



IFL4Gl=X/0fLTB 



IF(lFL4Ql.Nt.lFL*GJ.»N0.1T*BLE.EQ,l) CALL TABLE 



IFL4G2»TFL»Gl 



IF(PKHT(5) )«0.8t«0 

 a CO^TINUF 



ITKST = 

 9 CONTINUE 



ISTfP=1STFP*1 



J=l 

 10 CONTINUE 



4J=A( J) 



CJsrcJ) 



00 11 Inl.NRIM 

 HlSH.nt-RYtn 



R?34j»(wi-aJ»*uxt«>ii) ) 



Y(l)ry(T)+R2 



R?»P?»P?*W2 

 I 41iXf6,l).4uX(*.I)*R2<iCJ»Rl 



If ( J-tt) 12.l5il5 

 12 CONTINUF. 



J"J*1 



IF(J.3) 1 JtlU.lJ 

 U CONTINUE 



X=Xt0.5*M 

 lU CONTINUE 



CML SETEQ(4MINT) 



to TO 11 



15 CONTINUF 

 IFlIIESn l6il6,?0 



16 CONTINUF 



DO 17 IiltNDIM 

 7 4UXtu.n«y(I) 

 ITtSTEl 



ISTFP»ISTEp*ISTFP"2 

 16 CONTINUE 

 IHLFslHLF+l 



X»«-H 



DO 10 Isl.NOIM 

 YdliAUXt 1,1) 

 DEMvt I)l»UX(2«n 

 9 4UX(fc.I)»4ul<(J.n 



GO TO 9 



20 CONTINUE 

 IHODBlSTeP/2 

 IFCr8TEp-lMOO-IM0[>)21,23i21 



21 CONTINUE 



INLET 



228 



INLET 



229 



INLET 



2J0 



INLET 



2il 



INLET 



2i2 



INLET 



2iJ 



INLET 



2la 



INLET 



2JS 



INLET 



236 



INLET 



2J7 



INLET 



236 



INLET 



239 



INLET 



2«0 



INLET 



2«1 



INLfcT 



iUi 



INLET 



2«J 



INLET 



2U1I 



I^LET 



2U5 



INLET 



SUb 



INLET 



217 



INLET 



2U8 



INLET 



2<t9 



INLET 



2b0 



INLET 



2^1 



INLET 



2b2 



INLET 



Ibi 



INLET 



25U 



INLET 



2bb 



INLET 



2b6 



INLET 



257 



INLET 



2b8 



INLET 



2b9 



INLET 



2bO 



INLET 



261 



INLET 



262 



INLET 



265 



INLET 



26<i 



INLET 



265 



INLET 



266 



INLET 



267 



INLET 



266 



INLET 



269 



INLET 



270 



INLET 



271 



INLET 



272 



INLET 



273 



INLET 



27(1 



INLET 



275 



INLET 



276 



INLET 



277 



INLET 



278 



INLET 



279 



INLET 



280 



36 



