change Pnetcdf IO funtion
change Pnetcdf IO function which can avoid incompatible MPI datatype problemmaster
parent
f8e6cd033a
commit
d1f9e9aee3
|
@ -276,26 +276,26 @@ static IOR_offset_t NCMPI_Xfer(int access, void *fd, IOR_size_t * buffer,
|
||||||
/* access the file */
|
/* access the file */
|
||||||
if (access == WRITE) { /* WRITE */
|
if (access == WRITE) { /* WRITE */
|
||||||
if (param->collective) {
|
if (param->collective) {
|
||||||
NCMPI_CHECK(ncmpi_put_vara_all
|
NCMPI_CHECK(ncmpi_put_vara_schar_all
|
||||||
(*(int *)fd, var_id, offset, bufSize,
|
(*(int *)fd, var_id, offset, bufSize,
|
||||||
bufferPtr, length, MPI_SIGNED_CHAR),
|
bufferPtr),
|
||||||
"cannot write to data set");
|
"cannot write to data set");
|
||||||
} else {
|
} else {
|
||||||
NCMPI_CHECK(ncmpi_put_vara
|
NCMPI_CHECK(ncmpi_put_vara_schar
|
||||||
(*(int *)fd, var_id, offset, bufSize,
|
(*(int *)fd, var_id, offset, bufSize,
|
||||||
bufferPtr, length, MPI_SIGNED_CHAR),
|
bufferPtr),
|
||||||
"cannot write to data set");
|
"cannot write to data set");
|
||||||
}
|
}
|
||||||
} else { /* READ or CHECK */
|
} else { /* READ or CHECK */
|
||||||
if (param->collective == TRUE) {
|
if (param->collective == TRUE) {
|
||||||
NCMPI_CHECK(ncmpi_get_vara_all
|
NCMPI_CHECK(ncmpi_get_vara_schar_all
|
||||||
(*(int *)fd, var_id, offset, bufSize,
|
(*(int *)fd, var_id, offset, bufSize,
|
||||||
bufferPtr, length, MPI_SIGNED_CHAR),
|
bufferPtr),
|
||||||
"cannot read from data set");
|
"cannot read from data set");
|
||||||
} else {
|
} else {
|
||||||
NCMPI_CHECK(ncmpi_get_vara
|
NCMPI_CHECK(ncmpi_get_vara_schar
|
||||||
(*(int *)fd, var_id, offset, bufSize,
|
(*(int *)fd, var_id, offset, bufSize,
|
||||||
bufferPtr, length, MPI_SIGNED_CHAR),
|
bufferPtr),
|
||||||
"cannot read from data set");
|
"cannot read from data set");
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue