TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRIC DATA 



11 



26 

 27 



28 

 29 



DO 29 1=1, K2 

 IP1 = I + 1 



DO 29 I2=IP1,K 



IF (RAW(l,NORDER) - MW(I2,N0RDER))26,26,29 



DO 27 J=1,NUVT0T 



TEMPI (J) = RAW(l,j) 



RAW(l,j) = RAW(l2,j) 



RAW(I2,J) = TEMPI (J) 



DO 28 J=1,NBVT0T 



TEMP2(J) = RATIO(l,j) 



RATIO(l,j) = RATI0(l2.j) 



RATI0(l2,j) = TEMP2(J) 



CONTINUE 



DMAIN114 

 DMAIN115 

 DMAIN116 

 DMAIN117 

 DMAIN118 

 DMAIKL19 

 DMAIN120 

 DMAUCL21 

 DMAHO.22 

 DMAIN123 

 DMAIN124 

 DMAUa25 

 DMAIN126 



30 



RITHT1 = 0. 

 RTTHT2 = 0. 

 GO TO 3 



WRITE OUTPUT TAPE 6,hh 

 GO TO 33 



DMAIKL27 

 DMAIN128 

 DMAIN129 



DMAIN130 

 DMAIKL31 



32 NDATA = NDATA - 1 

 IF (NDATA)33,33,70 



70 WRITE OUTPUT TAPE 6,71 

 GO TO 1 



33 CALL EXIT 



DMAINL32 

 DMAHO.33 

 DMAINI34 

 DMAIN135 

 DMAUD.36 



C 



c 



34 



36 

 37 



38 



39 



4o 



ill 



42 



^3 

 kk 



^5 

 71 



FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 

 FORMAT 



END 



(13) 

 (2413) 



(12A6) 



(F2.0,4F3.0,I3) 



(F6.2/F6.2/I2/I3) 



(1H1,21A6) 



(1H0,I3,12H LEFT VALVES) 



(1H0,I3,13H RIGHT VALVES) 



(1H0,I3,10H SPECIMENS) 



(1H1,23HANQMAL0US VALVE IN DATA) 



(lH0,20A6) 



(lEL/lHl) 



C---------- DASAN (SUBROUTINE RAWTAB) 



C 



SUBROUTINE RAWTAB (L,NSPCMP) 



DMAINL37 

 DMAINI38 

 DMAIKL39 

 DMAINLAO 

 DMAINliU 

 DMAXN142 

 DMAIJGA3 

 DMAINlH 

 DMAINIU5 

 DMAIN146 

 DMAIN147 

 DMAINLA8 



RAWTB 1 



DIMENSION DUMMY1(390),DUMMY2(100,56),IDADD1(30),IDADD2(30),IDGLAS(RAWTB 2 



130 ) , IDLOG ( 30 ) , IDMIN( 30 ) , IDMTR1 ( 30 ) , IDMTR2 ( 5 ) , LDSUBT( 30 ) , MMTRNS ( 100RAWTB 3 



2,5),RAW(100,53),DUMMY3(80,4) RAWTB k 



COMMON K, RAW, NL0G,NTRNS, GLASS, OCULAR, NGLASS, IDGLAS,NMMTRN, IDMTR1, RAWTB 5 



1IDMTR2 , NSUB , IDMIN , IDSUBT , NADD , IDADD1 , IDADD2 , IDLOG , DUMMY1 , DUMMY2 , RAWTB 6 



29S-S40 0—69- 



