vitalif
/
mdtest
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

change Pnetcdf IO funtion 

change Pnetcdf IO function which can avoid incompatible MPI datatype problem
master
VinsonLeung 2017-11-22 23:20:22 -06:00 committed by GitHub
parent f8e6cd033a
commit d1f9e9aee3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/aiori-NCMPI.c
View File

@ -276,26 +276,26 @@ static IOR_offset_t NCMPI_Xfer(int access, void *fd, IOR_size_t * buffer,
/* access the file */
if (access == WRITE) { /* WRITE */
if (param->collective) {
NCMPI_CHECK(ncmpi_put_vara_all
NCMPI_CHECK(ncmpi_put_vara_schar_all
(*(int *)fd, var_id, offset, bufSize,
bufferPtr, length, MPI_SIGNED_CHAR),
bufferPtr),
"cannot write to data set");
} else {
NCMPI_CHECK(ncmpi_put_vara
NCMPI_CHECK(ncmpi_put_vara_schar
(*(int *)fd, var_id, offset, bufSize,
bufferPtr, length, MPI_SIGNED_CHAR),
bufferPtr),
"cannot write to data set");
}
} else { /* READ or CHECK */
if (param->collective == TRUE) {
NCMPI_CHECK(ncmpi_get_vara_all
NCMPI_CHECK(ncmpi_get_vara_schar_all
(*(int *)fd, var_id, offset, bufSize,
bufferPtr, length, MPI_SIGNED_CHAR),
bufferPtr),
"cannot read from data set");
} else {
NCMPI_CHECK(ncmpi_get_vara
NCMPI_CHECK(ncmpi_get_vara_schar
(*(int *)fd, var_id, offset, bufSize,
bufferPtr, length, MPI_SIGNED_CHAR),
bufferPtr),
"cannot read from data set");
}
}