TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRIC DATA A7 



B IF ( D) 76.79,76 



76 IF ( E) 77,79,77 



77 IF (F 178,79,78 



78 IF (G) 83,80,83 



B 79 PL0T(K,J) = ( 777777770000*PLOT< K, J ) ) + ( O0OOCC0O7 77 7*b ( I ) ) 

 GO TO 88 

 8 DO 81 M = 2,2 66,11 



IF ( ALPHA (,'«',)-( +6H ) 181,82,81 



81 CONTINUE 

 GO TO 88 



82 A = PLOT (K, J) 

 E - 1 



CALL MOVE! A,E,24, 1 ) 



ALPHA(N') = E 



ALPHA (M+l ) = b( I ) 

 B PL0T(K,J) = ( 77777777C000*PLOT( K-, J ) ) +( 000000007777*ALPHA ( M-l ) ) 



GO TO 88 

 8 3 DO 8 4 !•: = 1,265,11 

 B IF ( (000C0 007777*PLOT(K,J) )* ( 000000007777* (-( ALP HA(M) ) ) ) ) 84,85 ,84 



84 CONTINUE 

 GO TO 88 



85 JJ = M+2 

 KX = M+10 



DO 8 6 MM = JJ.KK 



I F ( A L PH A ( MM ) - ( + 6 H 1)86,87,86 



86 CONTINUE 

 GO TO 88 



8 7 ALPHA (MM) = B ( I ) 



88 CONTINUE 



C 



WRITE OUTPUT TAPE 6,1 



K = 50 



P = YL 



L = 41 



B = 40.0 



M = 2 



89 IF(M-266)90,90,92 



90 IF ( ALPHA(M)-(+6H 1)91,92,91 



91 MM =M-1 

 NN = M+9 



WRITE OUTPUT TAPE 6 , 5 , P , ( PLOT ( :; , J 1 , J = 1 , 12 1 , ( ALPHA ( I 1 , I =MM ♦ NN ) 

 GO TO 93 



92 WRITE OUTPUT TAPE 6 » 5 , P , ( PLOT ( K , J ) , J= 1 , 12 ) 



93 M = M+ll 

 K = K-l 



IF (K ) IOC 100,94 



94 IF ( K-L )96,95 ,96 



95 P = YS+(B*DY) 

 L = L-10 



B = B-10.C 

 GO TO 89 



96 IF (M-266)97,97,99 



97 IF (ALPHA <;<i)-(+6H ))98,99,98 



