[svn-r26010] Fix for:

HDFFV-9049
Intel 15.0 15.0.1 Fails with --enable-fortran2003

Added BIND to the Fortran 2003 functions.

Tested: windows (tested concept)
        linux (--enable-fortran and --enable-fortran2003)

1 files changed, 128 insertions, 97 deletions

diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index b66709a..fa4dc5b 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -388,16 +388,16 @@ nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims )
 
 /****if* H5Pf/h5pset_fill_valuec_c
  * NAME
- *        h5pset_fill_valuec_c
+ *  h5pset_fill_valuec_c
  * PURPOSE
- *     Call h5pset_fill_value_c to a character fill value
+ *  Call h5pset_fill_value_c to a character fill value
  * INPUTS
- *      prp_id - property list identifier
- *              type_id - datatype identifier (fill value is of type type_id)
- *              fillvalue  - character value
+ *  prp_id - property list identifier
+ *  type_id - datatype identifier (fill value is of type type_id)
+ *  fillvalue  - character value
  * RETURNS
- *     0 on success, -1 on failure
- *              Saturday, August 14, 1999
+ *  0 on success, -1 on failure
+ *  Saturday, August 14, 1999
  * AUTHOR
  *  Elena Pourmal
  * SOURCE
@@ -411,7 +411,7 @@ nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
      /*
       * Call h5pset_fill_value_c  function.
       */
-     ret_value = nh5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
+     ret_value = h5pset_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
 
      return ret_value;
 }
@@ -433,7 +433,7 @@ nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
  * SOURCE
 */
 int_f
-nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+h5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 /******/
 {
      int ret_value = -1;
@@ -460,7 +460,7 @@ nh5pset_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue
      /*
       * Call h5pset_fill_value_c  function.
       */
-     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
+     return h5pset_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 int_f
@@ -469,7 +469,7 @@ nh5pset_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
      /*
       * Call h5pset_fill_value_c  function.
       */
-     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
+     return h5pset_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 int_f
@@ -478,7 +478,7 @@ nh5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
      /*
       * Call h5pset_fill_value_c  function.
       */
-     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
+     return h5pset_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 /****if* H5Pf/h5pget_fill_valuec_c
@@ -510,7 +510,7 @@ nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
      /*
       * Call h5pget_fill_value_c function.
       */
-     ret_value = nh5pget_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
+     ret_value = h5pget_fill_value_c(prp_id, type_id, _fcdtocp(fillvalue));
 
      return ret_value;
 }
@@ -532,7 +532,7 @@ nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue)
  * SOURCE
 */
 int_f
-nh5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+h5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
 /******/
 {
      int ret_value = -1;
@@ -558,7 +558,7 @@ nh5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue
      /*
       * Call h5pget_fill_value_c  function.
       */
-     return nh5pget_fill_value_c(prp_id, type_id, fillvalue);
+     return h5pget_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 int_f
@@ -567,7 +567,7 @@ nh5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
      /*
       * Call h5pget_fill_value_c  function.
       */
-     return nh5pget_fill_value_c(prp_id, type_id, fillvalue);
+     return h5pget_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 int_f
@@ -576,7 +576,7 @@ nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
      /*
       * Call h5pget_fill_value_c  function.
       */
-     return nh5pget_fill_value_c(prp_id, type_id, fillvalue);
+     return h5pget_fill_value_c(prp_id, type_id, fillvalue);
 }
 
 /****if* H5Pf/h5pget_version_c
@@ -2742,20 +2742,50 @@ nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
   *size = (size_t_f)c_size;
   return ret_value;
 }
+/****if* H5Pf/h5pcreate_class_c
+ * NAME
+ *  h5pcreate_class_c
+ * PURPOSE
+ *  Call H5Pcreate_class to create a new property class
+ * INPUTS
+ *  parent - property list class identifier
+ *  name   - name of the new class
+ *  name_len - lenght of the "name" buffer
+ * OUTPUTS
+ *  cls - new class identifier
+ * RETURNS
+ *  0 on success, -1 on failure
+ * AUTHOR
+ *  Elena Pourmal
+ *  October 11, 2002
+ *
+ * HISTORY
+ * SOURCE
+*/
+int_f
+nh5pcreate_class_f90_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls)
+/******/
+{
+     int ret_value = -1;
+
+     ret_value = h5pcreate_class_c(parent, name, name_len, cls, NULL, NULL, NULL, NULL, NULL, NULL);
+     return  ret_value;
+}
+
 
 /****if* H5Pf/h5pcreate_class_c
  * NAME
- *        h5pcreate_class_c
+ *  h5pcreate_class_c
  * PURPOSE
- *     Call H5Pcreate_class ito create a new property class
+ *  Call H5Pcreate_class ito create a new property class
  * INPUTS
- *      parent - property list class identifier
- *              name   - name of the new class
- *              name_len - lenght of the "name" buffer
+ *  parent - property list class identifier
+ *  name   - name of the new class
+ *  name_len - lenght of the "name" buffer
  * OUTPUTS
- *     class - new class identifier
+ *  class - new class identifier
  * RETURNS
- *     0 on success, -1 on failure
+ *  0 on success, -1 on failure
  * AUTHOR
  *  Elena Pourmal
  *  October 11, 2002
@@ -2766,7 +2796,7 @@ nh5pget_hyper_vector_size_c ( hid_t_f *prp_id , size_t_f *size)
  * SOURCE
 */
 int_f
-nh5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls,
+h5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *cls,
 		   H5P_cls_create_func_t create, void *create_data,
 		   H5P_cls_copy_func_t copy, void *copy_data,
 		   H5P_cls_close_func_t close, void *close_data)
@@ -2796,17 +2826,17 @@ DONE:
 
 /****if* H5Pf/h5pregisterc_c
  * NAME
- *        h5pregisterc_c
+ *  h5pregisterc_c
  * PURPOSE
- *     Call h5pregister_c to registers a permanent property
+ *  Call h5pregister_c to registers a permanent property
  * INPUTS
- *      class - property list class identifier
- *              name   - name of the new property
- *              name_len - length of the "name" buffer
- *              size - property size
- *              value - property value of character type
+ *  class - property list class identifier
+ *  name   - name of the new property
+ *  name_len - length of the "name" buffer
+ *  size - property size
+ *  value - property value of character type
  * RETURNS
- *     0 on success, -1 on failure
+ *  0 on success, -1 on failure
  * AUTHOR
  *  Elena Pourmal
  *  October 11, 2002
@@ -2823,32 +2853,32 @@ nh5pregisterc_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, _fcd v
      /*
       * Call h5pregister_c function
       */
-      ret_value = nh5pregister_c(cls, name, name_len, size, _fcdtocp(value));
+      ret_value = h5pregister_c(cls, name, name_len, size, _fcdtocp(value));
       return ret_value;
 }
 
 /****if* H5Pf/h5pregister_c
  * NAME
- *        h5pregister_c
+ *  h5pregister_c
  * PURPOSE
- *     Call H5Pregister2 to registers a permanent property
+ *  Call H5Pregister2 to registers a permanent property
  * INPUTS
- *      class - property list class identifier
- *              name   - name of the new property
- *              name_len - length of the "name" buffer
- *              size - property size
- *              value - property value
+ *  class - property list class identifier
+ *  name   - name of the new property
+ *  name_len - length of the "name" buffer
+ *  size - property size
+ *  value - property value
  * RETURNS
- *     0 on success, -1 on failure
+ *  0 on success, -1 on failure
  * AUTHOR
  *  Elena Pourmal
- *              October 11, 2002
+ *  October 11, 2002
  * HISTORY
  *
  * SOURCE
 */
 int_f
-nh5pregister_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value)
+h5pregister_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value)
 /******/
 {
      char* c_name = NULL;
@@ -2876,7 +2906,7 @@ nh5pregister_integer_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size,
      /*
       * Call h5pregister_c function
       */
-     return nh5pregister_c(cls, name, name_len, size, value);
+     return h5pregister_c(cls, name, name_len, size, value);
 }
 
 int_f
@@ -2885,7 +2915,7 @@ nh5pregister_real_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size, vo
      /*
       * Call h5pregister_c function
       */
-     return nh5pregister_c(cls, name, name_len, size, value);
+     return h5pregister_c(cls, name, name_len, size, value);
 }
 
 int_f
@@ -2894,25 +2924,25 @@ nh5pregister_double_c(hid_t_f *cls, _fcd name, int_f *name_len, size_t_f *size,
      /*
       * Call h5pregister_c function
       */
-     return nh5pregister_c(cls, name, name_len, size, value);
+     return h5pregister_c(cls, name, name_len, size, value);
 }
 
 /****if* H5Pf/h5pinsertc_c
  * NAME
- *        h5pinsertc_c
+ *  h5pinsertc_c
  * PURPOSE
- *     Call h5pinsert_c to register a temporary property
+ *  Call h5pinsert_c to register a temporary property
  * INPUTS
- *      plist - property list identifier
- *              name   - name of the new property
- *              name_len - length of the "name" buffer
- *              size - property size
- *              value - property value of character type
+ *  plist - property list identifier
+ *  name   - name of the new property
+ *  name_len - length of the "name" buffer
+ *  size - property size
+ *  value - property value of character type
  * RETURNS
- *     0 on success, -1 on failure
+ *  0 on success, -1 on failure
  * AUTHOR
  *  Elena Pourmal
- *              October 11, 2002
+ *  October 11, 2002
  * HISTORY
  *
  * SOURCE
@@ -2926,32 +2956,32 @@ nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd v
      /*
       * Call h5pinsert_c function
       */
-      ret_value = nh5pinsert_c(plist, name, name_len, size, _fcdtocp(value));
+      ret_value = h5pinsert_c(plist, name, name_len, size, _fcdtocp(value));
       return ret_value;
 }
 
 /****if* H5Pf/h5pinsert_c
  * NAME
- *        h5pinsert_c
+ *  h5pinsert_c
  * PURPOSE
- *     Call H5Pinsert2 to iinsert a temporary property
+ *  Call H5Pinsert2 to iinsert a temporary property
  * INPUTS
- *      plist - property list class identifier
- *              name   - name of the new property
- *              name_len - length of the "name" buffer
- *              size - property size
- *              value - property value
+ *  plist - property list class identifier
+ *  name   - name of the new property
+ *  name_len - length of the "name" buffer
+ *  size - property size
+ *  value - property value
  * RETURNS
- *     0 on success, -1 on failure
+ *  0 on success, -1 on failure
  * AUTHOR
  *  Elena Pourmal
- *              October 11, 2002
+ *  October 11, 2002
  * HISTORY
  *
  * SOURCE
 */
 int_f
-nh5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value)
+h5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value)
 /******/
 {
      char* c_name = NULL;
@@ -2979,7 +3009,7 @@ nh5pinsert_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size,
      /*
       * Call h5pinsert_c function
       */
-     return nh5pinsert_c(plist, name, name_len, size, value);
+     return h5pinsert_c(plist, name, name_len, size, value);
 }
 
 int_f
@@ -2988,7 +3018,7 @@ nh5pinsert_real_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, vo
      /*
       * Call h5pinsert_c function
       */
-     return nh5pinsert_c(plist, name, name_len, size, value);
+     return h5pinsert_c(plist, name, name_len, size, value);
 }
 
 int_f
@@ -2997,7 +3027,7 @@ nh5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size,
      /*
       * Call h5pinsert_c function
       */
-     return nh5pinsert_c(plist, name, name_len, size, value);
+     return h5pinsert_c(plist, name, name_len, size, value);
 }
 
 /****if* H5Pf/h5pexist_c
@@ -3424,22 +3454,22 @@ nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED
      /*
       * Call h5pset_c function
       */
-      ret_value = nh5pset_c(plist, name, name_len, _fcdtocp(value));
+      ret_value = h5pset_c(plist, name, name_len, _fcdtocp(value));
       return ret_value;
 }
 
 /****if* H5Pf/h5pset_c
  * NAME
- *        h5pset_c
+ *  h5pset_c
  * PURPOSE
- *     Call H5Pset to set property value
+ *  Call H5Pset to set property value
  * INPUTS
- *      plist - property list class identifier
- *              name   - name of the new property
- *              name_len - length of the "name" buffer
- *              value - property value
+ *  plist - property list class identifier
+ *  name   - name of the new property
+ *  name_len - length of the "name" buffer
+ *  value - property value
  * RETURNS
- *     0 on success, -1 on failure
+ *  0 on success, -1 on failure
  * AUTHOR
  *  Elena Pourmal
  *  October 11, 2002
@@ -3448,7 +3478,7 @@ nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED
  * SOURCE
 */
 int_f
-nh5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
+h5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 /******/
 {
      int_f ret_value = -1;
@@ -3474,7 +3504,7 @@ nh5pset_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
      /*
       * Call h5pset_c function
       */
-     return nh5pset_c(plist, name, name_len, value);
+     return h5pset_c(plist, name, name_len, value);
 }
 
 int_f
@@ -3483,7 +3513,7 @@ nh5pset_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
      /*
       * Call h5pset_c function
       */
-     return nh5pset_c(plist, name, name_len, value);
+     return h5pset_c(plist, name, name_len, value);
 }
 
 int_f
@@ -3492,7 +3522,7 @@ nh5pset_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
      /*
       * Call h5pset_c function
       */
-     return nh5pset_c(plist, name, name_len, value);
+     return h5pset_c(plist, name, name_len, value);
 }
 /****if* H5Pf/h5pgetc_c
  * NAME
@@ -3522,31 +3552,32 @@ nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED
      /*
       * Call h5pget_c function
       */
-      ret_value = nh5pget_c(plist, name, name_len, _fcdtocp(value));
+      ret_value = h5pget_c(plist, name, name_len, _fcdtocp(value));
       return ret_value;
 }
 
 /****if* H5Pf/h5pget_c
  * NAME
- *        h5pget_c
+ *  h5pget_c
  * PURPOSE
- *     Call H5Pget to set property value
+ *  Call H5Pget to set property value
  * INPUTS
- *      plist - property list class identifier
- *              name   - name of the new property
- *              name_len - length of the "name" buffer
- * Output:      value - property value
+ *  plist   - property list class identifier
+ *  name     - name of the new property
+ *  name_len - length of the "name" buffer
+ * Output:  
+ *  value - property value
  * RETURNS
- *     0 on success, -1 on failure
+ *  0 on success, -1 on failure
  * AUTHOR
  *  Elena Pourmal
- *              October 11, 2002
+ *  October 11, 2002
  * HISTORY
  *
  * SOURCE
 */
 int_f
-nh5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
+h5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
 /******/
 {
      int_f ret_value = -1;
@@ -3572,7 +3603,7 @@ nh5pget_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
      /*
       * Call h5pget_c function
       */
-     return nh5pget_c(plist, name, name_len, value);
+     return h5pget_c(plist, name, name_len, value);
 }
 
 int_f
@@ -3581,7 +3612,7 @@ nh5pget_real_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
      /*
       * Call h5pget_c function
       */
-     return nh5pget_c(plist, name, name_len, value);
+     return h5pget_c(plist, name, name_len, value);
 }
 
 int_f
@@ -3590,7 +3621,7 @@ nh5pget_double_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
      /*
       * Call h5pget_c function
       */
-     return nh5pget_c(plist, name, name_len, value);
+     return h5pget_c(plist, name, name_len, value);
 }
 
 
@@ -5565,7 +5596,7 @@ nh5pget_chunk_cache_c(hid_t_f *dapl_id, size_t_f *rdcc_nslots, size_t_f *rdcc_nb
  *---------------------------------------------------------------------------*/
 
 int_f
-nh5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len)
+h5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len)
 {
   int ret_value = -1;
   /*
@@ -5595,7 +5626,7 @@ nh5pset_file_image_c(hid_t_f *fapl_id, void *buf_ptr, size_t_f *buf_len)
  *---------------------------------------------------------------------------*/
 
 int_f
-nh5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len_ptr)
+h5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len_ptr)
 {
   int ret_value = -1;
   size_t c_buf_len_ptr;