TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRIC DATA 



17 



AMEANY(LL) = SUM2( l) / PAIRS(LL) 

 AMEANX(LL) = SUM2( 2) / PAIRS(LL) 



DO 6 J=l,2 



DO 6 1=1, K 

 DIFSQR(I, J) 

 DIFFER(I, J) 



0. 



0, 



k7 



25 



7 



8 



10 



DO 9 I = 1,K 

 IF (LGT)^7,7,^7 

 IF (TX(I,1))20,9,25 

 IF (TX(I,2))20,9,10 

 IF (X(I,J1))8,9,8 

 IF (X(I,J2))10,9,10 



DIFFER(I,1) 

 DIFFER(I,2) 

 DIFSQR(I,l) 

 DIFSQR(I,2) 

 CONTINUE 



X(I,J1) 

 X(I,J2) 

 DIFFER(I,1) 

 DIFFER(I,2) 



- AMEANY(LL) 



- AMEANX(LL) 

 - 2. 

 : 2. 



BVRMA 28 

 BVRMA 29 

 BVRMA 30 

 BVRMA 31 



BVRMA 32 

 BVRMA 33 

 BVRMA 3k 

 BVRMA 35 

 BVRMA 36 

 BVRMA 37 

 BVRMA 38 

 BVRMA 39 

 BVRMA kO 

 BVRMA kl 

 BVRMA k 2 

 BVRMA k 3 

 BVRMA kk 

 BVRMA k3 

 BVRMA k6 

 BVRMA k? 

 BVRMA k8 

 BVRMA k3 

 BVRMA 50 

 BVRMA 51 

 BVRMA 52 

 BVRMA 53 

 BVRMA 5k 

 BVRMA 55 



BVRMA 56 

 BVRMA 57 



BVRMA 58 

 BVRMA 59 

 BVRMA 60 

 BVRMA 61 



BVRMA 62 

 BVRMA 63 

 BVRMA 6k 

 BVRMA 65 

 BVRMA 66 

 BVRMA 67 

 BVRMA 68 

 BVRMA 69 

 BVRMA 70 

 BVRMA 71 

 BVRMA 72 



11 DO Ik 1=1, K 



DIFMUL = DIFFER(I,1) 



DIFFER(I,2) 



BVRMA 73 

 BVRMA 7k 



