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_ff.f90 | |
| 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_ff.f90')
| -rw-r--r-- | fortran/src/H5_ff.f90 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/fortran/src/H5_ff.f90 b/fortran/src/H5_ff.f90 index f1f7884..1e8d215 100644 --- a/fortran/src/H5_ff.f90 +++ b/fortran/src/H5_ff.f90 @@ -78,6 +78,7 @@ INTEGER FUNCTION h5init_flags_c(i_H5D_flags, & i_H5F_flags, & i_H5FD_flags, & + i_H5FD_hid_flags, & i_H5G_flags, & i_H5I_flags, & i_H5P_flags, & @@ -90,6 +91,7 @@ INTEGER i_H5G_flags(H5G_FLAGS_LEN) INTEGER i_H5D_flags(H5D_FLAGS_LEN) INTEGER i_H5FD_flags(H5FD_FLAGS_LEN) + INTEGER i_H5FD_hid_flags(H5FD_HID_FLAGS_LEN) INTEGER i_H5I_flags(H5I_FLAGS_LEN) INTEGER i_H5P_flags(H5P_FLAGS_LEN) INTEGER i_H5R_flags(H5R_FLAGS_LEN) @@ -115,6 +117,7 @@ error_2 = h5init_flags_c(H5D_flags, & H5F_flags, & H5FD_flags, & + H5FD_hid_flags, & H5G_flags, & H5I_flags, & H5P_flags, & |