summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5f90global.f90
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2009-09-18 14:49:10 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2009-09-18 14:49:10 (GMT)
commit22d4097ff71fcdb7fbc505d3296f63943251ffd3 (patch)
tree6702798d2d4331704806ab5284fa5967490830ab /fortran/src/H5f90global.f90
parentb0883a206f553b27b00462ae3ea0645aaca51ff6 (diff)
downloadhdf5-22d4097ff71fcdb7fbc505d3296f63943251ffd3.zip
hdf5-22d4097ff71fcdb7fbc505d3296f63943251ffd3.tar.gz
hdf5-22d4097ff71fcdb7fbc505d3296f63943251ffd3.tar.bz2
[svn-r17498] Bug 1471 - H5Tset_order_f missing constant option H5T_ORDER_NONE
- Fixed, added H5T_ORDER_NONE_F Tested: smirom (g95, gfortran, ifort, pgf90) linew
Diffstat (limited to 'fortran/src/H5f90global.f90')
-rw-r--r--fortran/src/H5f90global.f9044
1 files changed, 23 insertions, 21 deletions
diff --git a/fortran/src/H5f90global.f90 b/fortran/src/H5f90global.f90
index 3fc247f..28d00f7 100644
--- a/fortran/src/H5f90global.f90
+++ b/fortran/src/H5f90global.f90
@@ -687,7 +687,7 @@ MODULE H5GLOBAL
!
! H5T flags declaration
!
- INTEGER, PARAMETER :: H5T_FLAGS_LEN = 33
+ INTEGER, PARAMETER :: H5T_FLAGS_LEN = 34
INTEGER H5T_flags(H5T_FLAGS_LEN)
!DEC$if defined(BUILD_HDF5_DLL)
!DEC$ATTRIBUTES DLLEXPORT :: /H5T_FLAGS/
@@ -709,6 +709,7 @@ MODULE H5GLOBAL
INTEGER :: H5T_ORDER_LE_F
INTEGER :: H5T_ORDER_BE_F
INTEGER :: H5T_ORDER_VAX_F
+ INTEGER :: H5T_ORDER_NONE_F
INTEGER :: H5T_PAD_ZERO_F
INTEGER :: H5T_PAD_ONE_F
INTEGER :: H5T_PAD_BACKGROUND_F
@@ -741,26 +742,27 @@ MODULE H5GLOBAL
EQUIVALENCE(H5T_flags(11), H5T_ORDER_LE_F)
EQUIVALENCE(H5T_flags(12), H5T_ORDER_BE_F)
EQUIVALENCE(H5T_flags(13), H5T_ORDER_VAX_F)
- EQUIVALENCE(H5T_flags(14), H5T_PAD_ZERO_F)
- EQUIVALENCE(H5T_flags(15), H5T_PAD_ONE_F)
- EQUIVALENCE(H5T_flags(16), H5T_PAD_BACKGROUND_F)
- EQUIVALENCE(H5T_flags(17), H5T_PAD_ERROR_F)
- EQUIVALENCE(H5T_flags(18), H5T_SGN_NONE_F)
- EQUIVALENCE(H5T_flags(19), H5T_SGN_2_F)
- EQUIVALENCE(H5T_flags(20), H5T_SGN_ERROR_F)
- EQUIVALENCE(H5T_flags(21), H5T_NORM_IMPLIED_F)
- EQUIVALENCE(H5T_flags(22), H5T_NORM_MSBSET_F)
- EQUIVALENCE(H5T_flags(23), H5T_NORM_NONE_F)
- EQUIVALENCE(H5T_flags(24), H5T_CSET_ASCII_F)
- EQUIVALENCE(H5T_flags(25), H5T_CSET_UTF8_F)
- EQUIVALENCE(H5T_flags(26), H5T_STR_NULLTERM_F)
- EQUIVALENCE(H5T_flags(27), H5T_STR_NULLPAD_F)
- EQUIVALENCE(H5T_flags(28), H5T_STR_SPACEPAD_F)
- EQUIVALENCE(H5T_flags(29), H5T_STR_ERROR_F)
- EQUIVALENCE(H5T_flags(30), H5T_VLEN_F)
- EQUIVALENCE(H5T_flags(31), H5T_ARRAY_F)
- EQUIVALENCE(H5T_flags(32), H5T_DIR_ASCEND_F)
- EQUIVALENCE(H5T_flags(33), H5T_DIR_DESCEND_F)
+ EQUIVALENCE(H5T_flags(14), H5T_ORDER_NONE_F)
+ EQUIVALENCE(H5T_flags(15), H5T_PAD_ZERO_F)
+ EQUIVALENCE(H5T_flags(16), H5T_PAD_ONE_F)
+ EQUIVALENCE(H5T_flags(17), H5T_PAD_BACKGROUND_F)
+ EQUIVALENCE(H5T_flags(18), H5T_PAD_ERROR_F)
+ EQUIVALENCE(H5T_flags(19), H5T_SGN_NONE_F)
+ EQUIVALENCE(H5T_flags(20), H5T_SGN_2_F)
+ EQUIVALENCE(H5T_flags(21), H5T_SGN_ERROR_F)
+ EQUIVALENCE(H5T_flags(22), H5T_NORM_IMPLIED_F)
+ EQUIVALENCE(H5T_flags(23), H5T_NORM_MSBSET_F)
+ EQUIVALENCE(H5T_flags(24), H5T_NORM_NONE_F)
+ EQUIVALENCE(H5T_flags(25), H5T_CSET_ASCII_F)
+ EQUIVALENCE(H5T_flags(26), H5T_CSET_UTF8_F)
+ EQUIVALENCE(H5T_flags(27), H5T_STR_NULLTERM_F)
+ EQUIVALENCE(H5T_flags(28), H5T_STR_NULLPAD_F)
+ EQUIVALENCE(H5T_flags(29), H5T_STR_SPACEPAD_F)
+ EQUIVALENCE(H5T_flags(30), H5T_STR_ERROR_F)
+ EQUIVALENCE(H5T_flags(31), H5T_VLEN_F)
+ EQUIVALENCE(H5T_flags(32), H5T_ARRAY_F)
+ EQUIVALENCE(H5T_flags(33), H5T_DIR_ASCEND_F)
+ EQUIVALENCE(H5T_flags(34), H5T_DIR_DESCEND_F)
!
! H5Z flags declaration