mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-13 16:47:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

Avoid calling H5FD_subfiling_init from h5open_f. (#2149)

Browse Source 
* Only call H5FD_SUBFILING if subfiling conditions are met

* clang format
This commit is contained in:
Scot Breitenfeld 2022-10-07 11:01:42 -05:00 committed by GitHub
parent e80079fd21
commit 306db409d4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fortran/src/H5_f.c
View File

@ -561,7 +561,29 @@ h5init_flags_c(int_f *h5d_flags, size_t_f *h5d_size_flags, int_f *h5e_flags, hid
h5fd_hid_flags[4] = (hid_t_f)H5FD_MULTI;
h5fd_hid_flags[5] = (hid_t_f)H5FD_SEC2;
h5fd_hid_flags[6] = (hid_t_f)H5FD_STDIO;
h5fd_hid_flags[7] = (hid_t_f)H5FD_SUBFILING;
/* Calling H5FD_subfiling_init here requires the
subfiling requirements to be met. Only set the
subfiling if it meets the below conditions */
h5fd_hid_flags[7] = (hid_t_f)H5I_INVALID_HID;
#ifdef H5_HAVE_PARALLEL
int mpi_initialized = 0;
int provided = 0;
int mpi_code;
if (MPI_SUCCESS == (mpi_code = MPI_Initialized(&mpi_initialized))) {
if (mpi_initialized) {
/* If MPI is initialized, validate that it was initialized with MPI_THREAD_MULTIPLE */
if (MPI_SUCCESS == (mpi_code = MPI_Query_thread(&provided))) {
if (provided == MPI_THREAD_MULTIPLE) {
h5fd_hid_flags[7] = (hid_t_f)H5FD_SUBFILING;
}
}
}
}
#endif
#ifdef H5_HAVE_SUBFILING_VFD
h5fd_hid_flags[8] = (hid_t_f)H5FD_SUBFILING_DEFAULT_STRIPE_SIZE;
#else