20 



UNITED STATES NATIONAL MUSEUM BULLETIN 285 



MM = 



IM - 



32 DO 16 II = NR0W1,NR0W2 

 IF (II - NBVT)55, 55,54 



55 Jl = INDXBV(II,1) 



J2 = INDXBV(II,2) 



LL = INDXBV(II,3) 



LGT = INDXBV(II,4) 



IF (M)22,33,35 

 35 IF (INDXBV(II,4))34,33,34 

 34 IM = IM + 1 



LGCOL(IM) = LL 



33 PAIRS(LL) = 0. 

 SUMSQ2( 1) = 0. 



30 Z = 0. 



DO 5 1=1, K 

 IF (LGT) 1,2,1 



1 TX(I,1) = X(I,J1) 

 TX(I,2) = X(I,J2) 

 IF (X(l,Jl))20,5,24 



24 IF (X(I,J2))20,5,23 



23 X(I,J1) = L0G10F (X(I,J1)) 



X(I,J2) = L0G10F (X(I,J2)) 



IF (Z) 4,60,4 

 60 IF (SPMAX(J1))20,20,51 



51 TSPMAX = SPMAX(Jl) 

 SPMAX(Jl) = L0G10F(SPMAX(J1)) 

 IF (SPMAX(J2))20,20,52 



52 TSPMXX = SPMAX(J2) 

 SPMAX(J2) = L0G10F(SPMAX(J2)) 

 Z = 1. 



GO TO 4 



2 IF (X(I,J1))3,5,3 



3 IF (X(I,J2))4,5,4 



4 PAIRS(LL) = PAIRS(LL) 

 SUM2( 1) = SUM2( 1) + 

 SUM2( 2) = SUM2( 2) + 



5 CONTINUE 



+ 1. 



X(I,J1) 



X(I,J2) 



AMEANY(LL) 

 AMEANX(LL) 



SUM2( 1) / PAIRS (LL) 

 SUM2( 2) / PAIRS(LL) 



BVYXY 13 

 BVYXY 14 

 BVYXY 15 

 BVYXY 16 

 BVYXY 17 

 BVYXY 18 

 BVYXY 19 

 BVYXY 20 

 BVYXY 21 

 BVYXY 22 

 BVYXY 23 

 BVYXY 2k 

 BVYXY 25 

 BVYXY 26 

 BVYXY 27 

 BVYXY 28 

 BVYXY 29 

 BVYXY 30 



BVYXY 31 



BVYXY 32 



BVYXY 33 



BVYXY 3k 



BVYXY 35 

 BVYXY 36 

 BVYXY 37 

 BVYXY 38 

 BVYXY 39 

 BVYXY kO 

 BVYXY ^-1 

 BVYXY k2 

 BVYXY k3 

 BVYXY kk 

 BVYXY 45 

 BVYXY 46 

 BVYXY 47 

 BVYXY 48 

 BVYXY k9 

 BVYXY 50 

 BVYXY 51 

 BVYXY 52 

 BVYXY 53 

 BVYXY 54 

 BVYXY 55 

 BVYXY 56 

 BVYXY 57 

 BVYXY 58 



BVYXY 59 

 BVYXY 60 



DO 6 J=l,2 



BVYXY 61 



