diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2022-10-06 16:08:56 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2022-10-06 16:08:56 (GMT) |
commit | e80079fd21ffe6978ac69e7632e069cc44874675 (patch) | |
tree | b1f75384a0df8385cb8ad5e13b233554c20bdfa1 /fortran/src/H5_f.c | |
parent | a322eb6147f243e1d45934ddfc1cfa6f69a0ddec (diff) | |
download | hdf5-e80079fd21ffe6978ac69e7632e069cc44874675.zip hdf5-e80079fd21ffe6978ac69e7632e069cc44874675.tar.gz hdf5-e80079fd21ffe6978ac69e7632e069cc44874675.tar.bz2 |
Subfiling Fortran wrapper work. (#2143)
* added C ref. for Fortran constants
* added C ref. for Fortran constants
* move constant paramters to H5* module listing
* added back comment
* Fortran subfiling and ioc FD with tests. H5Pset/get_mpi_params wrappers with tests, misc.. parallel test clean-up.
* misc. fixes
* fixed CMake testpar issues, formatted, misc. updates
* updated tests
Diffstat (limited to 'fortran/src/H5_f.c')
-rw-r--r-- | fortran/src/H5_f.c | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index 468debe..385241d 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -525,6 +525,31 @@ h5init_flags_c(int_f *h5d_flags, size_t_f *h5d_size_flags, int_f *h5e_flags, hid h5fd_flags[8] = (int_f)H5FD_MEM_LHEAP; h5fd_flags[9] = (int_f)H5FD_MEM_OHDR; h5fd_flags[10] = (int_f)H5FD_MEM_NTYPES; +#ifdef H5_HAVE_SUBFILING_VFD + h5fd_flags[11] = (int_f)H5FD_SUBFILING_CURR_FAPL_VERSION; + h5fd_flags[12] = (int_f)H5FD_SUBFILING_FAPL_MAGIC; + h5fd_flags[13] = (int_f)H5FD_SUBFILING_DEFAULT_STRIPE_COUNT; + h5fd_flags[14] = (int_f)H5FD_IOC_FAPL_MAGIC; + h5fd_flags[15] = (int_f)H5FD_IOC_CURR_FAPL_VERSION; + h5fd_flags[16] = (int_f)H5FD_IOC_DEFAULT_THREAD_POOL_SIZE; + h5fd_flags[17] = (int_f)SELECT_IOC_ONE_PER_NODE; + h5fd_flags[18] = (int_f)SELECT_IOC_EVERY_NTH_RANK; + h5fd_flags[19] = (int_f)SELECT_IOC_WITH_CONFIG; + h5fd_flags[20] = (int_f)SELECT_IOC_TOTAL; + h5fd_flags[21] = (int_f)ioc_selection_options; +#else + h5fd_flags[11] = 0; + h5fd_flags[12] = 0; + h5fd_flags[13] = 0; + h5fd_flags[14] = 0; + h5fd_flags[15] = 0; + h5fd_flags[16] = 0; + h5fd_flags[17] = 0; + h5fd_flags[18] = 0; + h5fd_flags[19] = 0; + h5fd_flags[20] = 0; + h5fd_flags[21] = 0; +#endif /* * H5FD flags of type hid_t @@ -536,6 +561,12 @@ 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; +#ifdef H5_HAVE_SUBFILING_VFD + h5fd_hid_flags[8] = (hid_t_f)H5FD_SUBFILING_DEFAULT_STRIPE_SIZE; +#else + h5fd_hid_flags[8] = 0; +#endif /* * H5G flags |