TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRIC DATA 45 



3 5 DIFY = Y A ( I ) - Y S 

 DELY = DY 

 K = 1 



36 IF (DIFY-DLLY) 38»37,37 



37 DELY = DELY+DY 

 K. = K+l 



GO TO 26 

 3 8 DO 3 9 J =1,12 



39 PLOT(K,J) = (+6H ) 



40 CONTINUE 

 C 



41 DO 88 I = L , N 

 DELX = DX 

 DELY = DY 

 DIFX = X( I )-X5 

 DIFY = Y ( I )-YS 

 J = 1 



K. = 1 



42 IF ( DIFY-DnLY (44,43,43 



43 DELY = DELY+DY 

 < = K+l 



GO TO 42 



44 IPOS = 1 



45 IF ( DIFX-DELX ) 48 ,46,46 



46 DELX = DELX+DX 

 IPOS = IPOS+2 



IF ( I POS-5 145,45 ,47 



47 J = J+l 

 GO TO 44 



48 GO TO ( 49,49,62,62,75 , 75) , I POS 



B 49 D = (606000000000+( 777700000000*PLOT ( K, J) ))*(-< 606000000000*PLOT ( K 



1 , J) ) ) 

 B E = ( 404000CO0O0O+( 77770000000C*PLOT ( K. , J )))*(-( 404000000000*PLOT ( K. 



1 ,J) ) ) 

 B F = (0O31000O00O0+(0077000C0000*PLOT(K.,J) ) ) * ( - ( 003100000000*PLOT < K 



1 , J ) ) ) 

 B G = 6O000C00CO*PLOT ( K, J ) 

 B IF(D)50»53,50 

 B 50 IF(E)51,5 3,51 

 B 51 IF(F )52,53,52 

 B 52 IF(G)57,54,57 

 B 53 PLOT (K, J) = (000077777777*PLuT(K»J))+(77770C0 0000C*B(I)) 



GO TO 88 

 B 54 DO 55 M = 2,266,11 



IF ( ALPHA (,'-')-( +6H )) 55, 5 6, 55 

 5 5 CONTINUE 

 GO TO 88 

 56 ALPHA(M) = PLOT(K,J) 

 ALPHA ( M+l ) = B( I ) 

 B PLOT (K, J) =((J00C777777 77*PLOT(K,J) ) + ( 777700000000 *A LP HA(M-l) ) 

 GO TO 88 

 5 7 DO 5 6 M = 1,265,11 

 B IF((7777OCOOOO00*PLOT(K,J))*(77770O000O0 0*(-(ALPHA(K)))))58,59,58 



