TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRY DATA 41 



c 



31 FORMAT (2012, 2X,10I2,4X, 312) 



32 FORMAT (12A6) 



33 FORMAT (lEL/lHL) 



3^ FORMAT (1HL,10H PLOT FOR ,I4,16H SPECIMENS , 15A6) 



35 FORMAT flHO,5X,9HPLOT NO. , I3,40X,11H0RDINATE - ,A6) 



36 FORMAT (iHO,5X,,A6,8H VERSUS ,A6,32X,11HABSCISSA --,A6) 



37 FORMAT (13) 



38 FORMAT (1H1,24HNEGATIVE VALUE IN INPUT.) 



39 FORMAT (3612) 



42 FORMAT (FU.O,9F7.V(l° F 7. 2 0) 



D 



1+0 CALL EXIT 

 END 



SUb ROUT INE APLOT (L»NtNXAXlS»NYAX15»XA»YA»X»Y) 



DIMENSION X( 140 ) »Y ( 140) » PLOT ( 5 » 1 2 ) »XA( 5 ) »YA(5> .OUT ( 8 ) »b ( 140 ) * ALPn 

 1A (275 ) 



1 FORMAT ( 1H .84X5HALPHA, 10X14H I DENT I F I CAT I ON ) 



2 FORMAT (1H ,6X1H..12A6*1H.,11(2XA2)) 



3 FORMAT (1H »7X»7(10H+ ) , 1H+ » 1H. . 1H+ ) 



4 FORMAT ( 1H »4XF6. 2 »4XF6 . 2 »4XF6. 2 *4XF6.2 , 4X6. 2 »4XF6 ,2 *4XF6. 2 *4XF6 .2 ) 



5 FORMAT (1H ,F6.2»1H+,12A6,1H+,11(2XA2 ) ) 



6 FORMAT! 1HC , 2HDX , 2XF8 . 4 , 2X2HDY , 2XF8 . 4 ) 



LSAV = L 



NSAV = N 



XL = X (L ) 



XS = X(L) 



Y'L = Y ( L ) 



YS = Y (L ) 

 N = N+L-l 



DO 14I=L*N 



IF ( XL-X( I ) ) 7 ,8,8 



7 XL = X( I ) 



8 IF( XS-X( I ) ) 10,10,9 



9 XS = X ( I ) 



10 IF ( YL-Y< 11)11,12,12 



11 YL = Y ( I ) 



12 IF ( YS-Y( 11)14,14,13 



13 YS = Y ( I ) 



14 CONTINUE 



IF( XL-XS ) 102, 102, 15 



15 IF(.YL-YS) 102*102, 16 



16 DX = ( XL-XS ) /35.0 

 DY = (YL-YS1/49.0 



DO 300 K. = 1,50 

 DO 300 J = 1,12 



