16 IH (iM-b) 1 7»17» IB 



17 Ll=5 



GC TO 8 



18 Ll=3 



e CCNTIKUF 



DC 19 I = l»i'5 



A1 = I 



H(I)=u.5*(Al-l .■-/) ♦HU 



DO 2 J=l»i'? 



AJ = J 



FT A] ( j)=ETAA()*i'.b*» (MJ-1 . ) 



DC ?A K=1 » i*? 



AK = ^ 



E;lA?(^)=F. ^A£:(; + o.'^«(M^-l•) 



HV = f:TA?(K)-tTAl (J) 



8 = BF (hV^Hl in 



AsATAtv (hV/h I I ) ) 



AY=U.u 



DC ?2 L=l ♦Ll 



IF (N-1) ?3»<:T»c^ 



23 RlF=R5C*HlSdl (L) 

 P2F = HbC<*^^?^cl (L) 

 GC TO ?5 



24 lF(N-£) 2e»c6,r'7 



26 RlF = HbC«^^iSt? (L) 

 R2F=RbC^»^^2bc? (L) 

 OC TO ?5 



27 IF (N-3) ?8»cH»29 



R2F=kiC*H2St3 (L) 

 GC TO ?5 



29 IF lN-4) 3-J« jO» Jl 



30 PlF = R3C-»HlSd4 (L) 

 R2F=RbC*R253C'+ (L) 

 GC TO 25 



31 IF (N-b) 32* j2»33 



32 RlF=RiC«Hlwhl ID 

 R2F=R5C«H2rtH I (L) 

 GC TO 25 



33 IF iM-b) 3** » J4»3b 



34 RlF=R5C**l^lvvh2 (L) 

 H2F=R5C*^^2wh^ (l) 

 GC 10 25 



35 IF(fv;-/) 3e,je»37 



36 RlF" = RbC-»Rl wr.3 ID 

 R2F = RbC*^^r i'.H3 (u ) 

 GC TO ?5 



37 RlF=Ri)C«Rlwf'4 (D 

 R2F = HbC*'^^WhA ID 



25 XI = XI(- (R?F »hlF »b) 



IF (RU-XI ) 3H«3(:'f 39 



16 



