10 



UNITED STATES NATIONAL MUSEUM BULLETIN 285 



C 



c 



c 

 c 



6 NPTOT - NPTOT + 1 



WRITE OUTPUT TAPE 6,UO,ANAME 



IF (ISIDE)7,9,8 



7 WRITE OUTPUT TAPE 6,kl,K 

 GO TO 10 



8 WRITE OUTPUT TAPE 6,k2,K 

 GO TO 10 



9 WRITE OUTPUT TAPE 6,1+3, K 



10 WRITE OUTPUT TAPE 6,1+5, (VNAME(NPT0T, J"), J=l,20) 



WRITE OUTPUT TAPE 6,FMHk, (RAW(l,l), (RAW(l, J),J=NV1,NV2),I=1,K) 



CALL UNIVAR (RAW,NV1,NV2,NPTEMP,NUVAR,1,L,NSPCMP,NSUB,NADD) 

 GO TO 5 



11 NPTOT = NPAGE1 



12 IF (WRITE2)30,20,13 



13 NPTEMP = 1 

 NV1 = 2 



NV2 = NBIVAR 



NPTMP2 = 1 



NR0W1 = 1 



NR0W2 = NBIVAR - 1 



WRITE2 = 0. 

 Ik IF (NPAGE2 - NPTEMP)20,15,15 

 15 NPTOT = NPTOT + 1 



WRITE OUTPUT TAPE 6,1+0,ANAME 



IF (ISIDE) 16, 18,17 



WRITE OUTPUT TAPE 6,kl,K 



GO TO 19 



WRITE OUTPUT TAPE 6,^2, K 



GO TO 19 



WRITE OUTPUT TAPE 6,*+3,K 



16 



17 

 18 



19 



20 

 21 

 22 



23 

 2k 



WRITE OUTPUT TAPE 6,1+5, (VNAME(NPTOT.J), J=l, 20 ) 



WRITE OUTPUT TAPE 6,FMT5, (RATI0(I,1), (RATIO(l, J), J=NV1,NV2) ,I=1,K) 



CALL UNIVAR (RATI0,NV1,NV2,NPTEMP,NBIVAR,2,L,NSPCMP,NSUB,NADD) 

 CALL BIVAR (NR0W1,NR0W2,NPTMP2) 

 GO TO Ik 



IF (RITHTl)30,22,21 



WRITE1 = 1. 



IF (RITBT2)30,2^,23 



WRITE2 = 1. 



IF (RITHT1 + RITHT2) 30,32,25 



DMAIN 73 



DMAIN Jk 



DMAIN 75 

 DMAIN 76 

 DMAIN 77 

 DMAIN 78 

 DMAIN 79 

 DMAIN 80 



DMAIN 81 

 DMAIN 82 



DMAIN 83 

 DMAIN 8k 



DMAIN 85 

 DMAIN 86 

 DMAIN 87 

 DMAIN 88 

 DMAIN 89 

 DMAIN 90 

 DMAIN 91 

 DMAIN 92 

 DMAIN 93 

 DMAIN 9k 

 DMAIN 95 



DMAIN 96 



DMAIN 97 

 DMAIN 98 

 DMAIN 99 

 DMAIN100 

 DMAINL01 

 DMAIN102 



DMAINIO3 

 DMAINIOU 



DMAINIO5 

 DMAIN106 

 DMAIN107 



DMAIN108 

 DMAINIO9 

 DMAINllO 

 DMAINlll 

 DMAIN112 



25 K2 = K 



DMAIN113 



