& nginv_start(0),1,MPI_INTEGER,FG_COMM,IERROR)
call MPI_Allgather(myginv_ng_count,1,MPI_INTEGER,
& nginv_counts(0),1,MPI_INTEGER,FG_COMM,IERROR)
& nginv_start(0),1,MPI_INTEGER,FG_COMM,IERROR)
call MPI_Allgather(myginv_ng_count,1,MPI_INTEGER,
& nginv_counts(0),1,MPI_INTEGER,FG_COMM,IERROR)