diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-07 18:17:18 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2000-11-07 18:17:18 (GMT) |
| commit | 0cd13ba19df7b19146b598fc9a774791ab02e223 (patch) | |
| tree | af01432a731cffef617a8378c71434f426fdeee9 /fortran/src/H5f90global.f90 | |
| parent | 564b68cecc53b4fa4a48b3633643897fc62cab5f (diff) | |
| download | hdf5-0cd13ba19df7b19146b598fc9a774791ab02e223.zip hdf5-0cd13ba19df7b19146b598fc9a774791ab02e223.tar.gz hdf5-0cd13ba19df7b19146b598fc9a774791ab02e223.tar.bz2 | |
[svn-r2808]
Purpose:
New feature
Description:
Added F90 flags to support h5glink_f subroutine
H5G_LINK_ERROR_F
H5G_LINK_HARD_F
H5G_LINK_SOFT_F
Platforms tested:
Linux (eirene)
Diffstat (limited to 'fortran/src/H5f90global.f90')
| -rw-r--r-- | fortran/src/H5f90global.f90 | 8 |
1 files changed, 7 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 ! |