14 



C 

 C 



UNITED STATES NATIONAL MUSEUM BULLETIN 285 



WRITE OUTPUT TAPE 7 , FMT2 , ( ( RAW( I , J) , J=l ,NUVT0T) , 1=1 ,K) PUNCH 7 



IF (PUNCH - l.)3,3,2 PUNCH 8 



2 WRITE OUTPUT TAPE 7 ,FMT3 , ( ( RATIO ( I , J) , J=l NBVTOT) , I=1,K) PUNCH 9 



3 RETURN PUNCH 10 

 END 



C__-------- DASAN (SUBROUTINE UNIVAR) ------------ 



C 



SUBROUTINE UNIVAR (XX,N1 ,N2 ,NPTEMP, NVAR,M,L, NSPCMP, NSUB, NADD) UV 1 



C 



D IMENS ION AMAX ( 20 ) , AMEAN( 20 ) , AMIN( 20 ) , ANUM( 20 ) , BNUM( 20 ) , D IFFER( 100UV 2 



1,20) , DIFSQR( 100 , 20 ) , DUMMY1 ( 100 ,53), DUMMY2 ( 192 ) , FMT6 ( 60 ) , FMT7( 60 ) , UV 3 



2IDL0G2 ( 100 , 20 ) , NUMBER( 20 ) , RAKGE( 20 ) , SDVMN( 20 ) , STDDV( 20 ) , SUM( 20 ) , UV 4 



3SUMSQR(20),V(20),X(100,20),XX(100,56),IDL0G(30;,DUMMY3(217) UV 5 



C 

 C 



COMMON K , DUMMY1 , NLOG , DUMMY2 , IDLOG , DUMMY3 , FMT6 , FMT7 UV 



DO 43 I = 1,K 

 DO 43 J = 1,NVAR 



43 IDL0G2(I,J) = 

 IF (M - 1)28,44,29 



44 IF (NLOG) 34, 29, 38 

 38 DO 33 J1=1,NL0G 



J2 = L + NSPCMP + NSUB + NADD + Jl 

 IF (J2-Nl)33,30,30 



30 IF (J2-N2)31,31,29 



31 J3 = IDLOG(Jl) 

 J4 = J2-N1 + 1 

 DO 32 1=1, K 

 IF (XX(I,J3))34,32,35 



35 IDL0G2(I,J4) = 1 



32 CONTINUE 



33 CONTINUE 



29 DO 1 J=N1,N2 



JJ = J - Nl + 1 

 DO 1 1=1, K 



1 X(I,JJ) = XX(I,J) 

 NN1 = 1 

 NN2 = N2 - Nl +■ 1 



DO 3 J=NN1,NN2 



AMAX(J) = X(1,J) 



DO 3 I = 2,K 



IF (AMAX(J) - X(I,J))2,3,3 



2 AMAX(J) = X(I,J) 



3 CONTINUE 



DO 14 J=NN1,NN2 

 1 = 1 



