1      subroutine argos_space_prtcnt(lcnt)
2c
3      implicit none
4c
5#include "argos_space_common.fh"
6#include "msgids.fh"
7#include "global.fh"
8c
9      integer lcnt(np,3)
10c
11      integer i,j
12c
13      do 1 i=1,np
14      lcnt(i,1)=0
15      lcnt(i,2)=0
16      lcnt(i,3)=0
17    1 continue
18c
19      lcnt(me+1,1)=mbxloc
20      lcnt(me+1,2)=nwmloc*nwa
21      lcnt(me+1,3)=nsaloc
22c
23      if(np.gt.1) call ga_igop(msp_08,lcnt,3*np,'+')
24c
25      if(me.eq.0) then
26      write(lfnout,1000)
27 1000 format(/,' Initial distribution p:b(w+s)',/)
28      write(lfnout,1001) (i-1,(lcnt(i,j),j=1,3),i=1,np)
29 1001 format(4(3x,i4,':',i5,'(',i7,'+',i7,')'))
30      write(lfnout,1002) mwm,msa
31 1002 format(/,' Dimension workarrays solvent ',i6,/,
32     + 22x,'solute  ',i6)
33      endif
34c
35      return
36      end
37c $Id$
38