TWO FORTRAN II PROGRAMS FOR ANALYSJS OF MORPHOMETRY DATA 



DO 6 1=1, K 

 DIFSQR(I,J) = 

 DIFFEE(I,J) = 



k? 



25 

 7 

 8 



10 



DO 9 I = ^ K 

 IF (LGTH7,7,V7 

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

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

 IF (x(i,Jl))8,9,8 

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



DIFFER(I,l) 

 DIFFER(I,2) 



DIFSQR(I,l) 

 DIFSQR(I,2) 

 CONTINUE 



X(I,J1) 

 X(I,J2) 

 DIFFER(I,l) 

 DIFFER(I,2) 



- AMEANY(LL) 

 AMEANX(LL) 



* * 2 . 



* * 2 . 



11 DO Ik 1=1, K 



DIFMUL = DIFFER(I,D * DIFFER(I,2) 

 SUMMUL(LL) = SUMMUL(LL) + DIFMUL 

 IF (LGT)26,27,26 



(TX(I,1))20, 1^,28 

 (TX(I,2))20, 1^,13 

 (X(I,J1))12, 1^,12 

 (X(I,J2))13, 1^,13 

 SUMSQ2(1) 

 SUMSQ2(2) 



26 

 28 

 27 

 12 



13 SUMSQ2(1) = 

 SUMSQ2(2) = 

 Ik CONTINUE 



IF 

 IF 

 IF 

 IF 



+ DIFSQR(I,1) 

 + DIFSQR(I,2) 



1. 

 1. 



)) 

 )) 



STDDVY(LL) = (SUMSQ2(l) / PAIRS LL - 

 STDDVX(LL) = (SUMSQ2(2) / ( PAIRS (LL) - 

 BYX(LL) = SUMMUL(LL) / SUMSQ2(2) 

 BXY(LL) = SUMMUL(LL) / SUMSQ2(l) .. 

 AY(LL) = AMEANY(LL) - BYX(LL) * AMEANX LL 

 AX(LL) = AMEANX(LL) - BXY(LL) * AMEANY(LL) 

 SY2 = STDDVY(LL) ** 2. 

 SX2 = STDDVX(LL) ** 2. 

 YY = BYX(LL) ** 2. * SX2 



S<n sS» ^Vtf f^<"» 



RSO(LL) = R(LL) ** 2. , tt nn c 



STESTY LL) = STDDVX(LL) * (1. - ^Q LL - .5 

 STESTX LL) = STDDVY(LL) * (1. - RSQ(LL) - .5 

 DXY(LL) =100. * STESTY(LL) / AMEANX(LL) 

 ERRDXY(LL) = DXY(LL) / ( 2. . PAIRS (LL ) ) 

 DYX(LL) = 100. * STESTX(LL) / AMEANY(LL) 

 ERRDYX(LL) = DYX(LL) / (2. * PAIRS (LL)) 

 CONBYX LL) = SYX(LL) ** .5 / (STDDVX LL 

 COnIxY(LL) = SXY(LL) ** -5/ (ST™VY(LL) 

 CONAY(LL) = SYX(LL) ** .5 / PAIRS LL 

 CONAX(LL) = SXY(LL) - .5 / f IR ^ L / 

 XMAX(LL) = SPMAX(Jl) * BXY(LL) + AX(LL) 



.5 

 .5 



(SY2 - YY) 

 (SX2 - XX) 

 ,* .5 



.5 



.5 

 ((PAIRS(LL) - 



((PAIRS(LL) - 



.5) 

 .5) 



21 



BVYXY 62 

 BVYXY 63 

 BVYXY 6k 



BVYXY 65 

 BVYXY 66 

 BVYXY 67 

 BVYXY 68 

 BVYXY 69 

 BVYXY 70 

 BVYXY 71 

 BVYXY 72 

 BVYXY 73 

 BVYXY Ik 

 BVYXY 75 



BVYXY 76 

 BVYXY 77 

 BVYXY 78 

 BVYXY 79 

 BVYXY 80 

 BVYXY 81 

 BVYXY 82 

 BVYXY 83 

 BVYXY 8^ 

 BVYXY 85 

 BVYXY 86 



BVYXY 87 

 BVYXY 88 

 BVYXY 89 

 BVYXY 90 

 BVYXY 91 

 BVYXY 92 

 BVYXY 93 

 BVYXY 9^ 

 BVYXY 95 

 BVYXY 96 

 BVYXY 97 

 BVYXY 98 

 BVYXY 99 

 BVYXY100 

 BVYXY101 

 BVYXY102 



BVYXY103 

 BVYXYIO^ 

 BVYXY105 

 BVYXY106 

 )**.5))BVYXY107 

 )**.5))BVYXY108 



BVYXY1C9 

 BVYXY110 

 BVYXY111 



