TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRIC DATA 



19 



R(J) = 0. 

 A(J) = 0. 



STERRA(J) 

 B(J) = 0. 

 DRMA(J) = 

 AMEANY(J) 

 AMEANX(J) 

 YMAXl(J) 

 TOPI (J) = 



37 



38 



20 



= 0. 



0. 



= 0. 

 = 0, 



0. 

 0. 



53 BASEl(J) = 0. 



IF (MM)37,38,37 

 M = 1 

 MM = 

 GO TO 32 

 NPTMP2 = NPTMP2 

 NR0W1 = NR0W2 + 

 NR0W2 = NR0W2 + 

 GO TO 22 



+ 1 



1 



NBIVAR - 1 



WRITE 

 CALL 



OUTPUT 

 EXIT 



TAPE 6,21 



BVRMA123 

 BVRMA12i+ 

 BVRMA125 

 BVRMA126 

 BVRMA127 

 BVRMA128 

 BVRMA129 

 BVRMA130 

 BVRMA131 

 BVRMA132 



BVRMA133 

 BVRMA13 Z + 

 BVRMA135 

 BVRMA1J6 

 BVRMA137 

 BVRMAI38 



BVRMA139 

 BVRMAl^O 



BVRMAl^l 

 BVRMAl^-2 



21 F0RMAT(1H1,23HAN0MAL0US VALUE IN DATA) 



18 FORMAT (1H-,93HBIVARIATE ANALYSIS (REDUCED MAJOR AXIS) OF Y/X 

 1SULTS NOT VALID FOR COLUMNS OF LOG Y/LOGX.) 



19 FORMAT (1H1) 

 1+0 FORMAT (1H-,80HBIVARIATE ANALYSIS (REDUCED MAJOR AXIS) 



1G X VALID ONLY FOR COLUMN(S) , lOT-VlB, 101A-) 



22 RETURN 

 END 



BVRMAl^-3 

 REBVRMAl^ 

 BVRMAl^-5 

 BVEMA3A6 

 OF LOG Y/LOBVRMAl^ 

 BVRMAl*f8 



BVRMA1^9 



C 

 C 

 C 

 C 



c 



- - - DASAN (SUBROUTINE BIVAR) ------ 



ALTERNATE SUBROUTINE BIVAR WHICH COMPUTES 

 THE REGRESSIONS OF Y ON X AND X ON Y. 



SUBROUTINE BIVAR ( NR0W1 , NR0W2 , NPTMP2 ) 



BVYXY 



DIMENS ION AMEANX ( 20 ) , AMEANY ( 20 ) , AX ( 20 ) , AY ( 20 ) , BASE2 ( 20 ) , BASE3 ( 20 ) , BVYXY 2 



1BXY( 20 ) , BYX( 20 ) , CONAX( 20 ) , CONAY( 20 ) , CONBXY( 20 ) , CONBYX( 20 ) , DIFFER( 1BVYXY 3 



200 , 2 ) , DIFSQR( 100 , 2 ) , DUMMYl( 222 ) , DUMMY2 ( 2^0 ) , DUMMY3( 100 , 56 ) , DUMMY'* ( BVYXY k 



3100 , 5 ) , DXY ( 20 ) , DYX( 20 ) , ERRDXY ( 20 ) , ERRDYX( 20 ) , FMT8 ( 96 ) , INDXBV ( 80 , 4 BVYXY 5 



^),LGC0L(20),PAIRS(20),R(20),RSQ(20),SLGMIN(53),SPMAX(53),STDDVX(20BVYXY 6 



5 ) , STDDVY( 20 ) , STESTX( 20 ) , STESTY( 20 ) , SUM2 ( 2 ) , SUMMUL ( 20 ) , SUMSQ2 ( 2 ) , SXBVYXY 7 



6Y(20),SYX(20),T0P2(20),T0P3(20),TX(100,2),X(100,53),XMAX(20),YMAX2BVYXY 8 



7(20) BVYXY 9 



COMMON K,X,NL0G,DUMMY1, NBIVAR, FMT8,DUMMY2,SPMAX,DUMMY3, INDXBV, DUMMBVYXY 10 



1Y^,SLGMIN,NBVT BVYXY 11 



M = 



BVYXY 12 



