?0l FnHM4T(//i?X, IKTT - *AVt TWA^S"1SST0M TMPuMGH The S T RUC T UHf " i / , 

 »?X.»KTO - WAVF TfJA'MS-MS&TllN ry Vf. « ^ "^^ I '''f- C t-'fc r M C I Mi 7 ' i / t 

 « ^XiIkT - TOTAL "4^''^ TKA'MS^^TsSl^^l COLf-f' IC It^fT I i/i?X, 

 ( IKW - -.Avt PtfLfCTTOM rnEFf-'intNT ' I 

 »/.?XitHt - THANS^nUn NAVt HflCHr') 



200 CONT IMife 

 STOP 



SUHWOdTI-jL PFf'l. (4t^i>«l'i'-''I.TANB,1,WTl.*^<Ul ) 



COMM(lN/MALir,/KST (q. 11 5 .f^uT (0, 1 , 1 ,RT( 17» 1 n « TxC*. 10) .K)((Q, I 01 



RtAl, I .LSLfLS 

 C r'' = '^OiHl r ui-?^'f CT IPN f ACTUS TO aCCOIjuT FOK MOD^L SLOPK ffFFCTS 

 CF = 1 •i'^-O .S7P* T AnB 



I f ( T A N H , n . (,; , ;; ) r F = 1 . ? 

 IF C T AKH.G 1 „0 .h^) tF = l).flS» 



C F"iND wAVF. Lt'J(.TM L 



HUl.n = HO/( 1 .'58»T*T) 



CALL LF^t'T f HdLO.wrl ) 



LcHU/HfiL 



LS = HO/lA'»h 



IF (mS.L 1 ,Hn) I SsmS/ I a:m« 



LSL=L5/U 



IF (I Si .LT.o.H) i;n TO inS 



TMTN=S'J«T{/,,?B^*(L.'^/0.HJ/(O,R«TANJHtb,?«i*HD/(LS/0.6)nl 

 wKITF. (6i ton 1 'MN 

 iOl FUKMAT t///, IX. ' '.AWf.jl'J(..TMt MlN,lfijM hAvF PFRIOD Til (*fc ANALY7ID RV T 

 ♦ HIS DW'M.'^AM TS'.FO.tN' SFC FHH ThqS CO^LMllUMn 

 LSL:0 ,799 

 lot; !s(LSL*in.M .) 

 C IwTFRPOLATt IwPijT TabLL FUP TmIS lSL VALUt 



II = LSL*^!>.M. 



on J J=lf 11 

 FSS(J) = FSrnfJ) + (F!3T(Ul.J)-rsT(I,.J))tfLKL-(l-n*0.n/n,l 



RUS( Jj^i^'iT ( I. jUfkiM ( Ul ,,n-«iiT ( T,,I) )*(LSL-CI-n»0. n /O. 1 

 3 RS(J)rKT(lT,J)4Cf?Tfn+,»J)-RT(TI.J))*(L5)l-(U-in*0,OS)/0.n'-, 



C RuFSS PhI ANO ITFRATF 



PMlsS.O 



M=n 

 6 JsPHi 



FAC=(Al or,(f'Hl + l ,1-ALOGf J+1 ,) )/( Al 0G( J + ?, 5-AL0t.( J+1 .n 



FS=FSS( JM)* F AC*(F-s,SCJ+?)-FSS( J« I) ) 



RU=f<MS( J* n* FAC*(R|i.S(.l+?)-WiiS(JM)) 



RlIsRsfJ+l) + fRS(.H>')-RS'''*l)HFAC. 



ARr,sn,?4*fn/Ho)**0.^*(t?i'*^,»A/(Hn*TANiH))*»0,i*f"S 



PHU.= 0.'5*ATAfJ(AWG)*S7,?'*'^7fl 



M=M* 1 



DtLsiRS(PHlN-PMn 



I F ( M . r, T , ? ) GO T n 9 



PhIsPhIn 



IF(P'^I,L',n.oi) oHlzo ,nl 



IF tPHI ,GT ,q,P9) PMl = q,qV 



IF (OtL .(jT.n.nb) GU TO h 



9 Rn = RlI»CF 



Rt TUH'N 

 FND 



SDMWOiiTINt RFAOI 

 CnMn0N/MA(.)S/FST(O»in«PU"r(«»«tn«''Tfl7iin»TX(<».10),RlJ(9,l05 



19 



