8 



UNITED STATES NATIONAL MUSEUM BULLETIN 285 



35. If no more bivariate output pages remain, the op- 

 tion to print all data in order of decreasing values of one 

 of the variables, the column number of which is indicated 

 on a control card, is interrogated. If so indicated, Steps 17 

 through 34 are repeated (flow returns to connecting point 

 A in Figure 2) with an option to print the bivariate array 

 in order of decreasing values of a specified variable replac- 

 ing the option referred to in Step 23. 



36. If more data decks remain to be processed, control 

 is passed back to Step 1 (connecting point B in Figure 2) 

 with the reading in of new Group-II control cards (see sec- 

 tion on input data preparation) and data. Otherwise the 

 execution is completed. 



Computation Time. — The test run of DASAN (binary) 

 on the IBM 7094, which used the input and furnished the 

 output listed and described in following sections, analyzed 

 12 specimens, with 28 variables in the input array, 36 vari- 

 ables in the univariate output array, and 42 variables in 

 the bivariate array, in 52 seconds. 



Core Space. — DASAN in its present form approaches the 

 maximum storage allowed in the IBM 7094. Increasing the 

 dimensions so that up to 150 rather than only 100 speci- 

 mens can be included in a sample resulted in an overlap 

 of COMMON and PROGRAM storage areas. The maxi- 

 mum capacity of the program ( in terms of numbers of speci- 

 mens) which can be reached through redimensioning is 

 therefore between 100 and 150. 



Listing of FORTRAN II Statements in DASAN 



c 

 c 

 c 

 c 

 c 

 c 

 c 



DASAN (MAIN ROUTINE) 

 PROGRAM FOR THE ASSEMBLY AND ANALYSIS OF MORPHOMETRIC DATA 

 THOMAS R. WALLER, DEPT. OF PALEOBIOLOGY, SMITHSONIAN INSTITUTION 



FEBRUARY 6, 1967 



DIMENSION ANAME(21) ,FMT1(60) ,FMT2(60) ,FMT3(60) ,FMT4(60) ,FMT5(60) . DMAIN 

 1FMT6 ( 60 ) , FMT7( 60 ) , FMT8 ( 96 ) , IDADDl( 30 ) , IDADD2 ( 30 )' , IDGLAS ( 30 ) , IDL0G( DMAIN 

 230 ) , IDMIN( 30 ) , IDMTR1 ( 30 ) , IIMTR2 ( 5 ) , IDSUBT( 30 ) , INDXBV( 80 , 4) , MMTRNS ( DMAIN 

 3100 , 5 ) , RATI0( 100 , 56 ) , RAW( 100 . 53 ) , SPMAX( 53 ) , TEMPI ( 53 ) , TEMP2 ( 56 ) , DMAIN 

 4VNAME(10,24),SLGMIN(53) DMAIN 



1 

 2 

 3 

 4 

 5 



COMMON K, RAW, NLOG,NTRNS, GLASS, OCULAR, NGLASS , IDGLAS ,NMMTRN, IDMTR1 , DMAIN 6 

 1IDMTR2 , NSUB , IDMIN, IDSUBT , NADD , IDADD1 , IDADD2 , IDL0G , NBIVAR , FMT8 , FMT2DMAIN 7 

 2, FMT3,FMT6,FMT7,SPMAX, RATIO, INDXBV, MMTRNS, SLGMIN,NBVT DMAIN 8 



READ INPUT TAPE 5,34, 

 READ INPUT TAPE 5,36. 



IF (NGLASS)30,56,55 



55 READ INPUT TAPE 5,36, 



56 IF (NMMTRN)30,58,57 



57 READ INPUT TAPE 5,36, 



58 IF (NTRNS)30,60,59 



59 READ INPUT TAPE 5,36, 



60 IF (NSUB)30,62,6l 



61 READ INPUT TAPE 5,36, 

 READ INPUT TAPE 5,36 



62 IF (NADD)30,64,63 



63 READ INPUT TAPE 5,36, 

 READ INPUT. TAPE 5,36 



64 IF (NLOG)30,66,65 



65 READ INPUT TAPE 5,36 



66 READ INPUT TAPE 5,36 



NDATA , L , NUVT0T , NBVTOT , NRTAB , NRAT 

 NGLASS , NMMTRN , NTRNS , NSUB , NADD , NLOG 



( IDGLAS ( J ) , J=l , NGLASS ) 



(IDMTRI(J) , J=l, NMMTRN) 



( IDMTR2 ( J ) , J=l , NTRNS ) 



(IDMIN(J).J=1,NSUB) 

 ( IDSUBT ( J ),J=1, NSUB) 



(IDADD1(J),J=1,NADD) 

 (IDADD2(J),J=1,NADD) 



(IDL0G(J),J=1,NL0G) 

 NUVAR,NPAGE1 



DMAIN 9 

 DMAIN 10 

 DMAIN 11 

 DMAIN 12 

 DMAIN 13 

 DMAIN 14 

 DMAIN 15 

 DMAIN 16 

 DMAIN 17 

 DMAIN 18 

 DMAIN 19 

 DMAIN 20 

 DMAIN 21 

 DMAIN 22 

 DMAIN 23 

 DMAIN 24 

 DMAIN 25 



