diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-08-25 21:49:36 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-08-25 21:49:36 (GMT) |
| commit | 4939ee241909f476bc25ad6f3a7f7ee56c443fa8 (patch) | |
| tree | f7e374207794aed674c2980dd68847b73bcc7feb /fortran/src/H5f90global.F90 | |
| parent | 8aef26f78594fc4f642e3bf5f170867c64839d2c (diff) | |
| download | hdf5-4939ee241909f476bc25ad6f3a7f7ee56c443fa8.zip hdf5-4939ee241909f476bc25ad6f3a7f7ee56c443fa8.tar.gz hdf5-4939ee241909f476bc25ad6f3a7f7ee56c443fa8.tar.bz2 | |
[svn-r27580] Fix for:
HDFFV-9283
Add H5Dget_offset fortran wrapper
tested: h5committest
Diffstat (limited to 'fortran/src/H5f90global.F90')
| -rw-r--r-- | fortran/src/H5f90global.F90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/fortran/src/H5f90global.F90 b/fortran/src/H5f90global.F90 index c88327c..947eff4 100644 --- a/fortran/src/H5f90global.F90 +++ b/fortran/src/H5f90global.F90 @@ -316,6 +316,18 @@ MODULE H5GLOBAL EQUIVALENCE(H5generic_flags(7), H5_ITER_DEC_F) EQUIVALENCE(H5generic_flags(8), H5_ITER_NATIVE_F) EQUIVALENCE(H5generic_flags(9), H5_ITER_N_F) + + INTEGER, PARAMETER :: H5generic_haddr_FLAGS_LEN = 1 + INTEGER(HADDR_T) :: H5generic_haddr_flags(H5generic_haddr_FLAGS_LEN) + !DEC$if defined(BUILD_HDF5_DLL) + !DEC$ATTRIBUTES DLLEXPORT :: /H5generic_haddr_FLAGS/ + !DEC$endif + COMMON /H5generic_haddr_FLAGS/ H5generic_haddr_flags + + INTEGER(HADDR_T) :: HADDR_UNDEF_F + + EQUIVALENCE(H5generic_haddr_flags(1), HADDR_UNDEF_F) + ! ! H5G flags declaration ! |