Fix bug in MPI type reported by Chrostopher Bartz

This commit is contained in:
Russ Rew 2014-02-16 11:54:25 -07:00
parent 0627c82758
commit 178e99467a

View File

@ -701,7 +701,7 @@ nc4_put_vara(NC *nc, int ncid, int varid, const size_t *startp,
* correct with this usage, as long as it's not executed on * correct with this usage, as long as it's not executed on
* heterogenous systems) * heterogenous systems)
*/ */
if(MPI_SUCCESS != MPI_Allreduce(MPI_IN_PLACE, &xtend_size, (var->ndims * (sizeof(hsize_t) / sizeof(int))), MPI_INT, MPI_MAX, h5->comm)) if(MPI_SUCCESS != MPI_Allreduce(MPI_IN_PLACE, &xtend_size, (var->ndims * (sizeof(hsize_t) / sizeof(int))), MPI_UNSIGNED, MPI_MAX, h5->comm))
BAIL(NC_EMPI); BAIL(NC_EMPI);
} }
#endif /* USE_PARALLEL */ #endif /* USE_PARALLEL */