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/H5f90misc.c | |
| 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/H5f90misc.c')
| -rw-r--r-- | fortran/src/H5f90misc.c | 3 |
1 files changed, 3 insertions, 0 deletions
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 |