TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRY DATA 15 



ANUM(J) = 0. 

 SUM(J) = 0. 



39 IF (TDLOG2(l,J))28,4,7 



4 IF (X(I,J))7,5,7 



5 IF (I-K)6,7,28 



6 I = I + 1 

 GO TO 39 



7 AMIN(J) = XfI,J) 

 SUM(J) = X(I,J) 

 AN T JM(J) = 1. 



8 I = I + 1 

 IF (I - K)40,40,13 



40 IF (IDL0G2(I,J))28,9,10 



9 IF (X(I,J))10,8,10 



10 ANUM(J) = ANUM(J) + 1. 

 SUM(J) = SUM(J) + X(I,J) 

 IF (AMIN(J) - X(I,J))8,8,11 



11 AMIN(J) = X(I,J) 



12 GO TO 8 



13 RANGE(J) = AMAX(J) - AMIN(J) 



14 AMEAN(j) = SUM(J) / ANUM(j) 



DO 19 J=NN1,NN2 



1 = 1 



SUMSQR(J) = 0. 



IF (IDL0G2(I,J))28,15,17 



15 IF (X(I,J))17,16,17 



16 I = I + 1 

 IF (I - K)15,15,19 



17 IF (I - K)l8,l8,l9 



18 DIFFER(I,J) = X(I,J) - AMEAN(J) 

 DIFSQR(I,J) = DIFFER(I,J) ** 2. 

 SUMSQR(J) = SUMSQR(J) + DIFSQR(I,J) 

 GO TO 16 



19 CONTINUE 



DO 20 J=NN1,NN2 



STDDV(J) = (SUMSQR(J) / (ANUM(J) - 1.)) ** .5 



20 V(J) = 100. * STDDV(J) / AMEAN(J) 



DO 23 J=NN1,NN2 

 NUMBER(J) = 

 DO 22 I = 1,K 

 IF (TDL0G2(I,J))28,42,21 

 42 IF (X(I,J))21,22,21 



21 NUMBER(J) = NUMBER(J) + 1 



22 CONTINUE 

 BNUM(J) = NUMBER(J) 



23 SDVMN(j) = STDDV(J) / BNUM(j) ** .5 



24 GO TO (25,26),M 



25 WRITE OUTPUT TAPE 6 ,FMT6 , (NUMBER( J) , J=NN1 , NN2 ) , (AMAX( J) , J= 



