35 



903 



»S ( 



CON 



NMs 



n{ N 



N( M 

 NL = 

 TH( 



Ll.( 



FOR 



2? 



10 



37 



DO 

 RLA 



roR 



A = H 



U ( 



n ( 



CAL 



AI = 

 DHT 

 IK 



Assume. 

 icn 



DHf 

 IC-i) 

 CAU 

 CAl 



If c 



If ( 



t>Ht 

 IF ( 

 KR = 

 KIT 

 U t 

 If- ( 



irf 



SUH 

 «h = 

 RsM 

 FR = 

 CnO 

 KTO 



UC 

 TK 

 IF( 



HGT 



HI = 



OGT 

 Ft. A 

 KT = 

 IF ( 



NIC 

 WRI 

 F (JR 

 C0^ 

 Cci'J 

 WW I 



96, 



lon 



19q 



M) = 

 T Ih 



N"* 



f^)s 



M) = 



NL* 

 NL) 



TF( 

 m4 T 



Til 

 1 9q 



n(s 



HAT 

 ♦ 0, 

 0(1 



A. I 



TAN 



L P 

 wil 

 = ?. 



()H[. 

 UNT 



= [)|H 



U 'M T 



L. f 

 L I 

 IFL 

 IFI 



= (1 

 If.n 



= u 



T An 



IFL 

 Jf L 

 F = T 



RA» 

 *Hh 

 F/R 

 .^1 

 = C» 

 (To 



kto 



F«. 

 2=A 

 ?.» 



&=^ 



kt, 



H* K 



TE( 



M At 



T IM 

 TIN 

 TF( 



'i7F 



UF 



I 



r'CU 



0,0 1 



1 



s 1 

 hi ) = 

 6» 9y 

 (//i 



K, 

 IKS 



• 8) 



(^y 1 

 s 



) ♦ , 

 T.O. 

 h.LF 

 FH( 



» A 



♦ K U * 



n 



= 



r 

 = 1 r. 



N T t: R 



A C. , F 

 A(,,F 



. + «I 

 f^I 



*RI1 



H , I. F 

 AC.t 

 AG.F 



ANti/ 



Surf 



h,\ ./.(sOXtTf fe.l ) 



ft II n , 



?) 



b^ilHfM) T(5tr) H/(r,tT*T) H/L 



T K R >^ I f f • ) n 



1 . NT 



ni) 1 ) to T (j 1 n 



.0.) f^n TO 37 



A 1 H S . (-^ f I ) I H U , T A Ni B I T , » II , R U t L i 



AMO ITtRATF. ON TMt FOMUlVANT BW 



1 1 -J T + 1 



DMt 1 OfiT, I fc. » f'n« mSi T AnR, NR.OR. TOPrt) 



(JR|T,Lt.«Hii,Al,Nii,r)R,Tl,RI«L«IF'LAG) 



(J, n nR=iiK*o .*vs 

 Q, 1 ) (;n TO ^? 



MR! I» A 



I. i.y) r,o TO (0 



(V(G*T*T/) KTT 



.0.) CALL INnR(N(i ) ,T,TnF^",HO,A,NU,n( 1 ) ,KTT ,KR,l « IK At;) 

 Q, 1 ) OR=OK*0 .b 

 0. n GO Tt) 5 7 

 SiJRT (H/( 1 .Sb« I* T) ) 

 /( 1 , + Kn»SURF ) 



-0.1 

 (1 .-' 



.tT.1 

 l-I.l. 

 *2./C 



A/L 



O/fJ. 



H 



T (KIT 



^I.l . 



T 



6.981 



( SX, 



UE 



Ut 



h.POl 



l»T0Prt/H3 



),GT,n,88,AM|j,f.LT,0,) KTO = C*n.-FR)-f),-?,*C)*fK 

 . ) K T n = 1 , 



1 KTf»=n, 

 '< , 8 ♦ T ♦ T J 



8n* T»T) 



♦♦P+KTO**?) 

 ) K Tr 1 ,0 



) H, T,hGT?,hL ,nGT?,KTT,KTO,KTiKR,HT 

 F8.5,F10,?iriO,h|FjO,S,Fin,«,JF6.5.F6,^,F7,5) 



18 



