diff options
| -rw-r--r-- | fortran/src/H5f90global.f90 | 8 | ||||
| -rw-r--r-- | fortran/src/H5f90misc.c | 3 |
2 files changed, 10 insertions, 1 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90 index 55fbad1..6752754 100644 --- a/fortran/src/H5f90global.f90 +++ b/fortran/src/H5f90global.f90 @@ -133,7 +133,7 @@ ! ! H5G flags declaration ! - INTEGER, PARAMETER :: H5G_FLAGS_LEN = 5 + INTEGER, PARAMETER :: H5G_FLAGS_LEN = 8 INTEGER H5G_flags(H5G_FLAGS_LEN) COMMON /H5G_FLAGS/ H5G_flags @@ -142,12 +142,18 @@ INTEGER :: H5G_GROUP_F INTEGER :: H5G_DATASET_F INTEGER :: H5G_TYPE_F + INTEGER :: H5G_LINK_ERROR_F + INTEGER :: H5G_LINK_HARD_F + INTEGER :: H5G_LINK_SOFT_F EQUIVALENCE(H5G_flags(1), H5G_UNKNOWN_F) EQUIVALENCE(H5G_flags(2), H5G_LINK_F) EQUIVALENCE(H5G_flags(3), H5G_GROUP_F) EQUIVALENCE(H5G_flags(4), H5G_DATASET_F) EQUIVALENCE(H5G_flags(5), H5G_TYPE_F) + EQUIVALENCE(H5G_flags(6), H5G_LINK_ERROR_F) + EQUIVALENCE(H5G_flags(7), H5G_LINK_HARD_F) + EQUIVALENCE(H5G_flags(8), H5G_LINK_SOFT_F) ! ! H5D flags declaration ! diff --git a/fortran/src/H5f90misc.c b/fortran/src/H5f90misc.c index 04e05f1..109ac1a 100644 --- a/fortran/src/H5f90misc.c +++ b/fortran/src/H5f90misc.c @@ -224,6 +224,9 @@ nh5init_flags_c( int_f *h5d_flags, int_f *h5e_flags, int_f *h5f_flags, h5g_flags[2] = H5G_GROUP; h5g_flags[3] = H5G_DATASET; h5g_flags[4] = H5G_TYPE; + h5g_flags[5] = H5G_LINK_ERROR; + h5g_flags[6] = H5G_LINK_HARD; + h5g_flags[7] = H5G_LINK_SOFT; /* * H5I flags |