CHECK_BUFFER(2, buf, count) \
CHECK_COUNT(3, count) \
CHECK_TYPE(4, datatype) \
- CHECK_NULL(5, MPI_ERR_ARG, status)
#define CHECK_FILE_INPUT_OFFSET \
CHECK_FILE(1, fh) \
CHECK_OFFSET(3, offset) \
CHECK_COUNT(4, count) \
CHECK_TYPE(5, datatype) \
- CHECK_NULL(6, MPI_ERR_ARG, status)
extern MPI_Errhandler SMPI_default_File_Errhandler;
fh->file_->seek(position+movesize, SEEK_SET);
}
XBT_VERB("Position after read in MPI_File %s : %llu",fh->file_->get_path(), fh->file_->tell());
- status->count=count*datatype->size();
+ if(status != MPI_STATUS_IGNORE)
+ status->count=count*datatype->size();
return MPI_SUCCESS;
}
fh->file_->seek(position+movesize, SEEK_SET);
}
XBT_VERB("Position after write in MPI_File %s : %llu",fh->file_->get_path(), fh->file_->tell());
- status->count=count*datatype->size();
+ if(status != MPI_STATUS_IGNORE)
+ status->count=count*datatype->size();
return MPI_SUCCESS;
}