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