summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--fortran/src/H5f90global.f908
-rw-r--r--fortran/src/H5f90misc.c3
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