16 SUM^=siJ'-*?*r)MfJ)/ri)J^'MsUMi)) 



HI TO'^N 

 f NO 



SUHWOijT 1N£ IMTERrN,T,L,'iO, A,Mi.i,f),TT««I»''L, IFLAG) 



C0MMnhj/MA0S/fST(<),in,oiJT(9,1)),RTfntn)|TX(<»,10)iRX(9,l05 

 niM^NSlUN T5( 10) .KS( U)1 

 RtAL ^4KL..Ll^U,K0.l.AMHL)AtN 



N ^ 1, s "^ ♦ K t) ♦ L 



L AMH()fi= 1 , 



F = (;■ , 



WC=l7o. 

 I C = (i 

 2 FNsf- 



IC=IC*1 



l.l=A*S(jKI (9,Hn/H()1 /f 1 . + 1 A MB HA) 



f-sfV(K(i«L. )*(Su*<Ttl,Ul. + WC/«n)»(i^.*fUTA*A*L/(<,*i.)mSV*Hn))).l,) 



IM iC.M.ln) (,(1 TU b 



If ( ( ARS(F-fj.M/n .I'l .n.rt^) no rn ? 



S TI=1 ,/( 1 .M AMrtUAl 



RI = 1, AMHIJA/f 1 .il AMH(U) 

 f S = f^/SS 



:, wHlu:(hiiv7) ^.^Sl^,l^u 



3Q7 rilKMAT ((r'nn t I F . F- S. U.I-.'Os I , ah 1 ?,s) 

 U (NKL ,f'T ,0 .g) irLA(,= i 

 TF (i>jK|_,i, T,n ,q) (rFlUK'j 



IKf S.tlT.JS.) FSriS, 

 JsfoKL* 1 0, 

 I = F S 

 : iNTtK^'DLAlF "^AnSFM Cll^<^tS ? A'^lD 5 



no 1 f-5=liin 

 1 TStfJsTxf J,M)+ ( TX( J+1 f ")-l X( J.'^n* f '^"L-"* 1 ♦-'^ /0,1 



U (> s.L t .1.0) T i:is( 1 )*At u(;io(r5)*f TS( io)-;s( n ) 



IF (FS. LI ,1 ,0 1 «I:HSl 1 ) + Al or,iri(F-s)*(WS( U>)-HS( 1 )) 

 IF(FS,(.e . 1 0.) T izTSf KM* f 1'^,-FS) /?S. 

 IF(fS.r,t,!n.) Hl:>^S(10l+ri.-PsCin))»(KS-10,)/c'S. 



I F ( f- s . u . 1 , 1) . (3 ^' . F s . G ^ .10.0) p t ■' I "^ N 



HJ = HS(I) + (RafI*l)-l'i(I1)MAu(lt,tFS)-AlUGCI»l,))/(ALnG(I+l.)-AL0r,(I* 



*1 .)) 



TI = TS(nMTS(IM)-fStn )*(ALnG(FS)-Al.O(;( I » 1 , ) ) / ( ALdG ( I ♦ 1 . ) - AL U(; ( I ♦ 



F N D 



21 



