From 22d4097ff71fcdb7fbc505d3296f63943251ffd3 Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Fri, 18 Sep 2009 09:49:10 -0500
Subject: [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
---
 fortran/src/H5_f.c          | 42 ++++++++++++++++++++++--------------------
 fortran/src/H5f90global.f90 | 44 +++++++++++++++++++++++---------------------
 2 files changed, 45 insertions(+), 41 deletions(-)

diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c
index a8b2d95..e0748b5b 100644
--- a/fortran/src/H5_f.c
+++ b/fortran/src/H5_f.c
@@ -557,26 +557,28 @@ nh5init_flags_c( int_f *h5d_flags, int_f *h5f_flags,
       h5t_flags[10] = (int_f)H5T_ORDER_LE;
       h5t_flags[11] = (int_f)H5T_ORDER_BE;
       h5t_flags[12] = (int_f)H5T_ORDER_VAX;
-      h5t_flags[13] = (int_f)H5T_PAD_ZERO;
-      h5t_flags[14] = (int_f)H5T_PAD_ONE;
-      h5t_flags[15] = (int_f)H5T_PAD_BACKGROUND;
-      h5t_flags[16] = (int_f)H5T_PAD_ERROR;
-      h5t_flags[17] = (int_f)H5T_SGN_NONE;
-      h5t_flags[18] = (int_f)H5T_SGN_2;
-      h5t_flags[19] = (int_f)H5T_SGN_ERROR;
-      h5t_flags[20] = (int_f)H5T_NORM_IMPLIED;
-      h5t_flags[21] = (int_f)H5T_NORM_MSBSET;
-      h5t_flags[22] = (int_f)H5T_NORM_NONE;
-      h5t_flags[23] = (int_f)H5T_CSET_ASCII;
-      h5t_flags[24] = (int_f)H5T_CSET_UTF8;
-      h5t_flags[25] = (int_f)H5T_STR_NULLTERM;
-      h5t_flags[26] = (int_f)H5T_STR_NULLPAD;
-      h5t_flags[27] = (int_f)H5T_STR_SPACEPAD;
-      h5t_flags[28] = (int_f)H5T_STR_ERROR;
-      h5t_flags[29] = (int_f)H5T_VLEN;
-      h5t_flags[30] = (int_f)H5T_ARRAY;
-      h5t_flags[31] = (int_f)H5T_DIR_ASCEND;
-      h5t_flags[32] = (int_f)H5T_DIR_DESCEND;
+      h5t_flags[13] = (int_f)H5T_ORDER_NONE;
+      h5t_flags[14] = (int_f)H5T_PAD_ZERO;
+      h5t_flags[15] = (int_f)H5T_PAD_ONE;
+      h5t_flags[16] = (int_f)H5T_PAD_BACKGROUND;
+      h5t_flags[17] = (int_f)H5T_PAD_ERROR;
+      h5t_flags[18] = (int_f)H5T_SGN_NONE;
+      h5t_flags[19] = (int_f)H5T_SGN_2;
+      h5t_flags[20] = (int_f)H5T_SGN_ERROR;
+      h5t_flags[21] = (int_f)H5T_NORM_IMPLIED;
+      h5t_flags[22] = (int_f)H5T_NORM_MSBSET;
+      h5t_flags[23] = (int_f)H5T_NORM_NONE;
+      h5t_flags[24] = (int_f)H5T_CSET_ASCII;
+      h5t_flags[25] = (int_f)H5T_CSET_UTF8;
+      h5t_flags[26] = (int_f)H5T_STR_NULLTERM;
+      h5t_flags[27] = (int_f)H5T_STR_NULLPAD;
+      h5t_flags[28] = (int_f)H5T_STR_SPACEPAD;
+      h5t_flags[29] = (int_f)H5T_STR_ERROR;
+      h5t_flags[30] = (int_f)H5T_VLEN;
+      h5t_flags[31] = (int_f)H5T_ARRAY;
+      h5t_flags[32] = (int_f)H5T_DIR_ASCEND;
+      h5t_flags[33] = (int_f)H5T_DIR_DESCEND;
+
 /*
  *  H5Z flags
  */
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
-- 
cgit v0.12