my_ng_count=igmult_end-igmult_start
call MPI_Allgather(3*my_ng_count,1,MPI_INTEGER,ng_counts(0),1,
& MPI_INTEGER,FG_COMM,IERROR)
my_ng_count=igmult_end-igmult_start
call MPI_Allgather(3*my_ng_count,1,MPI_INTEGER,ng_counts(0),1,
& MPI_INTEGER,FG_COMM,IERROR)