diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2005-04-10 22:15:51 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2005-04-10 22:15:51 (GMT) |
| commit | 408471420f13327597fb9c87149bc1bc709f8740 (patch) | |
| tree | 9b9057577559d7cee59b25deac34c9af32a3dd9c /fortran/src/H5_f.c | |
| parent | 13ca97618db62034fa78b8d87f7160cb2a1f4bfc (diff) | |
| download | hdf5-408471420f13327597fb9c87149bc1bc709f8740.zip hdf5-408471420f13327597fb9c87149bc1bc709f8740.tar.gz hdf5-408471420f13327597fb9c87149bc1bc709f8740.tar.bz2 | |
[svn-r10585] Purpose: Bug fix
Description: h5pget_driver_f function returned information that could not
be interpreted by fortran application
Solution: Defined Fortran global variables that correspond to
the C H5FD_<driver_name> variables at the Fortran library
initialization time.
Platforms tested: heping with PGI compilers, sol 64-bit and copper parallel
Misc. update:
Diffstat (limited to 'fortran/src/H5_f.c')
| -rw-r--r-- | fortran/src/H5_f.c | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index 04e8df6..6ba85fc 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -167,6 +167,7 @@ nh5close_types_c( hid_t_f * types, int_f *lentypes, * Inputs: h5d_flags - H5D inteface flags * h5f_flags - H5F interface flags * h5fd_flags - H5FD interface flags + * h5fd_hid_flags- H5FD interface flags of type hid_t * h5g_flags - H5G interface flags * h5i_flags - H5I interface flags * h5p_flags - H5P interface flags @@ -180,10 +181,13 @@ nh5close_types_c( hid_t_f * types, int_f *lentypes, * Tuesday, August 3, 1999 * Modifications: Added Z flags. EIP, March 12, 2003 * Added more FD flags and new H5LIB flags + * Added more FD flags for HDF5 file driver + * EIP, April 9, 2005 *---------------------------------------------------------------------------*/ int_f nh5init_flags_c( int_f *h5d_flags, int_f *h5f_flags, - int_f *h5fd_flags, int_f *h5g_flags, int_f *h5i_flags, + int_f *h5fd_flags, hid_t *h5fd_hid_flags, + int_f *h5g_flags, int_f *h5i_flags, int_f *h5p_flags, int_f *h5r_flags, int_f *h5s_flags, int_f *h5t_flags, int_f *h5z_flags) { @@ -247,6 +251,18 @@ nh5init_flags_c( int_f *h5d_flags, int_f *h5f_flags, h5fd_flags[10] = H5FD_MEM_NTYPES; /* + * H5FD flags of type hid_t + */ + h5fd_hid_flags[0] = H5FD_CORE; + h5fd_hid_flags[1] = H5FD_FAMILY; + h5fd_hid_flags[2] = H5FD_LOG; + h5fd_hid_flags[3] = H5FD_MPIO; + h5fd_hid_flags[4] = H5FD_MULTI; + h5fd_hid_flags[5] = H5FD_SEC2; + h5fd_hid_flags[6] = H5FD_STDIO; + h5fd_hid_flags[7] = H5FD_STREAM; + +/* * H5G flags */ |