diff options
Diffstat (limited to 'fortran/src/H5_f.c')
| -rw-r--r-- | fortran/src/H5_f.c | 32 |
1 files changed, 1 insertions, 31 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index e5601b9..14b44ef 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -163,7 +163,6 @@ nh5close_types_c( hid_t_f * types, int_f *lentypes, * Name: h5init_flags_c * Purpose: Initialize Fortran flags * Inputs: h5d_flags - H5D inteface flags - * h5e_flags - H5E interface flags * h5f_flags - H5F interface flags * h5fd_flags - H5FD interface flags * h5g_flags - H5G interface flags @@ -181,7 +180,7 @@ nh5close_types_c( hid_t_f * types, int_f *lentypes, * Added more FD flags and new H5LIB flags *---------------------------------------------------------------------------*/ int_f -nh5init_flags_c( int_f *h5d_flags, int_f *h5e_flags, int_f *h5f_flags, +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 *h5p_flags, int_f *h5r_flags, int_f *h5s_flags, int_f *h5t_flags, int_f *h5z_flags) @@ -211,35 +210,6 @@ nh5init_flags_c( int_f *h5d_flags, int_f *h5e_flags, int_f *h5f_flags, h5d_flags[18] = H5D_FILL_VALUE_USER_DEFINED; /* - * H5E flags - */ - - h5e_flags[0] = H5E_NONE_MAJOR; - h5e_flags[1] = H5E_ARGS; - h5e_flags[2] = H5E_RESOURCE; - h5e_flags[3] = H5E_INTERNAL; - h5e_flags[4] = H5E_FILE; - h5e_flags[5] = H5E_IO; - h5e_flags[6] = H5E_FUNC; - h5e_flags[7] = H5E_ATOM; - h5e_flags[8] = H5E_CACHE; - h5e_flags[9] = H5E_BTREE; - h5e_flags[10] = H5E_SYM; - h5e_flags[11] = H5E_HEAP; - h5e_flags[12] = H5E_OHDR; - h5e_flags[13] = H5E_DATATYPE; - h5e_flags[14] = H5E_DATASPACE; - h5e_flags[15] = H5E_DATASET; - h5e_flags[16] = H5E_STORAGE; - h5e_flags[17] = H5E_PLIST; - h5e_flags[18] = H5E_ATTR; - h5e_flags[19] = H5E_PLINE; - h5e_flags[20] = H5E_EFL; - h5e_flags[21] = H5E_REFERENCE; - h5e_flags[22] = H5E_VFL; - h5e_flags[23] = H5E_TBBT; - -/* * H5F flags */ h5f_flags[0] = (int_f)H5F_ACC_RDWR; |