40 UNITED STATES NATIONAL MUSEUM BULLETIN 285 



C 



18 IF (LENTER)30, 8A9 



19 J2 = NVAR 



DO 23 JL=1,LENTER 



J = lencol(jl) 



J2 = J2 + 1 

 DO 22 1=1, NS2 

 IF (X(I,J))30,21,20 



20 X(I,J2) = L0G10F(X(I,J)) 

 GO TO 22 



21 X(I,J2) = X(NS3,J) 



22 CONTINUE 



23 CONTINUE 

 C 



8 DO k6 1=1, NS 

 DO 10 J=2,NVAR 



IF (X(I,J)-X(MEN.J))9,10,10 



9 X(I,J) = X(MIN,J) 



10 CONTINUE 

 k6 CONTINUE 



C 



DO ^7 1=1, MIN 



DO 12 J=2,NVAR 



IF (X(I,J) - X(NS2,J))12,12,11 



11 X(I,J) = X(NS2,J) 



12 CONTINUE 

 kj CONTINUE 



C 



2k XA(l) = 0.0 



YA91) =0.0 



II = II + 1 

 C 



DO 28 M=1,NX 



L = IDXVAR(M) 



DO 27 J=1,NY 



JJ = IDYVAR(J) 



IF (JJ - L)25,27,25 



25 K = K + 1 



DO 26 1=1, NS2 

 B(I) = X(I,JJ) 



26 A(I) = X(I,L) 

 C 



WRITE OUTPUT TAPE 6,3 J +,NS,ANAME 



WRITE OUTPUT TAPE 6,35,K,TAG( JJ) 



WRITE OUTPUT TAPE 6,36,TAG(jj),TAG(L),TAG(L) 



CALL APLOT (l,NS2,l,l,XA,YA,A,B) 



27 CONTINUE 



28 CONTINUE 

 C 



IF (NGROUP - 11)29,29,3 



29 WRITE OUTPUT TAPE 6,33 

 GO TO 1 



30 WRITE OUTPUT TAPE 6,38 



