TWO FORTRAN II PROGRAMS FOR ANALYSIS OF MORPHOMETRY DATA 



READ INPUT TAPE 5, 36 ,NBIVAR,NPAGE2 

 IF (NBVTOT) 30, 68, 67 



67 NBVT = NBVTOT - 1 



READ INPUT TAPE 5, 36 , ( ( INDXBV( I , J) , J=l ,k ) , 1=1 ,NBVT) 



68 NPTOT = NPAGE1 + NPAGE2 



READ INPUT TAPE 5, 37, ( ( VNAME( I , J) , J=l , 2k ) , 1=1 , NPTOT) 



READ INPUT TAPE 5, 36 ,NEMT1 ,NFMT2 ,NFMT3 ,NFMT** ,NFMT5 ,NFMT6 ,NFMT7 , 



1NFMT8 

 KK = 12 * NFMT1 



READ INPUT TAPE 5 , 37, (FMTlC I) , 1=1 ,KK) 

 KK = 12 * NFMT2 



READ INPUT TAPE 5, 37 , (FMT2( I) , 1=1, KK) 

 KK = 12 * NFMT3 



READ INPUT TAPE 5 , 37 , ( FMT3( I) , 1=1 ,KK) 

 KK = 12 * NFMTif 



READ INPUT TAPE 5,37, (FMT if (I) , I=1,KK) 

 KK = 12 * NFMT5 

 READ INPUT TAPE 5, 37, (FMT5( I) , 1=1 ,KK) 



KK = 12 * NFMT6 



READ INPUT TAPE 5,37 FMT6(l),I - 1,KK) 

 KK = 12 * NFMT7 



READ INPUT TAPE 5,37, (FMT7(l), I - 1,KK) 

 KK = 12 * NFMT8 

 READ INPUT TAPE 5,37,FMT8(l),I=l,KK) 



READ INPUT TAPE 5,FMT2, (SPMAX( J) . J=1,NUVT0T) 

 READ INPUT TAPE 5,FMT2, (SLGMLN(J), J-l,NUVTOT) 

 1 R^AD INPUT TAPE 5;38,PUNCH,VnU^,WRTTE2,RITHTl,RITHT2,N0RDER 



READ INPUT TAPE 5,37,ANAME 

 READ INPUT TAPE 5,39,GI^SS,OOTLAR,ISIDE,K 

 IF (NTRNS)30,U6,U7 

 1*6 READ INPUT TAPE 5,FMT1, ((RAW(I, J), J=1,L),I-1,K 



2*7 READ°INPUT TAPE 5,FMT1, ((MORNS (I, J)i J=1,NTRNS), (RAW(l, J) , J=1,L), 



1=1, K) 



51 IF (NRTAB)30,^9,^8 



1*8 CALL RAWTAB (L,NSPCMP) 



1+9 IF (NRAT)30,50,52 



52 CALL XRATIO (NBVT) 



50 IF (PUNCH) 30, 3,2 



2 CALL XPUNCH (NUVTOT, NBVTOT, PUNCH) 



1 



3 IF (WRTTEl)30,llA 

 1+ NPTEMP = 1 



NPTOT = 

 NV1 = 2 

 NV2 = NUVAR 

 WRITE1 =0. 

 5 IF (NPAGE1 - NPTEMP)12,6,6 



DMAIN 26 

 DMAIN 27 

 DMAIN 28 

 DMAIN 29 

 DMAIN 30 

 DMAIN 31 



DMAIN 32 

 DMAIN 33 

 DMAIN 3k 

 DMAIN 35 

 DMAIN 36 

 DMAIN 37 

 DMAIN 38 

 DMAIN 39 

 DMAIN kO 

 DMAIN kl 

 DMAIN kZ 

 DMAIN 1*3 

 DMAIN 1+1+ 

 DMAIN 1*5 

 DMAIN k6 

 DMAIN i+7 

 DMAIN 1*8 

 DMAIN k9 



DMAIN 50 



DMAIN 51 



DMAIN 52 



DMAIN 53 



DMAIN 5k 



DMAIN 55 



DMAIN 56 



DMAIN 57 



IDMAIN 58 



DMAIN 59 



DMAIN 60 



DMAIN 61 



DMAIN 62 

 DMAIN 63 



DMAIN 6k 

 DMAIN 65 



DMAIN 66 

 DMAIN 67 

 DMAIN 68 

 DMAIN 69 

 DMAIN 70 

 DMAIN 71 

 DMAIN 72 



