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/H5f90proto.h | |
| 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/H5f90proto.h')
| -rw-r--r-- | fortran/src/H5f90proto.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index ff7678b..027cf1a 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -651,7 +651,8 @@ H5_FCDLL int_f nh5close_c(void); H5_FCDLL int_f nh5init_types_c(hid_t_f *types, hid_t_f * floatingtypes, hid_t_f * integertypes); H5_FCDLL int_f nh5close_types_c(hid_t_f *types, int_f *lentypes, hid_t_f * floatingtypes, int_f * floatinglen, hid_t_f * integertypes, int_f * integerlen); H5_FCDLL 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_f *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); H5_FCDLL int_f nh5init1_flags_c(int_f *h5lib_flags); |