C ***** CNTR6 *****
C PURPOSE
C TO CALCULATE CONCENTRATIONS FROM PARTICLE SAMPLINGS.

 SUBROUTINE CNTR6
C
 DIMENSION NUM(10)
C
 COMMON /AL/XSAV(16),YSAV(16),XMN(12),XMX(12),ZMN(12),
 1 YMX(12),DX(12),DY(12),DZ(12),GRVL(12),DCNC(12),XAV(12),
 2 YAV(1210)ZAV(12,20),TK(3,312)ZMX(12),UUB(12)
 COMMON /A2/CONC(12,10,20)
 COMMON /A3/HS,XMAX,YMAX,ZMIN,ZMAX,NP,IRND,NCX,NCY,NCZ,ST,Q
C
C
C KiUMBER OF PARTICLES IN EACH CELL
 PRINT 11
 DO 105 I=1,NCX
 PRINT 20,XAV(I),OX(I),DY(I),DZ(I)
 PRINT 25,(YAV(I,J), J=1,NCY)
 DO 105 K=1,NCZ
 00 104 J=1,NCY
 104 NUM(J)=CONC(I,J,K)+.l
 105 PRINT 12,ZAV(I,K),(NUM(J), J=1,NCY)
C CONCENTRATIONS
 DO 110 I=1,NCX
 DO 110 K=1,NCZ
 00 120 J=2,NCY
 120 CONC(I,J,K)=CONC(I,J,K)/DCNC(I)/2.
 110 CONC(I,1,K)=CONC(I,1,K)/DCNC(I)
C
 PRINT 15
 DO 130 I=1,NCX
 PRINT 20,XAV(I),DX(I),DY(I),DZ(I)
 PRINT 25,(YAV(I,J), J=1,NCY)
 DO 130 K=1INCZ
 130 PRINT 30,ZAV(I,K),(CONC(I,J,K), J=1,NCY)
C
 11 FORMAT('1',15X,'NUMBER OF PARTICLES IN EACH CELL'//)
 12 FORMAT(F9.4,3X,10(1XI11))
 15 FORMAT('1',15X,'CONCENTRATION IN MG/M**31//)
 20 FORMAT(//15X,'AT X=',E15.6/15X,'GRID SIZE IS',5X,'DX=',
 1 E15.6,5X,'DY=',E15.6,5X,'DZ=',E15.6//)
 25 FORMAT(' Z*,4X,'Y= ,3X, 10(2X,F10.5)/)
 30 FORMAT(F9.4,3X,10(IX,EI1.4))
 RETURN
 END