[svn-r12752] Descripton: This is a port to G95 compiler for MAC OSX and AIX 5.2

Previous implementation failed to compile on MAC OS X Tiger 10.4 and AIX 5.2

In previous implementation, each overloaded Fortran function called the same
C function. Since declaration of parameters in INTERFACE block for
C Function differed, some compilers issued warnings but g95 on MAC and AIX
failed to compile.

Solution: Add C wrappers corresponding to each overloaded Fortran function
to call C stub function. This fix should also reduce number of warnings
on IRIX systems.

Platforms tested:  MAC OS and AIX 5.2 (copper) with g95;
                   sol (with Sun compilers), heping with PGI compilers

13 files changed, 2612 insertions, 811 deletions

diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index f19e206..8cac5d8 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -112,6 +112,79 @@ nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
       */
      return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
+int_f
+nh5awritec_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5awritec_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5awritec_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5awritec_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5awritec_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5awritec_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5awritec_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5awritec_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+
 
 /*----------------------------------------------------------------------------
  * Name:        h5awrite_c
@@ -125,9 +198,229 @@ nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
  * Programmer:  Elena Pourmal
  *              Thursday, August 12, 1999
  * Modifications: dims parameter added
- *                April 4, 2001
+ *                                           April 4, 2001
+ *                Added nh5awrite_integer(real,double)_s,1-7 functions to eliminate
+ *                complains about wrong parameters types in h5awrite_c function
+ *                called by Fortran routines.
+ *                                           October 9, 2006 EIP
  *---------------------------------------------------------------------------*/
 int_f
+nh5awrite_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5awrite_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
+{
+     /*
+      * Call h5awrite_c  function.
+      */
+     return nh5awrite_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
 nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED *dims)
 {
     int_f ret_value=0;          /* Return value */
@@ -142,6 +435,7 @@ done:
      return ret_value;
 }
 
+
 /*----------------------------------------------------------------------------
  * Name:        h5areadc_c
  * Purpose:     Call h5aread_c to read character  attribute
@@ -155,6 +449,10 @@ done:
  *              Thursday, August 12, 1999
  * Modifications: dims parameter added.
  *                April 4, 2001
+ *                Added nh5areadc_s,1-7 functions to eliminate
+ *                complains about wrong parameters types in h5awrite_c function
+ *                called by Fortran routines.
+ *                                           October 9, 2006 EIP
  *---------------------------------------------------------------------------*/
 int_f
 nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
@@ -164,6 +462,78 @@ nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
       */
      return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
 }
+int_f
+nh5areadc_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5areadc_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5areadc_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5areadc_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5areadc_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5areadc_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+int_f
+nh5areadc_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+int_f
+nh5areadc_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, _fcdtocp(buf), dims);
+}
+
+
 
 /*----------------------------------------------------------------------------
  * Name:        h5aread_c
@@ -178,6 +548,10 @@ nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims)
  *              Thursday, August 12, 1999
  * Modifications: dims paramete added.
  *                April 4, 2001
+ *                Added nh5aread_integer(real,double)_s,1-7 functions to eliminate
+ *                complains about wrong parameters types in h5awrite_c function
+ *                called by Fortran routines.
+ *                                           October 9, 2006 EIP
  *---------------------------------------------------------------------------*/
 int_f
 nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
@@ -194,6 +568,223 @@ done:
      return ret_value;
 }
 
+int_f
+nh5aread_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+int_f
+nh5aread_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void UNUSED * dims)
+{
+     /*
+      * Call h5aread_c  function.
+      */
+     return nh5aread_c(attr_id, mem_type_id, buf, dims);
+}
+
+
 /*----------------------------------------------------------------------------
  * Name:        h5aclose_c
  * Purpose:     Call H5Aclose to close an attribute
diff --git a/fortran/src/H5Aff.f90 b/fortran/src/H5Aff.f90
index 7b772f3..feae22f 100644
--- a/fortran/src/H5Aff.f90
+++ b/fortran/src/H5Aff.f90
@@ -313,23 +313,23 @@
             INTEGER, INTENT(IN) :: buf              ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_integer_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_integer_s_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_INTEGER_S_C'::h5awrite_integer_s_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(IN)::buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_integer_s_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_integer_s_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_integer_scalar
 
           SUBROUTINE h5awrite_integer_1(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -347,24 +347,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_integer_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_integer_1_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_INTEGER_1_C'::h5awrite_integer_1_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_integer_1_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_integer_1_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_integer_1
 
 
@@ -383,24 +383,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_integer_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_integer_2_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_INTEGER_2_C'::h5awrite_integer_2_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_integer_2_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_integer_2_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_integer_2
 
 
@@ -419,24 +419,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_integer_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_integer_3_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_INTEGER_3_C'::h5awrite_integer_3_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_integer_3_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_integer_3_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_integer_3
 
 
@@ -455,24 +455,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_integer_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_integer_4_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_INTEGER_4_C'::h5awrite_integer_4_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_integer_4_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_integer_4_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_integer_4
 
 
@@ -491,24 +491,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_integer_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_integer_5_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_INTEGER_5_C'::h5awrite_integer_5_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_integer_5_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_integer_5_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_integer_5
 
 
@@ -527,24 +527,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_integer_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_integer_6_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_INTEGER_6_C'::h5awrite_integer_6_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_integer_6_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_integer_6_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_integer_6
 
 
@@ -563,24 +563,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_integer_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_integer_7_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_INTEGER_7_C'::h5awrite_integer_7_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_integer_7_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_integer_7_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_integer_7
 
 
@@ -597,23 +597,23 @@
             REAL, INTENT(IN) :: buf                 ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_real_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_real_s_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_REAL_S_C'::h5awrite_real_s_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(IN)::buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_real_s_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_real_s_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_real_scalar
 
           SUBROUTINE h5awrite_real_1(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -631,24 +631,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_real_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_real_1_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_REAL_1_C'::h5awrite_real_1_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(IN), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_real_1_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_real_1_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_real_1
 
 
@@ -667,24 +667,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_real_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_real_2_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_REAL_2_C'::h5awrite_real_2_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_real_2_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_real_2_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_real_2
 
 
@@ -703,24 +703,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_real_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_real_3_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_REAL_3_C'::h5awrite_real_3_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_real_3_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_real_3_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_real_3
 
 
@@ -739,24 +739,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_real_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_real_4_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_REAL_4_C'::h5awrite_real_4_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_real_4_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_real_4_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_real_4
 
 
@@ -775,24 +775,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_real_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_real_5_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_REAL_5_C'::h5awrite_real_5_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_real_5_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_real_5_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_real_5
 
 
@@ -811,24 +811,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_real_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_real_6_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_REAL_6_C'::h5awrite_real_6_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_real_6_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_real_6_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_real_6
 
 
@@ -847,24 +847,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_real_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_real_7_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_REAL_7_C'::h5awrite_real_7_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_real_7_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_real_7_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_real_7
 
 
@@ -881,23 +881,23 @@
             DOUBLE PRECISION, INTENT(IN) :: buf     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_double_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_double_s_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_DOUBLE_S_C'::h5awrite_double_s_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(IN)::buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_double_s_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_double_s_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_double_scalar
 
           SUBROUTINE h5awrite_double_1(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -914,24 +914,24 @@
             DIMENSION(dims(1)) :: buf ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_double_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_double_1_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_DOUBLE_1_C'::h5awrite_double_1_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_double_1_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_double_1_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_double_1
 
 
@@ -950,24 +950,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_double_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_double_2_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_DOUBLE_2_C'::h5awrite_double_2_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_double_2_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_double_2_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_double_2
 
 
@@ -986,24 +986,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_double_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_double_3_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_DOUBLE_3_C'::h5awrite_double_3_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_double_3_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_double_3_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_double_3
 
 
@@ -1022,24 +1022,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_double_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_double_4_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_DOUBLE_4_C'::h5awrite_double_4_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_double_4_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_double_4_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_double_4
 
 
@@ -1058,24 +1058,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_double_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_double_5_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_DOUBLE_5_C'::h5awrite_double_5_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_double_5_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_double_5_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_double_5
 
 
@@ -1094,24 +1094,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_double_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_double_6_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_DOUBLE_6_C'::h5awrite_double_6_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_double_6_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_double_6_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_double_6
 
 
@@ -1130,24 +1130,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awrite_c
+!            INTEGER, EXTERNAL :: h5awrite_double_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awrite_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awrite_double_7_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_C'::h5awrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITE_DOUBLE_7_C'::h5awrite_double_7_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5awrite_c
+              END FUNCTION h5awrite_double_7_c
             END INTERFACE
 
-            hdferr = h5awrite_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awrite_double_7_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_double_7
 
           SUBROUTINE h5awrite_char_scalar(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -1163,24 +1163,24 @@
             CHARACTER(LEN=*),INTENT(IN) :: buf 
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
-!            INTEGER, EXTERNAL :: h5awritec_c
+!            INTEGER, EXTERNAL :: h5awritec_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awritec_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awritec_s_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_S_C'::h5awritec_s_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               !DEC$ATTRIBUTES reference :: buf
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(IN)::buf
-              END FUNCTION h5awritec_c
+              END FUNCTION h5awritec_s_c
             END INTERFACE
 
-            hdferr = h5awritec_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awritec_s_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_char_scalar
 
           SUBROUTINE h5awrite_char_1(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -1197,24 +1197,24 @@
             DIMENSION(dims(1)) :: buf
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
-!            INTEGER, EXTERNAL :: h5awritec_c
+!            INTEGER, EXTERNAL :: h5awritec_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awritec_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awritec_1_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_1_C'::h5awritec_1_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1))::buf
-              END FUNCTION h5awritec_c
+              END FUNCTION h5awritec_1_c
             END INTERFACE
 
-            hdferr = h5awritec_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awritec_1_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_char_1
 
 
@@ -1233,14 +1233,14 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5awritec_c
+!            INTEGER, EXTERNAL :: h5awritec_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awritec_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awritec_2_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_2_C'::h5awritec_2_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               !DEC$ATTRIBUTES reference :: buf
@@ -1248,10 +1248,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5awritec_c
+              END FUNCTION h5awritec_2_c
             END INTERFACE
 
-            hdferr = h5awritec_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awritec_2_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_char_2
 
 
@@ -1269,14 +1269,14 @@
             DIMENSION(dims(1),dims(2),dims(3)) :: buf
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
-!            INTEGER, EXTERNAL :: h5awritec_c
+!            INTEGER, EXTERNAL :: h5awritec_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awritec_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awritec_3_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_3_C'::h5awritec_3_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -1284,10 +1284,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5awritec_c
+              END FUNCTION h5awritec_3_c
             END INTERFACE
 
-            hdferr = h5awritec_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awritec_3_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_char_3
 
 
@@ -1305,14 +1305,14 @@
             DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
-!            INTEGER, EXTERNAL :: h5awritec_c
+!            INTEGER, EXTERNAL :: h5awritec_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awritec_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awritec_4_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_4_C'::h5awritec_4_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -1320,10 +1320,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5awritec_c
+              END FUNCTION h5awritec_4_c
             END INTERFACE
 
-            hdferr = h5awritec_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awritec_4_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_char_4
 
 
@@ -1341,14 +1341,14 @@
             DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
-!            INTEGER, EXTERNAL :: h5awritec_c
+!            INTEGER, EXTERNAL :: h5awritec_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awritec_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awritec_5_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_5_C'::h5awritec_5_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -1356,10 +1356,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5awritec_c
+              END FUNCTION h5awritec_5_c
             END INTERFACE
 
-            hdferr = h5awritec_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awritec_5_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_char_5
 
 
@@ -1377,14 +1377,14 @@
             DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
-!            INTEGER, EXTERNAL :: h5awritec_c
+!            INTEGER, EXTERNAL :: h5awritec_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awritec_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awritec_6_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_6_C'::h5awritec_6_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -1392,10 +1392,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5awritec_c
+              END FUNCTION h5awritec_6_c
             END INTERFACE
 
-            hdferr = h5awritec_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awritec_6_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_char_6
 
 
@@ -1413,14 +1413,14 @@
             DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
-!            INTEGER, EXTERNAL :: h5awritec_c
+!            INTEGER, EXTERNAL :: h5awritec_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5awritec_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5awritec_7_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_C'::h5awritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AWRITEC_7_C'::h5awritec_7_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -1428,10 +1428,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5awritec_c
+              END FUNCTION h5awritec_7_c
             END INTERFACE
 
-            hdferr = h5awritec_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5awritec_7_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5awrite_char_7
 
 !----------------------------------------------------------------------
@@ -1480,23 +1480,23 @@
             INTEGER, INTENT(OUT) :: buf             ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_integer_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_integer_s_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_INTEGER_S_C'::h5aread_integer_s_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(OUT)::buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_integer_s_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_integer_s_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_integer_scalar
 
           SUBROUTINE h5aread_integer_1(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -1513,24 +1513,24 @@
             DIMENSION(dims(1)) :: buf
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_integer_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_integer_1_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_INTEGER_1_C'::h5aread_integer_1_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_integer_1_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_integer_1_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_integer_1
 
 
@@ -1548,24 +1548,24 @@
             DIMENSION(dims(1),dims(2)) :: buf
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_integer_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_integer_2_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_INTEGER_2_C'::h5aread_integer_2_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_integer_2_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_integer_2_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_integer_2
 
 
@@ -1583,24 +1583,24 @@
             DIMENSION(dims(1),dims(2),dims(3)) :: buf
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_integer_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_integer_3_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_INTEGER_3_C'::h5aread_integer_3_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_integer_3_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_integer_3_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_integer_3
 
 
@@ -1619,24 +1619,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_integer_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_integer_4_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_INTEGER_4_C'::h5aread_integer_4_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_integer_4_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_integer_4_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_integer_4
 
 
@@ -1655,24 +1655,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_integer_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_integer_5_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_INTEGER_5_C'::h5aread_integer_5_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_integer_5_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_integer_5_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_integer_5
 
 
@@ -1691,24 +1691,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_integer_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_integer_6_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_INTEGER_6_C'::h5aread_integer_6_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_integer_6_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_integer_6_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_integer_6
 
 
@@ -1727,24 +1727,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_integer_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_integer_7_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_INTEGER_7_C'::h5aread_integer_7_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_integer_7_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_integer_7_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_integer_7
 
 
@@ -1761,23 +1761,23 @@
             REAL, INTENT(OUT) :: buf                ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_real_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_real_s_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_REAL_S_C'::h5aread_real_s_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(OUT)::buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_real_s_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_real_s_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_real_scalar
 
           SUBROUTINE h5aread_real_1(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -1795,24 +1795,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_real_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_real_1_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_REAL_1_C'::h5aread_real_1_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(OUT), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_real_1_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_real_1_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_real_1
 
 
@@ -1831,24 +1831,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_real_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_real_2_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_REAL_2_C'::h5aread_real_2_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(OUT), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_real_2_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_real_2_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_real_2
 
 
@@ -1867,24 +1867,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_real_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_real_3_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_REAL_3_C'::h5aread_real_3_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_real_3_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_real_3_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_real_3
 
 
@@ -1903,24 +1903,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_real_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_real_4_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_REAL_4_C'::h5aread_real_4_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_real_4_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_real_4_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_real_4
 
 
@@ -1939,24 +1939,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_real_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_real_5_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_REAL_5_C'::h5aread_real_5_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_real_5_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_real_5_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_real_5
 
 
@@ -1975,24 +1975,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_real_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_real_6_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_REAL_6_C'::h5aread_real_6_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_real_6_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_real_6_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_real_6
 
 
@@ -2011,24 +2011,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_real_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_real_7_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_REAL_7_C'::h5aread_real_7_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               REAL, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_real_7_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_real_7_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_real_7
 
 
@@ -2045,23 +2045,23 @@
             DOUBLE PRECISION, INTENT(OUT) :: buf    ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_double_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_double_s_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_s_C'::h5aread_double_s_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(OUT)::buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_double_s_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_double_s_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_double_scalar
 
           SUBROUTINE h5aread_double_1(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -2079,24 +2079,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_double_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_double_1_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_1_C'::h5aread_double_1_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(OUT), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_double_1_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_double_1_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_double_1
 
 
@@ -2115,24 +2115,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_double_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_double_2_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_2_C'::h5aread_double_2_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(OUT), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_double_2_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_double_2_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_double_2
 
 
@@ -2151,24 +2151,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_double_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_double_3_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_3_C'::h5aread_double_3_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_double_3_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_double_3_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_double_3
 
 
@@ -2187,24 +2187,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_double_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_double_4_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_4_C'::h5aread_double_4_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_double_4_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_double_4_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_double_4
 
 
@@ -2223,24 +2223,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_double_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_double_5_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_5_C'::h5aread_double_5_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_double_5_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_double_5_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_double_5
 
 
@@ -2259,24 +2259,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_double_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_double_6_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_6_C'::h5aread_double_6_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_double_6_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_double_6_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_double_6
 
 
@@ -2295,24 +2295,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5aread_c
+!            INTEGER, EXTERNAL :: h5aread_double_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5aread_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5aread_double_7_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_C'::h5aread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREAD_DOUBLE_7_C'::h5aread_double_7_c
               !DEC$ ENDIF
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               DOUBLE PRECISION, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5aread_c
+              END FUNCTION h5aread_double_7_c
             END INTERFACE
 
-            hdferr = h5aread_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5aread_double_7_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_double_7
 
 
@@ -2330,24 +2330,24 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5areadc_c
+!            INTEGER, EXTERNAL :: h5areadc_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5areadc_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5areadc_s_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_S_C'::h5areadc_s_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
               INTEGER(HID_T), INTENT(IN) :: attr_id
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*) :: buf
-              END FUNCTION h5areadc_c
+              END FUNCTION h5areadc_s_c
             END INTERFACE
 
-            hdferr = h5areadc_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5areadc_s_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_char_scalar
 
           SUBROUTINE h5aread_char_1(attr_id, memtype_id,  buf, dims, hdferr) 
@@ -2365,14 +2365,14 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5areadc_c
+!            INTEGER, EXTERNAL :: h5areadc_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5areadc_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5areadc_1_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_1_C'::h5areadc_1_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -2380,10 +2380,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(OUT), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5areadc_c
+              END FUNCTION h5areadc_1_c
             END INTERFACE
 
-            hdferr = h5areadc_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5areadc_1_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_char_1
 
 
@@ -2402,14 +2402,14 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5areadc_c
+!            INTEGER, EXTERNAL :: h5areadc_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5areadc_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5areadc_2_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_2_C'::h5areadc_2_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -2417,10 +2417,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(OUT), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5areadc_c
+              END FUNCTION h5areadc_2_c
             END INTERFACE
 
-            hdferr = h5areadc_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5areadc_2_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_char_2
 
 
@@ -2439,14 +2439,14 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5areadc_c
+!            INTEGER, EXTERNAL :: h5areadc_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5areadc_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5areadc_3_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_3_C'::h5areadc_3_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -2454,10 +2454,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5areadc_c
+              END FUNCTION h5areadc_3_c
             END INTERFACE
 
-            hdferr = h5areadc_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5areadc_3_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_char_3
 
 
@@ -2476,14 +2476,14 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5areadc_c
+!            INTEGER, EXTERNAL :: h5areadc_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5areadc_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5areadc_4_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_4_C'::h5areadc_4_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -2491,10 +2491,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5areadc_c
+              END FUNCTION h5areadc_4_c
             END INTERFACE
 
-            hdferr = h5areadc_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5areadc_4_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_char_4
 
 
@@ -2513,14 +2513,14 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5areadc_c
+!            INTEGER, EXTERNAL :: h5areadc_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5areadc_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5areadc_5_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_5_C'::h5areadc_5_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -2528,10 +2528,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5areadc_c
+              END FUNCTION h5areadc_5_c
             END INTERFACE
 
-            hdferr = h5areadc_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5areadc_5_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_char_5
 
 
@@ -2550,14 +2550,14 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5areadc_c
+!            INTEGER, EXTERNAL :: h5areadc_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5areadc_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5areadc_6_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_6_C'::h5areadc_6_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -2565,10 +2565,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5areadc_c
+              END FUNCTION h5areadc_6_c
             END INTERFACE
 
-            hdferr = h5areadc_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5areadc_6_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_char_6
 
 
@@ -2587,14 +2587,14 @@
                                                     ! Attribute data 
             INTEGER, INTENT(OUT) :: hdferr          ! Error code
 
-!            INTEGER, EXTERNAL :: h5areadc_c
+!            INTEGER, EXTERNAL :: h5areadc_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5areadc_c(attr_id, memtype_id,  buf, dims)
+              INTEGER FUNCTION h5areadc_7_c(attr_id, memtype_id,  buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_C'::h5areadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5AREADC_7_C'::h5areadc_7_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims       ! Array to story buf dimension sizes 
@@ -2602,10 +2602,10 @@
               INTEGER(HID_T), INTENT(IN) :: memtype_id
               CHARACTER(LEN=*), INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5areadc_c
+              END FUNCTION h5areadc_7_c
             END INTERFACE
 
-            hdferr = h5areadc_c(attr_id, memtype_id,  buf, dims)
+            hdferr = h5areadc_7_c(attr_id, memtype_id,  buf, dims)
           END SUBROUTINE h5aread_char_7
 
 
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c
index e9cd89c..fc31091 100644
--- a/fortran/src/H5Df.c
+++ b/fortran/src/H5Df.c
@@ -36,7 +36,7 @@ nh5dcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_
 {
      int ret_value = -1;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hid_t c_loc_id;
      hid_t c_type_id;
      hid_t c_space_id;
@@ -88,7 +88,7 @@ nh5dopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dset_id)
 {
      int ret_value = -1;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hid_t c_loc_id;
      hid_t c_dset_id;
 
@@ -128,6 +128,7 @@ DONE:
  *              Tuesday, May 14, 2002
  * Modifications: This function is added to accomodate oveloaded h5dwrite_f
  *                with the dims argument being of INTEGER(HSIZE_T) type
+ 
  *---------------------------------------------------------------------------*/
 int_f
 nh5dwritec_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
@@ -142,6 +143,110 @@ nh5dwritec_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid
      return ret_value;
 }
 
+int_f
+nh5dwritec_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dwrite_c  function.
+      */
+     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dwritec_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dwrite_c  function.
+      */
+     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dwritec_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dwrite_c  function.
+      */
+     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dwritec_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dwrite_c  function.
+      */
+     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dwritec_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dwrite_c  function.
+      */
+     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dwritec_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dwrite_c  function.
+      */
+     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dwritec_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dwrite_c  function.
+      */
+     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dwritec_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dwrite_c  function.
+      */
+     ret_value = nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
 /*----------------------------------------------------------------------------
  * Name:        h5dwrite_c
  * Purpose:     Call H5Dwrite to write a dataset
@@ -156,9 +261,15 @@ nh5dwritec_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid
  *              Tuesday, May 14, 2002
  * Modifications: This function is added to accomodate oveloaded h5dwrite_f
  *                with the dims argument being of INTEGER(HSIZE_T) type
+ *
+ *                Added nh5dwrite_integer(real,double)_s,1-7_c functions to eliminate
+ *                complains about wrong parameter types in h5dwrite_c function
+ *                called by Fortran rouitnes
+ *                                           October 10, 2006 EIP
+ * 
  *---------------------------------------------------------------------------*/
 int_f
-nh5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f UNUSED *dims)
 {
      int ret_value = -1;
      herr_t ret;
@@ -187,6 +298,230 @@ nh5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_
      return ret_value;
 }
 
+int_f
+nh5dwrite_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+
+int_f
+nh5dwrite_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+
+int_f
+nh5dwrite_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+
+int_f
+nh5dwrite_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+
+int_f
+nh5dwrite_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+
+int_f
+nh5dwrite_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+
+int_f
+nh5dwrite_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+
+int_f
+nh5dwrite_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+
+int_f
+nh5dwrite_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dwrite_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dwrite_c  function.
+      */
+     return nh5dwrite_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
 
 /*----------------------------------------------------------------------------
  * Name:        h5dwrite_ref_obj_c
@@ -339,6 +674,110 @@ nh5dreadc_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_
      return ret_value;
 }
 
+int_f
+nh5dreadc_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dread_c  function.
+      */
+     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dreadc_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dread_c  function.
+      */
+     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dreadc_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dread_c  function.
+      */
+     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dreadc_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dread_c  function.
+      */
+     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dreadc_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dread_c  function.
+      */
+     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dreadc_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dread_c  function.
+      */
+     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dreadc_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dread_c  function.
+      */
+     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
+int_f
+nh5dreadc_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims)
+{
+     int ret_value = -1;
+
+     /*
+      * Call h5dread_c  function.
+      */
+     ret_value = nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, _fcdtocp(buf), dims);
+
+     return ret_value;
+}
+
 /*----------------------------------------------------------------------------
  * Name:        h5dread_c
  * Purpose:     Call H5Draed to read a dataset
@@ -353,9 +792,15 @@ nh5dreadc_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_
  *              Wednesday, May 15, 2002
  * Modifications: This function was added to accomodate h5dread_f subroutine
  *                with the dims parameter being of INTEGER(HSIZE_T_F) size.
+ *
+ *                Added nh5dread_integer(real,double)_s,1-7_c functions to eliminate
+ *                complains about wrong parameter types in h5dwrite_c function
+ *                called by Fortran rouitnes
+ *                                           October 10, 2006 EIP
+ * 
  *---------------------------------------------------------------------------*/
 int_f
-nh5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+nh5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f UNUSED *dims)
 {
      int ret_value = -1;
      herr_t ret;
@@ -384,6 +829,222 @@ nh5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t
      return ret_value;
 }
 
+int_f
+nh5dread_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
+int_f
+nh5dread_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims)
+{
+     /*
+      * Call h5dread_c  function.
+      */
+     return nh5dread_c(dset_id, mem_type_id, mem_space_id, file_space_id, xfer_prp, buf, dims);
+}
+
 /*----------------------------------------------------------------------------
  * Name:        h5dread_ref_obj_c
  * Purpose:     Call H5Dread to read a dataset  of object references
@@ -404,7 +1065,7 @@ int_f
 nh5dread_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f * buf, hsize_t_f *dims)
 {
     int ret_value = -1;
-    herr_t ret;
+    herr_t ret = -1;
     hid_t c_dset_id;
     hid_t c_mem_type_id;
     hid_t c_mem_space_id;
@@ -463,7 +1124,7 @@ int_f
 nh5dread_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f * buf, hsize_t_f *dims)
 {
      int ret_value = -1;
-     herr_t ret;
+     herr_t ret = -1;
      hid_t c_dset_id;
      hid_t c_mem_type_id;
      hid_t c_mem_space_id;
@@ -909,7 +1570,7 @@ nh5dwrite_vl_string_c( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_sp
   if (c_buf == NULL) return ret_value;
 
   /* Copy data to long C string */
-  tmp = (char *)HD5f2cstring(buf, (int)(max_len*num_elem));
+  tmp = (char *)HD5f2cstring(buf, (size_t)(max_len*num_elem));
   if (tmp == NULL) { free(c_buf);
                      return ret_value;
                    }
@@ -1004,7 +1665,7 @@ nh5dread_vl_string_c( hid_t_f *dset_id ,  hid_t_f *mem_type_id, hid_t_f *mem_spa
         len[i] = (size_t_f)strlen(c_buf[i]);
         tmp_p = tmp_p + max_len;
   }
-  HD5packFstring(tmp, _fcdtocp(buf), (int)(max_len*num_elem));
+  HD5packFstring(tmp, _fcdtocp(buf), (size_t)(max_len*num_elem));
   ret_value = 0;
   H5Dvlen_reclaim(c_mem_type_id, c_mem_space_id, H5P_DEFAULT, c_buf);
   free(c_buf);
@@ -1203,6 +1864,78 @@ nh5dfill_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void *
      return ret_value;
 }
 
+int_f
+nh5dfill_integer_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id)
+
+{
+     int ret_value = -1;
+     herr_t ret;
+     hid_t c_fill_type_id;
+     hid_t c_mem_type_id;
+     hid_t c_space_id;
+
+     c_fill_type_id = (hid_t)*fill_type_id;
+     c_mem_type_id = (hid_t)*mem_type_id;
+     c_space_id = (hid_t)*space_id;
+
+     /*
+      * Call H5Dfill function.
+      */
+     ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
+
+     if (ret < 0) return ret_value;
+     ret_value = 0;
+     return ret_value;
+}
+
+int_f
+nh5dfill_real_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id)
+
+{
+     int ret_value = -1;
+     herr_t ret;
+     hid_t c_fill_type_id;
+     hid_t c_mem_type_id;
+     hid_t c_space_id;
+
+     c_fill_type_id = (hid_t)*fill_type_id;
+     c_mem_type_id = (hid_t)*mem_type_id;
+     c_space_id = (hid_t)*space_id;
+
+     /*
+      * Call H5Dfill function.
+      */
+     ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
+
+     if (ret < 0) return ret_value;
+     ret_value = 0;
+     return ret_value;
+}
+
+int_f
+nh5dfill_double_c (void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id)
+
+{
+     int ret_value = -1;
+     herr_t ret;
+     hid_t c_fill_type_id;
+     hid_t c_mem_type_id;
+     hid_t c_space_id;
+
+     c_fill_type_id = (hid_t)*fill_type_id;
+     c_mem_type_id = (hid_t)*mem_type_id;
+     c_space_id = (hid_t)*space_id;
+
+     /*
+      * Call H5Dfill function.
+      */
+     ret = H5Dfill(fill_value, c_fill_type_id, buf, c_mem_type_id, c_space_id);
+
+     if (ret < 0) return ret_value;
+     ret_value = 0;
+     return ret_value;
+}
+
 /*----------------------------------------------------------------------------
  * Name:        h5dget_space_status_c
  * Purpose:     Call H5Dget_space_status to request dataspace allocation status
diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90
index a279e87..f15f1f6 100644
--- a/fortran/src/H5Dff.f90
+++ b/fortran/src/H5Dff.f90
@@ -475,17 +475,17 @@
             INTEGER(HID_T)  :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_integer_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_integer_s_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_INTEGER_S_C'::h5dwrite_integer_s_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -494,7 +494,7 @@
               INTEGER(HID_T) :: xfer_prp_default
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(IN) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_integer_s_c
             END INTERFACE
 
 
@@ -506,7 +506,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_integer_s_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_integer_scalar
@@ -536,17 +536,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_integer_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_integer_1_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_INTEGER_1_C'::h5dwrite_integer_1_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -556,7 +556,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_integer_1_c
             END INTERFACE
 
 
@@ -568,7 +568,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_integer_1_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_integer_1
@@ -598,17 +598,17 @@
             INTEGER(HID_T)  :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_integer_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_integer_2_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_INTEGER_2_C'::h5dwrite_integer_2_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -618,7 +618,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_integer_2_c
             END INTERFACE
 
 
@@ -629,7 +629,7 @@
             if (present(xfer_prp)) xfer_prp_default = xfer_prp 
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_integer_2_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -660,17 +660,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_integer_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_integer_3_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_INTEGER_3_C'::h5dwrite_integer_3_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -680,7 +680,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_integer_3_c
             END INTERFACE
 
 
@@ -692,7 +692,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_integer_3_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -723,17 +723,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_integer_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_integer_4_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_INTEGER_4_C'::h5dwrite_integer_4_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -743,7 +743,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_integer_4_c
             END INTERFACE
 
 
@@ -754,7 +754,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_integer_4_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -785,17 +785,17 @@
             INTEGER(HID_T)  :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_integer_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_integer_5_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_INTEGER_5_C'::h5dwrite_integer_5_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -805,7 +805,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_integer_5_c
             END INTERFACE
 
 
@@ -818,7 +818,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_integer_5_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -849,17 +849,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_integer_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_integer_6_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_INTEGER_6_C'::h5dwrite_integer_6_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -869,7 +869,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_integer_6_c
             END INTERFACE
 
 
@@ -881,7 +881,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_integer_6_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -912,17 +912,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_integer_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_integer_7_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_INTEGER_7_C'::h5dwrite_integer_7_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -932,7 +932,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_integer_7_c
             END INTERFACE
 
             xfer_prp_default = H5P_DEFAULT_F
@@ -943,7 +943,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_integer_7_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -974,17 +974,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwritec_c
+!            INTEGER, EXTERNAL :: h5dwritec_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwritec_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwritec_s_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_S_C'::h5dwritec_s_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -994,7 +994,7 @@
               INTEGER(HID_T) :: xfer_prp_default
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(IN) :: buf
-              END FUNCTION h5dwritec_c
+              END FUNCTION h5dwritec_s_c
             END INTERFACE
 
 
@@ -1006,7 +1006,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwritec_s_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_char_scalar
@@ -1036,17 +1036,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwritec_c
+!            INTEGER, EXTERNAL :: h5dwritec_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwritec_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwritec_1_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_1_C'::h5dwritec_1_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -1057,7 +1057,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5dwritec_c
+              END FUNCTION h5dwritec_1_c
             END INTERFACE
 
 
@@ -1069,7 +1069,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwritec_1_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_char_1
@@ -1099,17 +1099,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwritec_c
+!            INTEGER, EXTERNAL :: h5dwritec_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwritec_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwritec_2_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_2_C'::h5dwritec_2_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -1120,7 +1120,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5dwritec_c
+              END FUNCTION h5dwritec_2_c
             END INTERFACE
 
 
@@ -1132,7 +1132,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwritec_2_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_char_2
@@ -1162,17 +1162,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwritec_c
+!            INTEGER, EXTERNAL :: h5dwritec_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwritec_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwritec_3_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_3_C'::h5dwritec_3_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -1183,7 +1183,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5dwritec_c
+              END FUNCTION h5dwritec_3_c
             END INTERFACE
 
 
@@ -1195,7 +1195,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwritec_3_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_char_3
@@ -1225,17 +1225,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwritec_c
+!            INTEGER, EXTERNAL :: h5dwritec_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwritec_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwritec_4_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_4_C'::h5dwritec_4_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -1246,7 +1246,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5dwritec_c
+              END FUNCTION h5dwritec_4_c
             END INTERFACE
 
 
@@ -1258,7 +1258,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwritec_4_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_char_4
@@ -1288,17 +1288,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwritec_c
+!            INTEGER, EXTERNAL :: h5dwritec_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwritec_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwritec_5_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_5_C'::h5dwritec_5_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -1309,7 +1309,7 @@
               INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5dwritec_c
+              END FUNCTION h5dwritec_5_c
             END INTERFACE
 
 
@@ -1321,7 +1321,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwritec_5_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_char_5
@@ -1351,17 +1351,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwritec_c
+!            INTEGER, EXTERNAL :: h5dwritec_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwritec_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwritec_6_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_6_C'::h5dwritec_6_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -1372,7 +1372,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(IN), &
             DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5dwritec_c
+              END FUNCTION h5dwritec_6_c
             END INTERFACE
 
 
@@ -1384,7 +1384,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwritec_6_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_char_6
@@ -1414,17 +1414,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwritec_c
+!            INTEGER, EXTERNAL :: h5dwritec_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwritec_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwritec_7_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_C'::h5dwritec_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITEC_7_C'::h5dwritec_7_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -1435,7 +1435,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5dwritec_c
+              END FUNCTION h5dwritec_7_c
             END INTERFACE
 
             xfer_prp_default = H5P_DEFAULT_F
@@ -1446,7 +1446,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwritec_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwritec_7_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_char_7
@@ -1474,17 +1474,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_real_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_real_s_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REAL_S_C'::h5dwrite_real_s_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1493,7 +1493,7 @@
               INTEGER(HID_T) :: xfer_prp_default
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(IN) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_real_s_c
             END INTERFACE
 
 
@@ -1504,7 +1504,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_real_s_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_real_scalar
@@ -1534,17 +1534,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_real_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_real_1_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REAL_1_C'::h5dwrite_real_1_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1554,7 +1554,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(IN), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_real_1_c
             END INTERFACE
 
 
@@ -1566,7 +1566,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_real_1_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_real_1
@@ -1596,17 +1596,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_real_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_real_2_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REAL_2_C'::h5dwrite_real_2_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1616,7 +1616,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_real_2_c
             END INTERFACE
 
 
@@ -1628,7 +1628,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_real_2_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_real_2
@@ -1657,17 +1657,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_real_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_real_3_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REAL_3_C'::h5dwrite_real_3_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1677,7 +1677,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_real_3_c
             END INTERFACE
 
 
@@ -1689,7 +1689,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_real_3_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_real_3
@@ -1718,17 +1718,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_real_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_real_4_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REAL_4_C'::h5dwrite_real_4_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1738,7 +1738,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_real_4_c
             END INTERFACE
 
 
@@ -1750,7 +1750,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_real_4_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_real_4
@@ -1779,17 +1779,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_real_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_real_5_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REAL_5_C'::h5dwrite_real_5_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1799,7 +1799,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(IN), &
             DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_real_5_c
             END INTERFACE
 
 
@@ -1811,7 +1811,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_real_5_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_real_5
@@ -1840,17 +1840,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_real_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_real_6_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REAL_6_C'::h5dwrite_real_6_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1860,7 +1860,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(IN), &
             DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_real_6_c
             END INTERFACE
 
 
@@ -1872,7 +1872,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_real_6_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_real_6
@@ -1901,17 +1901,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_real_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_real_7_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_REAL_7_C'::h5dwrite_real_7_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1921,7 +1921,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_real_7_c
             END INTERFACE
 
             xfer_prp_default = H5P_DEFAULT_F
@@ -1932,7 +1932,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_real_7_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_real_7
@@ -1962,17 +1962,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_double_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_double_s_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_s_C'::h5dwrite_double_s_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -1981,7 +1981,7 @@
               INTEGER(HID_T) :: xfer_prp_default
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(IN) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_double_s_c
             END INTERFACE
 
 
@@ -1993,7 +1993,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_double_s_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_double_scalar
@@ -2023,17 +2023,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_double_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_double_1_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_1_C'::h5dwrite_double_1_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2043,7 +2043,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_double_1_c
             END INTERFACE
 
 
@@ -2055,7 +2055,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_double_1_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_double_1
@@ -2085,17 +2085,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_double_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_double_2_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_2_C'::h5dwrite_double_2_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2105,7 +2105,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_double_2_c
             END INTERFACE
 
 
@@ -2117,7 +2117,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_double_2_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_double_2
@@ -2147,17 +2147,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_double_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_double_3_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_3_C'::h5dwrite_double_3_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2167,7 +2167,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_double_3_c
             END INTERFACE
 
 
@@ -2179,7 +2179,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_double_3_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_double_3
@@ -2209,17 +2209,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_double_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_double_4_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_4_C'::h5dwrite_double_4_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2229,7 +2229,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_double_4_c
             END INTERFACE
 
 
@@ -2241,7 +2241,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_double_4_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_double_4
@@ -2271,17 +2271,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_double_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_double_5_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_5_C'::h5dwrite_double_5_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2291,7 +2291,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_double_5_c
             END INTERFACE
 
 
@@ -2303,7 +2303,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_double_5_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_double_5
@@ -2334,17 +2334,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_double_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_double_6_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_6_c'::h5dwrite_double_6_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2354,7 +2354,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_double_6_c
             END INTERFACE
 
 
@@ -2366,7 +2366,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_double_6_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_double_6
@@ -2397,17 +2397,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dwrite_c
+!            INTEGER, EXTERNAL :: h5dwrite_double_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dwrite_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dwrite_double_7_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_C'::h5dwrite_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DWRITE_DOUBLE_7_C'::h5dwrite_double_7_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2417,7 +2417,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(IN), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5dwrite_c
+              END FUNCTION h5dwrite_double_7_c
             END INTERFACE
 
             xfer_prp_default = H5P_DEFAULT_F
@@ -2428,7 +2428,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dwrite_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dwrite_double_7_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dwrite_double_7
@@ -2641,17 +2641,17 @@
             INTEGER(HID_T)  :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_integer_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_integer_s_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_S_C'::h5dread_integer_s_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2660,7 +2660,7 @@
               INTEGER(HID_T) :: xfer_prp_default
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(OUT) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_integer_s_c
             END INTERFACE
 
 
@@ -2672,7 +2672,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_integer_s_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_integer_scalar
@@ -2702,17 +2702,17 @@
             INTEGER(HID_T)  :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_integer_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_integer_1_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_1_C'::h5dread_integer_1_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2722,7 +2722,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_integer_1_c
             END INTERFACE
 
 
@@ -2734,7 +2734,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_integer_1_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_integer_1
@@ -2764,17 +2764,17 @@
             INTEGER(HID_T)  :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_integer_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_integer_2_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_2_C'::h5dread_integer_2_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2784,7 +2784,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_integer_2_c
             END INTERFACE
 
 
@@ -2796,7 +2796,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_integer_2_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -2827,17 +2827,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_integer_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_integer_3_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_3_C'::h5dread_integer_3_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2847,7 +2847,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_integer_3_c
             END INTERFACE
 
 
@@ -2859,7 +2859,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_integer_3_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -2890,17 +2890,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_integer_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_integer_4_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_4_C'::h5dread_integer_4_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2910,7 +2910,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(OUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_integer_4_c
             END INTERFACE
 
 
@@ -2922,7 +2922,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_integer_4_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -2953,17 +2953,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_integer_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_integer_5_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_5_c'::h5dread_integer_5_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -2973,7 +2973,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_integer_5_c
             END INTERFACE
 
 
@@ -2985,7 +2985,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_integer_5_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -3016,17 +3016,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_integer_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_integer_6_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_6_C'::h5dread_integer_6_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3036,7 +3036,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_integer_6_c
             END INTERFACE
 
 
@@ -3048,7 +3048,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_integer_6_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -3079,17 +3079,17 @@
             INTEGER(HID_T)  :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_integer_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_integer_7_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_INTEGER_7_C'::h5dread_integer_7_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3099,7 +3099,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               INTEGER, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_integer_7_c
             END INTERFACE
 
             xfer_prp_default = H5P_DEFAULT_F
@@ -3110,7 +3110,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_integer_7_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, &
                                 buf, dims)
            
@@ -3140,17 +3140,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dreadc_c
+!            INTEGER, EXTERNAL :: h5dreadc_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dreadc_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dreadc_s_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_S_C'::h5dreadc_s_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -3160,7 +3160,7 @@
               INTEGER(HID_T) :: xfer_prp_default
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(OUT) :: buf
-              END FUNCTION h5dreadc_c
+              END FUNCTION h5dreadc_s_c
             END INTERFACE
 
 
@@ -3172,7 +3172,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dreadc_s_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_char_scalar
@@ -3202,17 +3202,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dreadc_c
+!            INTEGER, EXTERNAL :: h5dreadc_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dreadc_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dreadc_1_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_1_C'::h5dreadc_1_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -3223,7 +3223,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(INOUT), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5dreadc_c
+              END FUNCTION h5dreadc_1_c
             END INTERFACE
 
 
@@ -3235,7 +3235,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dreadc_1_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_char_1
@@ -3265,17 +3265,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dreadc_c
+!            INTEGER, EXTERNAL :: h5dreadc_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dreadc_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dreadc_2_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_2_C'::h5dreadc_2_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -3286,7 +3286,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(INOUT), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5dreadc_c
+              END FUNCTION h5dreadc_2_c
             END INTERFACE
 
 
@@ -3298,7 +3298,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dreadc_2_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_char_2
@@ -3328,17 +3328,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dreadc_c
+!            INTEGER, EXTERNAL :: h5dreadc_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dreadc_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dreadc_3_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_3_C'::h5dreadc_3_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -3349,7 +3349,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5dreadc_c
+              END FUNCTION h5dreadc_3_c
             END INTERFACE
 
 
@@ -3361,7 +3361,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dreadc_3_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_char_3
@@ -3391,17 +3391,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dreadc_c
+!            INTEGER, EXTERNAL :: h5dreadc_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dreadc_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dreadc_4_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_4_C'::h5dreadc_4_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -3412,7 +3412,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5dreadc_c
+              END FUNCTION h5dreadc_4_c
             END INTERFACE
 
 
@@ -3424,7 +3424,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dreadc_4_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_char_4
@@ -3454,17 +3454,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dreadc_c
+!            INTEGER, EXTERNAL :: h5dreadc_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dreadc_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dreadc_5_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_5_C'::h5dreadc_5_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -3475,7 +3475,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5dreadc_c
+              END FUNCTION h5dreadc_5_c
             END INTERFACE
 
 
@@ -3487,7 +3487,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dreadc_5_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_char_5
@@ -3517,17 +3517,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dreadc_c
+!            INTEGER, EXTERNAL :: h5dreadc_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dreadc_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dreadc_6_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_6_C'::h5dreadc_6_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -3538,7 +3538,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5dreadc_c
+              END FUNCTION h5dreadc_6_c
             END INTERFACE
 
 
@@ -3550,7 +3550,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dreadc_6_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_char_6
@@ -3580,17 +3580,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dreadc_c
+!            INTEGER, EXTERNAL :: h5dreadc_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dreadc_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dreadc_7_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_C'::h5dreadc_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREADC_7_C'::h5dreadc_7_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: buf 
               INTEGER(HID_T), INTENT(IN) :: dset_id
@@ -3601,7 +3601,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               CHARACTER(LEN=*), INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5dreadc_c
+              END FUNCTION h5dreadc_7_c
             END INTERFACE
 
             xfer_prp_default = H5P_DEFAULT_F
@@ -3612,7 +3612,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dreadc_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dreadc_7_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_char_7
@@ -3640,17 +3640,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_real_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_real_s_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REAL_S_C'::h5dread_real_s_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3659,7 +3659,7 @@
               INTEGER(HID_T) :: xfer_prp_default
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(OUT) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_real_s_c
             END INTERFACE
 
 
@@ -3671,7 +3671,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_real_s_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_real_scalar
@@ -3700,17 +3700,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_real_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_real_1_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REAL_1_C'::h5dread_real_1_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3720,7 +3720,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(INOUT), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_real_1_c
             END INTERFACE
 
 
@@ -3732,7 +3732,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_real_1_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_real_1
@@ -3761,17 +3761,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_real_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_real_2_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REAL_2_C'::h5dread_real_2_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3781,7 +3781,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_real_2_c
             END INTERFACE
 
 
@@ -3793,7 +3793,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_real_2_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_real_2
@@ -3822,17 +3822,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_real_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_real_3_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REAL_3_C'::h5dread_real_3_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3842,7 +3842,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(INOUT), & 
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_real_3_c
             END INTERFACE
 
 
@@ -3854,7 +3854,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_real_3_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_real_3
@@ -3883,17 +3883,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_real_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_real_4_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REAL_4_C'::h5dread_real_4_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3903,7 +3903,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3), dims(4)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_real_4_c
             END INTERFACE
 
 
@@ -3915,7 +3915,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_real_4_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_real_4
@@ -3944,17 +3944,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_real_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_real_5_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REAL_5_C'::h5dread_real_5_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -3964,7 +3964,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(INOUT), & 
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_real_5_c
             END INTERFACE
 
 
@@ -3976,7 +3976,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_real_5_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_real_5
@@ -4005,17 +4005,17 @@
             INTEGER(HID_T) :: mem_space_id_default
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_real_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_real_6_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REAL_6_C'::h5dread_real_6_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4025,7 +4025,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_real_6_c
             END INTERFACE
 
 
@@ -4037,7 +4037,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_real_6_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_real_6
@@ -4067,17 +4067,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_real_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_real_7_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_REAL_7_C'::h5dread_real_7_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4087,7 +4087,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               REAL, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_real_7_c
             END INTERFACE
 
             xfer_prp_default = H5P_DEFAULT_F
@@ -4098,7 +4098,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_real_7_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_real_7
@@ -4127,17 +4127,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_double_s_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_double_s_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_DOUBLE_S_C'::h5dread_double_s_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4146,7 +4146,7 @@
               INTEGER(HID_T) :: xfer_prp_default
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(OUT) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_double_s_c
             END INTERFACE
 
 
@@ -4158,7 +4158,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_double_s_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_double_scalar
@@ -4188,17 +4188,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_double_1_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_double_1_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_DOUBLE_1_C'::h5dread_double_1_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4208,7 +4208,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(INOUT), &
               DIMENSION(dims(1)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_double_1_c
             END INTERFACE
 
 
@@ -4220,7 +4220,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_double_1_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_double_1
@@ -4250,17 +4250,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_double_2_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_double_2_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_DOUBLE_2_C'::h5dread_double_2_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4270,7 +4270,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(INOUT), & 
               DIMENSION(dims(1),dims(2)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_double_2_c
             END INTERFACE
 
 
@@ -4282,7 +4282,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_double_2_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_double_2
@@ -4312,17 +4312,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_double_3_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_double_3_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_DOUBLE_3_C'::h5dread_double_3_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4332,7 +4332,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_double_3_c
             END INTERFACE
 
 
@@ -4344,7 +4344,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_double_3_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_double_3
@@ -4375,17 +4375,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_double_4_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_double_4_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_DOUBLE_4_C'::h5dread_double_4_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4395,7 +4395,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_double_4_c
             END INTERFACE
 
 
@@ -4407,7 +4407,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_double_4_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_double_4
@@ -4437,17 +4437,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_double_5_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_double_5_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_DOUBLE_5_C'::h5dread_double_5_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4457,7 +4457,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_double_5_c
             END INTERFACE
 
 
@@ -4469,7 +4469,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_double_5_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_double_5
@@ -4500,17 +4500,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_double_6_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_double_6_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_DOUBLE_6_C'::h5dread_double_6_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4520,7 +4520,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_double_6_c
             END INTERFACE
 
 
@@ -4532,7 +4532,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_double_6_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_double_6
@@ -4563,17 +4563,17 @@
             INTEGER(HID_T) :: mem_space_id_default 
             INTEGER(HID_T) :: file_space_id_default 
 
-!            INTEGER, EXTERNAL :: h5dread_c
+!            INTEGER, EXTERNAL :: h5dread_double_7_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dread_c(dset_id, mem_type_id, &
+              INTEGER FUNCTION h5dread_double_7_c(dset_id, mem_type_id, &
                                           mem_space_id_default, & 
                                           file_space_id_default, &
                                           xfer_prp_default, buf, dims)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_C'::h5dread_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5DREAD_DOUBLE_7_C'::h5dread_double_7_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: dset_id
               INTEGER(HID_T), INTENT(IN) :: mem_type_id
@@ -4583,7 +4583,7 @@
             INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims
               DOUBLE PRECISION, INTENT(INOUT), &
               DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf
-              END FUNCTION h5dread_c
+              END FUNCTION h5dread_double_7_c
             END INTERFACE
 
             xfer_prp_default = H5P_DEFAULT_F
@@ -4594,7 +4594,7 @@
             if (present(mem_space_id))  mem_space_id_default = mem_space_id 
             if (present(file_space_id)) file_space_id_default = file_space_id 
 
-            hdferr = h5dread_c(dset_id, mem_type_id, mem_space_id_default, &
+            hdferr = h5dread_double_7_c(dset_id, mem_type_id, mem_space_id_default, &
                                 file_space_id_default, xfer_prp_default, buf, dims)
            
           END SUBROUTINE h5dread_double_7
@@ -5378,27 +5378,27 @@
             INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
             INTEGER(HID_T) :: mem_type_id !  Buffer dadtype identifier 
             
-!            INTEGER, EXTERNAL :: h5dfill_c
+!            INTEGER, EXTERNAL :: h5dfill_integer_c
 ! MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dfill_c(fill_value, fill_type_id, space_id, &
+              INTEGER FUNCTION h5dfill_integer_c(fill_value, fill_type_id, space_id, &
                                          buf, mem_type_id)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c  
+              !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_INTEGER_C'::h5dfill_integer_c  
               !DEC$ ENDIF
               INTEGER, INTENT(IN) :: fill_value  ! Fill value
               INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
               INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
               INTEGER, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
               INTEGER(HID_T) :: mem_type_id !  Buffer dadtype identifier 
-              END FUNCTION h5dfill_c
+              END FUNCTION h5dfill_integer_c
             END INTERFACE 
             fill_type_id = H5T_NATIVE_INTEGER
             mem_type_id  = H5T_NATIVE_INTEGER
 
-            hdferr = h5dfill_c(fill_value, fill_type_id, space_id, & 
+            hdferr = h5dfill_integer_c(fill_value, fill_type_id, space_id, & 
                                buf, mem_type_id)
 
           END SUBROUTINE h5dfill_integer
@@ -5442,27 +5442,27 @@
             INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
             INTEGER(HID_T) :: mem_type_id !  Buffer dadtype identifier 
             
-!            INTEGER, EXTERNAL :: h5dfill_c
+!            INTEGER, EXTERNAL :: h5dfill_real_c
 ! MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dfill_c(fill_valuer, fill_type_id, space_id, &
+              INTEGER FUNCTION h5dfill_real_c(fill_valuer, fill_type_id, space_id, &
                                          buf, mem_type_id)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c  
+              !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_REAL_C'::h5dfill_real_c  
               !DEC$ ENDIF
               REAL, INTENT(IN) :: fill_valuer  ! Fill value
               INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
               INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
               REAL, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
               INTEGER(HID_T) :: mem_type_id !  Buffer dadtype identifier 
-              END FUNCTION h5dfill_c
+              END FUNCTION h5dfill_real_c
             END INTERFACE 
             fill_type_id = H5T_NATIVE_REAL
             mem_type_id  = H5T_NATIVE_REAL
 
-            hdferr = h5dfill_c(fill_valuer, fill_type_id, space_id, & 
+            hdferr = h5dfill_real_c(fill_valuer, fill_type_id, space_id, & 
                                buf, mem_type_id)
           END SUBROUTINE h5dfill_real
 
@@ -5505,27 +5505,27 @@
             INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
             INTEGER(HID_T) :: mem_type_id !  Buffer dadtype identifier 
             
-!            INTEGER, EXTERNAL :: h5dfill_c
+!            INTEGER, EXTERNAL :: h5dfill_double_c
 ! MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5dfill_c(fill_value, fill_type_id, space_id, &
+              INTEGER FUNCTION h5dfill_double_c(fill_value, fill_type_id, space_id, &
                                          buf, mem_type_id)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_C'::h5dfill_c  
+              !MS$ATTRIBUTES C,reference,alias:'_H5DFILL_DOUBLE_C'::h5dfill_double_c  
               !DEC$ ENDIF
               DOUBLE PRECISION, INTENT(IN) :: fill_value  ! Fill value
               INTEGER(HID_T) :: fill_type_id ! Fill value datatype identifier
               INTEGER(HID_T), INTENT(IN) :: space_id ! Memory dataspace selection identifier
               DOUBLE PRECISION, INTENT(IN), DIMENSION(*) :: buf ! Memory buffer to fill in
               INTEGER(HID_T) :: mem_type_id !  Buffer dadtype identifier 
-              END FUNCTION h5dfill_c
+              END FUNCTION h5dfill_double_c
             END INTERFACE 
             fill_type_id = H5T_NATIVE_DOUBLE
             mem_type_id  = H5T_NATIVE_DOUBLE
 
-            hdferr = h5dfill_c(fill_value, fill_type_id, space_id, & 
+            hdferr = h5dfill_double_c(fill_value, fill_type_id, space_id, & 
                                buf, mem_type_id)
 
 
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c
index 3c47ee2..c8540a4 100644
--- a/fortran/src/H5Ef.c
+++ b/fortran/src/H5Ef.c
@@ -62,7 +62,7 @@ nh5eprint_c1(_fcd name, int_f* namelen)
   herr_t status;
   FILE * file;
   char* c_name;
-  int c_namelen;
+  size_t c_namelen;
   c_namelen = *namelen;
   c_name = (char*)HD5f2cstring(name, c_namelen);
   if(c_name == NULL) return ret_val;
@@ -121,7 +121,7 @@ int_f
 nh5eget_major_c(int_f* error_no, _fcd name, size_t_f* namelen)
 {
   int ret_val = -1;
-  char *c_name;
+  char *c_name = NULL;
   size_t c_namelen;
   hid_t c_error_no;
   c_error_no = (hid_t)*error_no;
@@ -155,7 +155,7 @@ int_f
 nh5eget_minor_c(int_f* error_no, _fcd name, size_t_f* namelen)
 {
   int ret_val = -1;
-  char *c_name;
+  char *c_name = NULL;
   size_t c_namelen;
   hid_t c_error_no;
   c_error_no = (hid_t)*error_no;
@@ -188,7 +188,7 @@ int_f
 nh5eset_auto_c(int_f* printflag)
 {
   int ret_val = -1;
-  herr_t status;
+  herr_t status = -1;
 
   if (*printflag == 1)
     status = H5Eset_auto_stack(H5E_DEFAULT, (H5E_auto_stack_t)H5Eprint, stderr);
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c
index 50b9839..bd9c7de 100644
--- a/fortran/src/H5Ff.c
+++ b/fortran/src/H5Ff.c
@@ -496,9 +496,9 @@ nh5fget_freespace_c ( hid_t_f *file_id , hssize_t_f *free_space)
 int_f
 nh5fget_name_c(hid_t_f *obj_id, size_t_f *size, _fcd buf, size_t_f *buflen)
 {
-    char *c_buf=NULL;           /* Buffer to hold C string */
-    ssize_t size_c;
-    int_f ret_value=0;          /* Return value */
+    char *c_buf = NULL;           /* Buffer to hold C string */
+    ssize_t size_c = -1;
+    int_f ret_value = 0;          /* Return value */
 
      /*
       * Allocate buffer to hold name of an attribute
diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
index fdce19f..0236bea 100644
--- a/fortran/src/H5Gf.c
+++ b/fortran/src/H5Gf.c
@@ -34,7 +34,7 @@ nh5gcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint,
 {
      int ret_value = -1;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      size_t c_size_hint;
      hid_t c_grp_id;
      hid_t c_loc_id;
@@ -81,7 +81,7 @@ nh5gopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *grp_id)
 {
      int ret_value = -1;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hid_t c_grp_id;
      hid_t c_loc_id;
 
@@ -130,7 +130,7 @@ nh5gget_obj_info_idx_c
      int ret_value = -1;
      hid_t c_loc_id = (hid_t)*loc_id;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      size_t c_obj_namelen;
      char *c_obj_name = NULL;
      int type;
@@ -165,7 +165,7 @@ nh5gget_obj_info_idx_c
      /*
       * Convert C name to FORTRAN and place it in the given buffer
       */
-     HD5packFstring(c_obj_name, _fcdtocp(obj_name), (int)c_obj_namelen);
+     HD5packFstring(c_obj_name, _fcdtocp(obj_name), c_obj_namelen);
      ret_value = 0;
 
 DONE:
@@ -195,7 +195,7 @@ nh5gn_members_c (hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers)
      int ret_value = -1;
      hid_t c_loc_id=(hid_t)*loc_id;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hsize_t c_nmembers;
      hid_t gid = (-1);
 
@@ -267,7 +267,7 @@ nh5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name, int_f *current_
   hid_t c_loc_id;
   H5G_link_t c_link_type;
   char *c_current_name, *c_new_name;
-  int c_current_namelen, c_new_namelen;
+  size_t c_current_namelen, c_new_namelen;
   herr_t c_ret_value;
   /*
    *  Convert Fortran name to C name
@@ -324,7 +324,7 @@ nh5glink2_c(hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen,  int_f *link
   hid_t c_new_loc_id;
   H5G_link_t c_link_type;
   char *c_cur_name, *c_new_name;
-  int c_cur_namelen, c_new_namelen;
+  size_t c_cur_namelen, c_new_namelen;
   herr_t c_ret_value;
   /*
    *  Convert Fortran name to C name
@@ -372,7 +372,7 @@ nh5gunlink_c(hid_t_f *loc_id, _fcd name, int_f *namelen)
   int ret_value = -1;
   hid_t c_loc_id;
   char *c_name;
-  int c_namelen;
+  size_t c_namelen;
   herr_t c_ret_value;
   /*
    *  Convert Fortran name to C name
@@ -413,7 +413,7 @@ nh5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, in
   int ret_value = -1;
   hid_t c_loc_id;
   char *c_src_name, *c_dst_name;
-  int c_src_namelen, c_dst_namelen;
+  size_t c_src_namelen, c_dst_namelen;
   herr_t c_ret_value;
   /*
    *  Convert Fortran name to C name
@@ -464,7 +464,7 @@ nh5gmove2_c(hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst
   hid_t c_src_loc_id;
   hid_t c_dst_loc_id;
   char *c_src_name, *c_dst_name;
-  int c_src_namelen, c_dst_namelen;
+  size_t c_src_namelen, c_dst_namelen;
   herr_t c_ret_value;
   /*
    *  Convert Fortran name to C name
@@ -514,7 +514,7 @@ nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _f
   int ret_value = -1;
   hid_t c_loc_id;
   char *c_name;
-  int c_namelen;
+  size_t c_namelen;
   char *c_value = NULL;
   size_t c_size;
   herr_t c_ret_value;
@@ -547,7 +547,7 @@ nh5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size, _f
   /*
    *  Convert C name to FORTRAN and place it in the given buffer
    */
-  HD5packFstring(c_value, _fcdtocp(value), (int)*size);
+  HD5packFstring(c_value, _fcdtocp(value), (size_t)*size);
   ret_value = 0;
 
 DONE:
@@ -576,7 +576,7 @@ nh5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment, int_
   int ret_value = -1;
   hid_t c_loc_id;
   char *c_name, *c_comment;
-  int c_namelen, c_commentlen;
+  size_t c_namelen, c_commentlen;
   herr_t c_ret_value;
   /*
    *  Convert Fortran name to C name
@@ -625,7 +625,7 @@ nh5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize,
   int ret_value = -1;
   hid_t c_loc_id;
   char *c_name;
-  int c_namelen;
+  size_t c_namelen;
   char *c_comment = NULL;
   size_t c_bufsize;
   herr_t c_ret_value;
@@ -657,7 +657,7 @@ nh5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize,
   /*
    *  Convert C name to FORTRAN and place it in the given buffer
    */
-  HD5packFstring(c_comment, _fcdtocp(comment), (int)*bufsize);
+  HD5packFstring(c_comment, _fcdtocp(comment), (size_t)*bufsize);
   ret_value = 0;
 
 DONE:
diff --git a/fortran/src/H5If.c b/fortran/src/H5If.c
index 6931066..d23dd13 100644
--- a/fortran/src/H5If.c
+++ b/fortran/src/H5If.c
@@ -81,7 +81,7 @@ nh5iget_name_c(hid_t_f *obj_id, _fcd buf, size_t_f *buf_size, size_t_f *name_siz
      /*
       * Convert C name to FORTRAN and place it in the given buffer
       */
-      HD5packFstring(c_buf, _fcdtocp(buf), (int)c_buf_size);
+      HD5packFstring(c_buf, _fcdtocp(buf), c_buf_size);
       *name_size = (size_t_f)c_size;
       ret_value = 0;
 
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index 8671a0e..54f954d 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -380,6 +380,33 @@ nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
      return ret_value;
 }
 
+int_f
+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);
+}
+
+int_f
+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);
+}
+
+int_f
+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);
+}
+
 
 /*----------------------------------------------------------------------------
  * Name:        h5pget_fill_valuec_c
@@ -436,6 +463,33 @@ nh5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
      return ret_value;
 }
 
+int_f
+nh5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+{
+     /*
+      * Call h5pget_fill_value_c  function.
+      */
+     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
+}
+
+int_f
+nh5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+{
+     /*
+      * Call h5pget_fill_value_c  function.
+      */
+     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
+}
+
+int_f
+nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue)
+{
+     /*
+      * Call h5pget_fill_value_c  function.
+      */
+     return nh5pset_fill_value_c(prp_id, type_id, fillvalue);
+}
+
 /*----------------------------------------------------------------------------
  * Name:        h5pget_version_c
  * Purpose:     Call H5Pget_version to get the version information
@@ -1185,9 +1239,9 @@ nh5pset_fapl_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* m
      char* c_meta_ext;
      char* c_raw_ext;
 
-     c_meta_ext = (char *)HD5f2cstring(meta_ext, (int)*meta_len);
+     c_meta_ext = (char *)HD5f2cstring(meta_ext, (size_t)*meta_len);
      if (c_meta_ext == NULL) return ret_value;
-     c_raw_ext = (char *)HD5f2cstring(raw_ext, (int)*raw_len);
+     c_raw_ext = (char *)HD5f2cstring(raw_ext, (size_t)*raw_len);
      if (c_raw_ext == NULL) { HDfree(c_meta_ext);
                               return ret_value;
                             }
@@ -1488,7 +1542,7 @@ nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f*
 {
      int ret_value = -1;
      hid_t c_prp_id;
-     int c_filter_number;
+     unsigned c_filter_number;
      unsigned int  c_flags;
      size_t c_cd_nelmts, c_namelen;
      size_t c_cd_nelmts_in;
@@ -1512,7 +1566,7 @@ nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f*
       * Call H5Pget_filter function.
       */
      c_prp_id = (hid_t)*prp_id;
-     c_filter_number = (int)*filter_number;
+     c_filter_number = (unsigned)*filter_number;
      c_filter = H5Pget_filter(c_prp_id, c_filter_number, &c_flags, &c_cd_nelmts, c_cd_values, c_namelen, c_name, NULL);
 
      if (c_filter < 0) goto DONE;
@@ -1520,7 +1574,7 @@ nh5pget_filter_c(hid_t_f *prp_id, int_f* filter_number, int_f* flags, size_t_f*
      *filter_id = (int_f)c_filter;
      *cd_nelmts = (size_t_f)c_cd_nelmts;
      *flags = (int_f)c_flags;
-     HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name));
+     HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));
 
      for (i = 0; i < c_cd_nelmts_in; i++)
           cd_values[i] = (int_f)c_cd_values[i];
@@ -1556,7 +1610,7 @@ nh5pset_external_c (hid_t_f *prp_id, _fcd name, int_f* namelen, int_f* offset, h
      herr_t ret;
      hsize_t c_bytes;
      char* c_name;
-     int c_namelen;
+     size_t c_namelen;
      off_t c_offset;
      c_bytes = (hsize_t) *bytes;
      c_offset = (off_t) *offset;
@@ -1653,7 +1707,7 @@ nh5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f* name_size, _fcd name,
 
      *offset = (int_f)c_offset;
      *bytes = (hsize_t_f)size;
-     HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name));
+     HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));
      ret_value = 0;
 
 DONE:
@@ -2179,7 +2233,7 @@ nh5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *class)
      hid_t c_class;
      char* c_name;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
      c_parent = (hid_t)*parent;
 
@@ -2210,7 +2264,7 @@ DONE:
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5pregisterc_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f *value_len)
+nh5pregisterc_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f UNUSED *value_len)
 {
      int ret_value = -1;
 
@@ -2235,14 +2289,14 @@ nh5pregisterc_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, _fcd
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5pregister_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, void *value)
+nh5pregister_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value)
 {
      int_f ret_value = -1;
      hid_t c_class;
      char* c_name;
      size_t c_size;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
      c_size = (size_t)*size;
      c_class = (hid_t)*class;
@@ -2257,6 +2311,34 @@ DONE:
      if(c_name != NULL) HDfree(c_name);
      return ret_value;
 }
+
+int_f
+nh5pregister_integer_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, void *value)
+{
+     /*
+      * Call h5pregister_c function
+      */
+     return nh5pregister_c(class, name, name_len, size, value);
+}
+
+int_f
+nh5pregister_real_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, void *value)
+{
+     /*
+      * Call h5pregister_c function
+      */
+     return nh5pregister_c(class, name, name_len, size, value);
+}
+
+int_f
+nh5pregister_double_c(hid_t_f *class, _fcd name, int_f *name_len, size_t_f *size, void *value)
+{
+     /*
+      * Call h5pregister_c function
+      */
+     return nh5pregister_c(class, name, name_len, size, value);
+}
+
 /*----------------------------------------------------------------------------
  * Name:        h5pinsertc_c
  * Purpose:     Call h5pinsert_c to register a temporary property
@@ -2271,7 +2353,7 @@ DONE:
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f *value_len)
+nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f UNUSED *value_len)
 {
      int_f ret_value = -1;
 
@@ -2296,14 +2378,14 @@ nh5pinsertc_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd v
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
+nh5pinsert_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void UNUSED *value)
 {
      int_f ret_value = -1;
      hid_t c_plist;
      char* c_name;
      size_t c_size;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
      c_size = (size_t)*size;
      c_plist = (hid_t)*plist;
@@ -2319,6 +2401,33 @@ DONE:
      return ret_value;
 }
 
+int_f
+nh5pinsert_integer_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
+{
+     /*
+      * Call h5pinsert_c function
+      */
+     return nh5pinsert_c(plist, name, name_len, size, value);
+}
+
+int_f
+nh5pinsert_real_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
+{
+     /*
+      * Call h5pinsert_c function
+      */
+     return nh5pinsert_c(plist, name, name_len, size, value);
+}
+
+int_f
+nh5pinsert_double_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size, void *value)
+{
+     /*
+      * Call h5pinsert_c function
+      */
+     return nh5pinsert_c(plist, name, name_len, size, value);
+}
+
 /*----------------------------------------------------------------------------
  * Name:        h5pexist_c
  * Purpose:     Call H5Pexist to querie whether a property name exists
@@ -2339,7 +2448,7 @@ nh5pexist_c(hid_t_f *class, _fcd name, int_f *name_len)
      char* c_name;
      htri_t status;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
 
      c_class = (hid_t)*class;
@@ -2402,7 +2511,7 @@ nh5pget_size_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size)
      char* c_name;
      size_t c_size;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
 
      c_plist = (hid_t)*plist;
@@ -2495,7 +2604,7 @@ nh5pcopy_prop_c(hid_t_f *dst_id, hid_t_f *src_id, _fcd name, int_f *name_len)
      hid_t c_dst_id, c_src_id;
      char* c_name;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
 
      c_dst_id = (hid_t)*dst_id;
@@ -2528,7 +2637,7 @@ nh5premove_c(hid_t_f *plid, _fcd name, int_f *name_len)
      hid_t c_plid;
      char* c_name;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
 
      c_plid = (hid_t)*plid;
@@ -2560,7 +2669,7 @@ nh5punregister_c(hid_t_f *class, _fcd name, int_f *name_len)
      hid_t c_class;
      char* c_name;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
 
      c_class = (hid_t)*class;
@@ -2623,7 +2732,7 @@ nh5pget_class_name_c(hid_t_f *class, _fcd name, int_f *name_len)
      c_name = H5Pget_class_name(c_class);
      if( c_name == NULL) goto DONE;
 
-     HD5packFstring(c_name, _fcdtocp(name), (int)*name_len);
+     HD5packFstring(c_name, _fcdtocp(name), (size_t)*name_len);
      ret_value = (int_f)HDstrlen(c_name);
 
 DONE:
@@ -2643,7 +2752,7 @@ DONE:
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_len)
+nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED *value_len)
 {
      int_f ret_value = -1;
 
@@ -2667,13 +2776,13 @@ nh5psetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
+nh5pset_c(hid_t_f *plist, _fcd name, int_f *name_len, void UNUSED *value)
 {
      int_f ret_value = -1;
      hid_t c_plist;
      char* c_name;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
      c_plist = (hid_t)*plist;
 
@@ -2687,6 +2796,33 @@ DONE:
      if(c_name != NULL) HDfree(c_name);
      return ret_value;
 }
+
+int_f
+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);
+}
+
+int_f
+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);
+}
+
+int_f
+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);
+}
 /*----------------------------------------------------------------------------
  * Name:        h5pgetc_c
  * Purpose:     Call h5set_c to set property with the character string value
@@ -2700,7 +2836,7 @@ DONE:
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_len)
+nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f UNUSED *value_len)
 {
      int_f ret_value = -1;
 
@@ -2724,13 +2860,13 @@ nh5pgetc_c(hid_t_f *plist, _fcd name, int_f *name_len, _fcd value, int_f *value_
  * Modifications:
  *---------------------------------------------------------------------------*/
 int_f
-nh5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void *value)
+nh5pget_c(hid_t_f *plist, _fcd name, int_f *name_len, void UNUSED *value)
 {
      int_f ret_value = -1;
      hid_t c_plist;
      char* c_name;
 
-     c_name = (char *)HD5f2cstring(name, (int)*name_len);
+     c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
      if (c_name == NULL) goto DONE;
      c_plist = (hid_t)*plist;
 
@@ -2744,6 +2880,35 @@ DONE:
      if(c_name != NULL) HDfree(c_name);
      return ret_value;
 }
+
+int_f
+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);
+}
+
+int_f
+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);
+}
+
+int_f
+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);
+}
+
+
 /*----------------------------------------------------------------------------
  * Name:        h5pset_shuffle_c
  * Purpose:     Call H5Pset_shuffle
@@ -2910,7 +3075,7 @@ nh5pset_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f
  * Take care of names array
  */
 
-  tmp = (char *)HD5f2cstring(memb_name, c_lenmax*(H5FD_MEM_NTYPES));
+  tmp = (char *)HD5f2cstring(memb_name, (size_t)c_lenmax*(H5FD_MEM_NTYPES));
   if (tmp ==NULL) return ret_value;
   tmp_p = tmp;
   for (i=0; i < H5FD_MEM_NTYPES; i++) {
@@ -3035,7 +3200,7 @@ nh5pget_fapl_multi_c ( hid_t_f *prp_id , int_f *memb_map, hid_t_f *memb_fapl, _f
        length = H5_MAX(length, strlen(c_memb_name[i]));
        tmp_p = tmp_p + c_lenmax;
  }
-HD5packFstring(tmp, _fcdtocp(memb_name), (int)(c_lenmax*H5FD_MEM_NTYPES));
+HD5packFstring(tmp, _fcdtocp(memb_name), (size_t)(c_lenmax*H5FD_MEM_NTYPES));
 
 /*
  * Take care of other arguments
@@ -3175,7 +3340,7 @@ nh5pget_filter_by_id_c(hid_t_f *prp_id, int_f* filter_id, int_f* flags, size_t_f
 
      *cd_nelmts = (size_t_f)c_cd_nelmts;
      *flags = (int_f)c_flags;
-     HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name));
+     HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));
 
      for (i = 0; i < c_cd_nelmts_in; i++)
           cd_values[i] = (int_f)c_cd_values[i];
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90
index 15d115a..70a3fc9 100644
--- a/fortran/src/H5Pff.f90
+++ b/fortran/src/H5Pff.f90
@@ -680,22 +680,22 @@
             INTEGER, INTENT(IN) :: fillvalue   ! Fillvalue
             INTEGER, INTENT(OUT) :: hdferr  ! Error code
 
-!            INTEGER, EXTERNAL :: h5pset_fill_value_c
+!            INTEGER, EXTERNAL :: h5pset_fill_value_integer_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue)
+              INTEGER FUNCTION h5pset_fill_value_integer_c(prp_id, type_id, fillvalue)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_INTEGER_C'::h5pset_fill_value_integer_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: prp_id
               INTEGER(HID_T), INTENT(IN) :: type_id
               INTEGER, INTENT(IN) :: fillvalue
-              END FUNCTION h5pset_fill_value_c
+              END FUNCTION h5pset_fill_value_integer_c
             END INTERFACE
 
-            hdferr = h5pset_fill_value_c(prp_id, type_id, fillvalue)
+            hdferr = h5pset_fill_value_integer_c(prp_id, type_id, fillvalue)
           END SUBROUTINE h5pset_fill_value_integer
 
 
@@ -715,22 +715,22 @@
             INTEGER, INTENT(IN) :: fillvalue   ! Fillvalue
             INTEGER, INTENT(OUT) :: hdferr  ! Error code
 
-!            INTEGER, EXTERNAL :: h5pget_fill_value_c
+!            INTEGER, EXTERNAL :: h5pget_fill_value_integer_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue)
+              INTEGER FUNCTION h5pget_fill_value_integer_c(prp_id, type_id, fillvalue)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_INTEGER_C'::h5pget_fill_value_integer_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: prp_id
               INTEGER(HID_T), INTENT(IN) :: type_id
               INTEGER :: fillvalue
-              END FUNCTION h5pget_fill_value_c
+              END FUNCTION h5pget_fill_value_integer_c
             END INTERFACE
 
-            hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue)
+            hdferr = h5pget_fill_value_integer_c(prp_id, type_id, fillvalue)
           END SUBROUTINE h5pget_fill_value_integer
 
 
@@ -750,22 +750,22 @@
             REAL, INTENT(IN) :: fillvalue   ! Fillvalue
             INTEGER, INTENT(OUT) :: hdferr  ! Error code
 
-!            INTEGER, EXTERNAL :: h5pset_fill_value_c
+!            INTEGER, EXTERNAL :: h5pset_fill_value_real_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue)
+              INTEGER FUNCTION h5pset_fill_value_real_c(prp_id, type_id, fillvalue)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_REAL_C'::h5pset_fill_value_real_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: prp_id
               INTEGER(HID_T), INTENT(IN) :: type_id
               REAL, INTENT(IN) :: fillvalue
-              END FUNCTION h5pset_fill_value_c
+              END FUNCTION h5pset_fill_value_real_c
             END INTERFACE
 
-            hdferr = h5pset_fill_value_c(prp_id, type_id, fillvalue)
+            hdferr = h5pset_fill_value_real_c(prp_id, type_id, fillvalue)
           END SUBROUTINE h5pset_fill_value_real
 
 
@@ -785,22 +785,22 @@
             REAL, INTENT(IN) :: fillvalue   ! Fillvalue
             INTEGER, INTENT(OUT) :: hdferr  ! Error code
 
-!            INTEGER, EXTERNAL :: h5pget_fill_value_c
+!            INTEGER, EXTERNAL :: h5pget_fill_value_real_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue)
+              INTEGER FUNCTION h5pget_fill_value_real_c(prp_id, type_id, fillvalue)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_REAL_C'::h5pget_fill_value_real_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: prp_id
               INTEGER(HID_T), INTENT(IN) :: type_id
               REAL :: fillvalue
-              END FUNCTION h5pget_fill_value_c
+              END FUNCTION h5pget_fill_value_real_c
             END INTERFACE
 
-            hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue)
+            hdferr = h5pget_fill_value_real_c(prp_id, type_id, fillvalue)
           END SUBROUTINE h5pget_fill_value_real
 
 
@@ -820,22 +820,22 @@
             DOUBLE PRECISION, INTENT(IN) :: fillvalue   ! Fillvalue
             INTEGER, INTENT(OUT) :: hdferr  ! Error code
 
-!            INTEGER, EXTERNAL :: h5pset_fill_value_c
+!            INTEGER, EXTERNAL :: h5pset_fill_value_double_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5pset_fill_value_c(prp_id, type_id, fillvalue)
+              INTEGER FUNCTION h5pset_fill_value_double_c(prp_id, type_id, fillvalue)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_C'::h5pset_fill_value_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_FILL_VALUE_DOUBLE_C'::h5pset_fill_value_double_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: prp_id
               INTEGER(HID_T), INTENT(IN) :: type_id
               DOUBLE PRECISION, INTENT(IN) :: fillvalue
-              END FUNCTION h5pset_fill_value_c
+              END FUNCTION h5pset_fill_value_double_c
             END INTERFACE
 
-            hdferr = h5pset_fill_value_c(prp_id, type_id, fillvalue)
+            hdferr = h5pset_fill_value_double_c(prp_id, type_id, fillvalue)
           END SUBROUTINE h5pset_fill_value_double
 
 
@@ -855,22 +855,22 @@
             DOUBLE PRECISION, INTENT(IN) :: fillvalue   ! Fillvalue
             INTEGER, INTENT(OUT) :: hdferr  ! Error code
 
-!            INTEGER, EXTERNAL :: h5pget_fill_value_c
+!            INTEGER, EXTERNAL :: h5pget_fill_value_double_c
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
             INTERFACE
-              INTEGER FUNCTION h5pget_fill_value_c(prp_id, type_id, fillvalue)
+              INTEGER FUNCTION h5pget_fill_value_double_c(prp_id, type_id, fillvalue)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_C'::h5pget_fill_value_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_FILL_VALUE_DOUBLE_C'::h5pget_fill_value_double_c
               !DEC$ ENDIF
               INTEGER(HID_T), INTENT(IN) :: prp_id
               INTEGER(HID_T), INTENT(IN) :: type_id
               DOUBLE PRECISION :: fillvalue
-              END FUNCTION h5pget_fill_value_c
+              END FUNCTION h5pget_fill_value_double_c
             END INTERFACE
 
-            hdferr = h5pget_fill_value_c(prp_id, type_id, fillvalue)
+            hdferr = h5pget_fill_value_double_c(prp_id, type_id, fillvalue)
           END SUBROUTINE h5pget_fill_value_double
 
           SUBROUTINE h5pset_fill_value_char(prp_id, type_id, fillvalue, &
@@ -4081,21 +4081,21 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pset_c(prp_id, name, name_len, value)
+              INTEGER FUNCTION h5pset_integer_c(prp_id, name, name_len, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_INTEGER_C'::h5pset_integer_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: prp_id
               CHARACTER(LEN=*), INTENT(IN) :: name
               INTEGER, INTENT(IN)         :: name_len
               INTEGER, INTENT(IN) :: value
-              END FUNCTION h5pset_c
+              END FUNCTION h5pset_integer_c
             END INTERFACE
 
             name_len = LEN(name)
-        hdferr = h5pset_c(prp_id, name , name_len, value)
+        hdferr = h5pset_integer_c(prp_id, name , name_len, value)
           END SUBROUTINE h5pset_integer
 
 !----------------------------------------------------------------------
@@ -4137,21 +4137,21 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pset_c(prp_id, name, name_len, value)
+              INTEGER FUNCTION h5pset_real_c(prp_id, name, name_len, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_REAL_C'::h5pset_real_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: prp_id
               CHARACTER(LEN=*), INTENT(IN) :: name
               INTEGER, INTENT(IN)         :: name_len
               REAL, INTENT(IN) :: value
-              END FUNCTION h5pset_c
+              END FUNCTION h5pset_real_c
             END INTERFACE
 
             name_len = LEN(name)
-        hdferr = h5pset_c(prp_id, name , name_len, value)
+        hdferr = h5pset_real_c(prp_id, name , name_len, value)
           END SUBROUTINE h5pset_real
 
 !----------------------------------------------------------------------
@@ -4193,21 +4193,21 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pset_c(prp_id, name, name_len, value)
+              INTEGER FUNCTION h5pset_double_c(prp_id, name, name_len, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_C'::h5pset_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PSET_DOUBLE_C'::h5pset_double_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: prp_id
               CHARACTER(LEN=*), INTENT(IN) :: name
               INTEGER, INTENT(IN)         :: name_len
               DOUBLE PRECISION, INTENT(IN) :: value
-              END FUNCTION h5pset_c
+              END FUNCTION h5pset_double_c
             END INTERFACE
 
             name_len = LEN(name)
-        hdferr = h5pset_c(prp_id, name , name_len, value)
+        hdferr = h5pset_double_c(prp_id, name , name_len, value)
           END SUBROUTINE h5pset_double
 
 !----------------------------------------------------------------------
@@ -4309,21 +4309,21 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pget_c(prp_id, name, name_len, value)
+              INTEGER FUNCTION h5pget_integer_c(prp_id, name, name_len, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_INTEGER_C'::h5pget_integer_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: prp_id
               CHARACTER(LEN=*), INTENT(IN) :: name
               INTEGER, INTENT(IN)         :: name_len
               INTEGER, INTENT(OUT) :: value
-              END FUNCTION h5pget_c
+              END FUNCTION h5pget_integer_c
             END INTERFACE
 
             name_len = LEN(name)
-        hdferr = h5pget_c(prp_id, name , name_len, value)
+        hdferr = h5pget_integer_c(prp_id, name , name_len, value)
           END SUBROUTINE h5pget_integer
 
 !----------------------------------------------------------------------
@@ -4365,21 +4365,21 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pget_c(prp_id, name, name_len, value)
+              INTEGER FUNCTION h5pget_real_c(prp_id, name, name_len, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_REAL_C'::h5pget_real_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: prp_id
               CHARACTER(LEN=*), INTENT(IN) :: name
               INTEGER, INTENT(IN)         :: name_len
               REAL, INTENT(OUT) :: value
-              END FUNCTION h5pget_c
+              END FUNCTION h5pget_real_c
             END INTERFACE
 
             name_len = LEN(name)
-            hdferr = h5pget_c(prp_id, name , name_len, value)
+            hdferr = h5pget_real_c(prp_id, name , name_len, value)
           END SUBROUTINE h5pget_real
 
 !----------------------------------------------------------------------
@@ -4421,21 +4421,21 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pget_c(prp_id, name, name_len, value)
+              INTEGER FUNCTION h5pget_double_c(prp_id, name, name_len, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_C'::h5pget_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PGET_DOUBLE_C'::h5pget_double_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: prp_id
               CHARACTER(LEN=*), INTENT(IN) :: name
               INTEGER, INTENT(IN)         :: name_len
               DOUBLE PRECISION, INTENT(OUT) :: value
-              END FUNCTION h5pget_c
+              END FUNCTION h5pget_double_c
             END INTERFACE
 
             name_len = LEN(name)
-            hdferr = h5pget_c(prp_id, name , name_len, value)
+            hdferr = h5pget_double_c(prp_id, name , name_len, value)
           END SUBROUTINE h5pget_double
 
 !----------------------------------------------------------------------
@@ -5146,10 +5146,10 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pregister_c(class, name, name_len, size, value)
+              INTEGER FUNCTION h5pregister_integer_c(class, name, name_len, size, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_INTEGER_C'::h5pregister_integer_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: class
@@ -5157,11 +5157,11 @@
               INTEGER, INTENT(IN)         :: name_len
               INTEGER(SIZE_T), INTENT(IN) :: size 
               INTEGER, INTENT(IN) :: value
-              END FUNCTION h5pregister_c
+              END FUNCTION h5pregister_integer_c
             END INTERFACE
 
             name_len = LEN(name)
-            hdferr = h5pregister_c(class, name , name_len, size, value)
+            hdferr = h5pregister_integer_c(class, name , name_len, size, value)
           END SUBROUTINE h5pregister_integer
 
 !----------------------------------------------------------------------
@@ -5207,10 +5207,10 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pregister_c(class, name, name_len, size, value)
+              INTEGER FUNCTION h5pregister_real_c(class, name, name_len, size, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_REAL_C'::h5pregister_real_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: class
@@ -5218,11 +5218,11 @@
               INTEGER, INTENT(IN)         :: name_len
               INTEGER(SIZE_T), INTENT(IN) :: size 
               REAL, INTENT(IN) :: value
-              END FUNCTION h5pregister_c
+              END FUNCTION h5pregister_real_c
             END INTERFACE
 
             name_len = LEN(name)
-            hdferr = h5pregister_c(class, name , name_len, size, value)
+            hdferr = h5pregister_real_c(class, name , name_len, size, value)
           END SUBROUTINE h5pregister_real
 
 !----------------------------------------------------------------------
@@ -5268,10 +5268,10 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pregister_c(class, name, name_len, size, value)
+              INTEGER FUNCTION h5pregister_double_c(class, name, name_len, size, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_C'::h5pregister_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PREGISTER_DOUBLE_C'::h5pregister_double_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: class
@@ -5279,11 +5279,11 @@
               INTEGER, INTENT(IN)         :: name_len
               INTEGER(SIZE_T), INTENT(IN) :: size 
               DOUBLE PRECISION, INTENT(IN) :: value
-              END FUNCTION h5pregister_c
+              END FUNCTION h5pregister_double_c
             END INTERFACE
 
             name_len = LEN(name)
-            hdferr = h5pregister_c(class, name , name_len, size, value)
+            hdferr = h5pregister_double_c(class, name , name_len, size, value)
           END SUBROUTINE h5pregister_double
 
 !----------------------------------------------------------------------
@@ -5393,10 +5393,10 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pinsert_c(plist, name, name_len, size, value)
+              INTEGER FUNCTION h5pinsert_integer_c(plist, name, name_len, size, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_INTEGER_C'::h5pinsert_integer_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: plist
@@ -5404,11 +5404,11 @@
               INTEGER, INTENT(IN)         :: name_len
               INTEGER(SIZE_T), INTENT(IN) :: size 
               INTEGER, INTENT(IN) :: value
-              END FUNCTION h5pinsert_c
+              END FUNCTION h5pinsert_integer_c
             END INTERFACE
 
             name_len = LEN(name)
-            hdferr = h5pinsert_c(plist, name , name_len, size, value)
+            hdferr = h5pinsert_integer_c(plist, name , name_len, size, value)
           END SUBROUTINE h5pinsert_integer
 
 !----------------------------------------------------------------------
@@ -5453,10 +5453,10 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pinsert_c(plist, name, name_len, size, value)
+              INTEGER FUNCTION h5pinsert_real_c(plist, name, name_len, size, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_REAL_C'::h5pinsert_real_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: plist
@@ -5464,11 +5464,11 @@
               INTEGER, INTENT(IN)         :: name_len
               INTEGER(SIZE_T), INTENT(IN) :: size 
               REAL, INTENT(IN) :: value
-              END FUNCTION h5pinsert_c
+              END FUNCTION h5pinsert_real_c
             END INTERFACE
 
             name_len = LEN(name)
-            hdferr = h5pinsert_c(plist, name , name_len, size, value)
+            hdferr = h5pinsert_real_c(plist, name , name_len, size, value)
           END SUBROUTINE h5pinsert_real
 
 !----------------------------------------------------------------------
@@ -5513,10 +5513,10 @@
             INTEGER :: name_len
 
             INTERFACE
-              INTEGER FUNCTION h5pinsert_c(plist, name, name_len, size, value)
+              INTEGER FUNCTION h5pinsert_double_c(plist, name, name_len, size, value)
               USE H5GLOBAL
               !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_C'::h5pinsert_c
+              !MS$ATTRIBUTES C,reference,alias:'_H5PINSERT_DOUBLE_C'::h5pinsert_double_c
               !DEC$ ENDIF
               !DEC$ATTRIBUTES reference :: name
               INTEGER(HID_T), INTENT(IN) :: plist
@@ -5524,11 +5524,11 @@
               INTEGER, INTENT(IN)         :: name_len
               INTEGER(SIZE_T), INTENT(IN) :: size 
               DOUBLE PRECISION, INTENT(IN) :: value
-              END FUNCTION h5pinsert_c
+              END FUNCTION h5pinsert_double_c
             END INTERFACE
 
             name_len = LEN(name)
-            hdferr = h5pinsert_c(plist, name , name_len, size, value)
+            hdferr = h5pinsert_double_c(plist, name , name_len, size, value)
           END SUBROUTINE h5pinsert_double
 
 !----------------------------------------------------------------------
diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c
index 808bb90..addeade 100644
--- a/fortran/src/H5Rf.c
+++ b/fortran/src/H5Rf.c
@@ -35,7 +35,7 @@ nh5rcreate_object_c (haddr_t_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen)
      hid_t c_loc_id;
      int ret_value_c;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hobj_ref_t ref_c;
 
      /*
@@ -82,7 +82,7 @@ nh5rcreate_region_c (int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid
      hid_t c_space_id;
      int ret_value_c;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hdset_reg_ref_t ref_c;
 
      /*
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index a4ac7bd..c445a40 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -34,7 +34,7 @@ nh5topen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id)
 {
      int ret_value = -1;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hid_t c_type_id;
      hid_t c_loc_id;
 
@@ -76,7 +76,7 @@ nh5tcommit_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id)
 {
      int ret_value = -1;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hid_t c_type_id;
      hid_t c_loc_id;
      herr_t status;
@@ -993,7 +993,7 @@ nh5tget_member_name_c ( hid_t_f *type_id ,int_f* idx, _fcd member_name, int_f *n
   c_name = H5Tget_member_name(c_type_id, c_index);
   if (c_name == NULL ) return ret_value;
 
-  HD5packFstring(c_name, _fcdtocp(member_name), (int)strlen(c_name));
+  HD5packFstring(c_name, _fcdtocp(member_name), strlen(c_name));
   *namelen = (int_f)strlen(c_name);
   HDfree(c_name);
   ret_value = 0;
@@ -1017,7 +1017,7 @@ nh5tget_member_index_c (hid_t_f *type_id, _fcd name, int_f *namelen, int_f *idx)
 {
      int ret_value = -1;
      char *c_name;
-     int c_namelen;
+     size_t c_namelen;
      hid_t c_type_id;
      int c_index;
 
@@ -1254,7 +1254,7 @@ nh5tinsert_c(hid_t_f *type_id, _fcd name, int_f* namelen, size_t_f *offset, hid_
   hid_t c_type_id;
   hid_t c_field_id;
   char* c_name;
-  int c_namelen;
+  size_t c_namelen;
   size_t c_offset;
   herr_t error;
 
@@ -1396,7 +1396,7 @@ nh5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value)
   int ret_value = -1;
   hid_t c_type_id;
   char* c_name;
-  int c_namelen;
+  size_t c_namelen;
   int_f c_value;
   herr_t error;
 
@@ -1443,7 +1443,7 @@ nh5tenum_nameof_c(hid_t_f *type_id, int_f* value, _fcd name, size_t_f* namelen)
   c_name = (char *)malloc(sizeof(char)*c_namelen);
   c_type_id = (hid_t)*type_id;
   error = H5Tenum_nameof(c_type_id, &c_value, c_name, c_namelen);
-  HD5packFstring(c_name, _fcdtocp(name), (int)strlen(c_name));
+  HD5packFstring(c_name, _fcdtocp(name), strlen(c_name));
   HDfree(c_name);
 
   if(error < 0) return ret_value;
@@ -1471,7 +1471,7 @@ nh5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f* namelen, int_f* value)
   int ret_value = -1;
   hid_t c_type_id;
   char* c_name;
-  int c_namelen;
+  size_t c_namelen;
   herr_t error;
   c_namelen = *namelen;
   c_name = (char *)HD5f2cstring(name, c_namelen);
@@ -1539,7 +1539,7 @@ nh5tset_tag_c(hid_t_f* type_id, _fcd tag, int_f* namelen)
   hid_t c_type_id;
   herr_t status;
   char* c_tag;
-  int c_namelen;
+  size_t c_namelen;
 
   c_namelen = *namelen;
   c_tag = (char *)HD5f2cstring(tag, c_namelen);
@@ -1576,7 +1576,7 @@ nh5tget_tag_c(hid_t_f* type_id, _fcd tag, int_f* taglen)
   c_tag = H5Tget_tag(c_type_id);
   if (c_tag == NULL ) return ret_value;
 
-  HD5packFstring(c_tag, _fcdtocp(tag), (int)strlen(c_tag));
+  HD5packFstring(c_tag, _fcdtocp(tag), strlen(c_tag));
   *taglen = (int_f)HDstrlen(c_tag);
   HDfree(c_tag);
   ret_value = 0;
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h
index 3a070b9..672cda9 100644
--- a/fortran/src/H5f90proto.h
+++ b/fortran/src/H5f90proto.h
@@ -130,14 +130,78 @@ H5_FCDLL int_f nh5sselect_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *sp
 #   define nh5dclose_c                 H5_FC_FUNC_(h5dclose_c, H5DCLOSE_C)
 #   define nh5dopen_c                  H5_FC_FUNC_(h5dopen_c, H5DOPEN_C)
 #   define nh5dwrite_c                 H5_FC_FUNC_(h5dwrite_c, H5DWRITE_C)
+#   define nh5dwrite_integer_s_c                 H5_FC_FUNC_(h5dwrite_integer_s_c, H5DWRITE_INTEGER_S_C)
+#   define nh5dwrite_integer_1_c                 H5_FC_FUNC_(h5dwrite_integer_1_c, H5DWRITE_INTEGER_1_C)
+#   define nh5dwrite_integer_2_c                 H5_FC_FUNC_(h5dwrite_integer_2_c, H5DWRITE_INTEGER_2_C)
+#   define nh5dwrite_integer_3_c                 H5_FC_FUNC_(h5dwrite_integer_3_c, H5DWRITE_INTEGER_3_C)
+#   define nh5dwrite_integer_4_c                 H5_FC_FUNC_(h5dwrite_integer_4_c, H5DWRITE_INTEGER_4_C)
+#   define nh5dwrite_integer_5_c                 H5_FC_FUNC_(h5dwrite_integer_5_c, H5DWRITE_INTEGER_5_C)
+#   define nh5dwrite_integer_6_c                 H5_FC_FUNC_(h5dwrite_integer_6_c, H5DWRITE_INTEGER_6_C)
+#   define nh5dwrite_integer_7_c                 H5_FC_FUNC_(h5dwrite_integer_7_c, H5DWRITE_INTEGER_7_C)
+#   define nh5dwrite_real_s_c                 H5_FC_FUNC_(h5dwrite_real_s_c, H5DWRITE_REAL_S_C)
+#   define nh5dwrite_real_1_c                 H5_FC_FUNC_(h5dwrite_real_1_c, H5DWRITE_REAL_1_C)
+#   define nh5dwrite_real_2_c                 H5_FC_FUNC_(h5dwrite_real_2_c, H5DWRITE_REAL_2_C)
+#   define nh5dwrite_real_3_c                 H5_FC_FUNC_(h5dwrite_real_3_c, H5DWRITE_REAL_3_C)
+#   define nh5dwrite_real_4_c                 H5_FC_FUNC_(h5dwrite_real_4_c, H5DWRITE_REAL_4_C)
+#   define nh5dwrite_real_5_c                 H5_FC_FUNC_(h5dwrite_real_5_c, H5DWRITE_REAL_5_C)
+#   define nh5dwrite_real_6_c                 H5_FC_FUNC_(h5dwrite_real_6_c, H5DWRITE_REAL_6_C)
+#   define nh5dwrite_real_7_c                 H5_FC_FUNC_(h5dwrite_real_7_c, H5DWRITE_REAL_7_C)
+#   define nh5dwrite_double_s_c                 H5_FC_FUNC_(h5dwrite_double_s_c, H5DWRITE_DOUBLE_S_C)
+#   define nh5dwrite_double_1_c                 H5_FC_FUNC_(h5dwrite_double_1_c, H5DWRITE_DOUBLE_1_C)
+#   define nh5dwrite_double_2_c                 H5_FC_FUNC_(h5dwrite_double_2_c, H5DWRITE_DOUBLE_2_C)
+#   define nh5dwrite_double_3_c                 H5_FC_FUNC_(h5dwrite_double_3_c, H5DWRITE_DOUBLE_3_C)
+#   define nh5dwrite_double_4_c                 H5_FC_FUNC_(h5dwrite_double_4_c, H5DWRITE_DOUBLE_4_C)
+#   define nh5dwrite_double_5_c                 H5_FC_FUNC_(h5dwrite_double_5_c, H5DWRITE_DOUBLE_5_C)
+#   define nh5dwrite_double_6_c                 H5_FC_FUNC_(h5dwrite_double_6_c, H5DWRITE_DOUBLE_6_C)
+#   define nh5dwrite_double_7_c                 H5_FC_FUNC_(h5dwrite_double_7_c, H5DWRITE_DOUBLE_7_C)
 #   define nh5dwrite_ref_obj_c         H5_FC_FUNC_(h5dwrite_ref_obj_c, H5DWRITE_REF_OBJ_C)
 #   define nh5dwrite_ref_reg_c         H5_FC_FUNC_(h5dwrite_ref_reg_c, H5DWRITE_REF_REG_C)
 #   define nh5dwritec_c                H5_FC_FUNC_(h5dwritec_c, H5DWRITEC_C)
+#   define nh5dwritec_s_c                H5_FC_FUNC_(h5dwritec_s_c, H5DWRITEC_s_C)
+#   define nh5dwritec_1_c                H5_FC_FUNC_(h5dwritec_1_c, H5DWRITEC_1_C)
+#   define nh5dwritec_2_c                H5_FC_FUNC_(h5dwritec_2_c, H5DWRITEC_2_C)
+#   define nh5dwritec_3_c                H5_FC_FUNC_(h5dwritec_3_c, H5DWRITEC_3_C)
+#   define nh5dwritec_4_c                H5_FC_FUNC_(h5dwritec_4_c, H5DWRITEC_4_C)
+#   define nh5dwritec_5_c                H5_FC_FUNC_(h5dwritec_5_c, H5DWRITEC_5_C)
+#   define nh5dwritec_6_c                H5_FC_FUNC_(h5dwritec_6_c, H5DWRITEC_6_C)
+#   define nh5dwritec_7_c                H5_FC_FUNC_(h5dwritec_7_c, H5DWRITEC_7_C)
 #   define nh5dread_c                  H5_FC_FUNC_(h5dread_c, H5DREAD_C)
+#   define nh5dread_integer_s_c                 H5_FC_FUNC_(h5dread_integer_s_c, H5DREAD_INTEGER_S_C)
+#   define nh5dread_integer_1_c                 H5_FC_FUNC_(h5dread_integer_1_c, H5DREAD_INTEGER_1_C)
+#   define nh5dread_integer_2_c                 H5_FC_FUNC_(h5dread_integer_2_c, H5DREAD_INTEGER_2_C)
+#   define nh5dread_integer_3_c                 H5_FC_FUNC_(h5dread_integer_3_c, H5DREAD_INTEGER_3_C)
+#   define nh5dread_integer_4_c                 H5_FC_FUNC_(h5dread_integer_4_c, H5DREAD_INTEGER_4_C)
+#   define nh5dread_integer_5_c                 H5_FC_FUNC_(h5dread_integer_5_c, H5DREAD_INTEGER_5_C)
+#   define nh5dread_integer_6_c                 H5_FC_FUNC_(h5dread_integer_6_c, H5DREAD_INTEGER_6_C)
+#   define nh5dread_integer_7_c                 H5_FC_FUNC_(h5dread_integer_7_c, H5DREAD_INTEGER_7_C)
+#   define nh5dread_real_s_c                 H5_FC_FUNC_(h5dread_real_s_c, H5DREAD_REAL_S_C)
+#   define nh5dread_real_1_c                 H5_FC_FUNC_(h5dread_real_1_c, H5DREAD_REAL_1_C)
+#   define nh5dread_real_2_c                 H5_FC_FUNC_(h5dread_real_2_c, H5DREAD_REAL_2_C)
+#   define nh5dread_real_3_c                 H5_FC_FUNC_(h5dread_real_3_c, H5DREAD_REAL_3_C)
+#   define nh5dread_real_4_c                 H5_FC_FUNC_(h5dread_real_4_c, H5DREAD_REAL_4_C)
+#   define nh5dread_real_5_c                 H5_FC_FUNC_(h5dread_real_5_c, H5DREAD_REAL_5_C)
+#   define nh5dread_real_6_c                 H5_FC_FUNC_(h5dread_real_6_c, H5DREAD_REAL_6_C)
+#   define nh5dread_real_7_c                 H5_FC_FUNC_(h5dread_real_7_c, H5DREAD_REAL_7_C)
+#   define nh5dread_double_s_c                 H5_FC_FUNC_(h5dread_double_s_c, H5DREAD_DOUBLE_S_C)
+#   define nh5dread_double_1_c                 H5_FC_FUNC_(h5dread_double_1_c, H5DREAD_DOUBLE_1_C)
+#   define nh5dread_double_2_c                 H5_FC_FUNC_(h5dread_double_2_c, H5DREAD_DOUBLE_2_C)
+#   define nh5dread_double_3_c                 H5_FC_FUNC_(h5dread_double_3_c, H5DREAD_DOUBLE_3_C)
+#   define nh5dread_double_4_c                 H5_FC_FUNC_(h5dread_double_4_c, H5DREAD_DOUBLE_4_C)
+#   define nh5dread_double_5_c                 H5_FC_FUNC_(h5dread_double_5_c, H5DREAD_DOUBLE_5_C)
+#   define nh5dread_double_6_c                 H5_FC_FUNC_(h5dread_double_6_c, H5DREAD_DOUBLE_6_C)
+#   define nh5dread_double_7_c                 H5_FC_FUNC_(h5dread_double_7_c, H5DREAD_DOUBLE_7_C)
 #   define nh5dread_c_b                H5_FC_FUNC_(h5dread_c_b, H5DREAD_C_B)
 #   define nh5dread_ref_reg_c          H5_FC_FUNC_(h5dread_ref_reg_c, H5DREAD_REF_REG_C)
 #   define nh5dread_ref_obj_c          H5_FC_FUNC_(h5dread_ref_obj_c, H5DREAD_REF_OBJ_C)
 #   define nh5dreadc_c                 H5_FC_FUNC_(h5dreadc_c, H5DREADC_C)
+#   define nh5dreadc_s_c                 H5_FC_FUNC_(h5dreadc_s_c, H5DREADC_s_C)
+#   define nh5dreadc_1_c                 H5_FC_FUNC_(h5dreadc_1_c, H5DREADC_1_C)
+#   define nh5dreadc_2_c                 H5_FC_FUNC_(h5dreadc_2_c, H5DREADC_2_C)
+#   define nh5dreadc_3_c                 H5_FC_FUNC_(h5dreadc_3_c, H5DREADC_3_C)
+#   define nh5dreadc_4_c                 H5_FC_FUNC_(h5dreadc_4_c, H5DREADC_4_C)
+#   define nh5dreadc_5_c                 H5_FC_FUNC_(h5dreadc_5_c, H5DREADC_5_C)
+#   define nh5dreadc_6_c                 H5_FC_FUNC_(h5dreadc_6_c, H5DREADC_6_C)
+#   define nh5dreadc_7_c                 H5_FC_FUNC_(h5dreadc_7_c, H5DREADC_7_C)
 #   define nh5dreadc_c_b               H5_FC_FUNC_(h5dreadc_c_b, H5DREADC_C_B)
 #   define nh5dget_space_c             H5_FC_FUNC_(h5dget_space_c, H5DGET_SPACE_C)
 #   define nh5dget_type_c              H5_FC_FUNC_(h5dget_type_c, H5DGET_TYPE_C)
@@ -153,26 +217,107 @@ H5_FCDLL int_f nh5sselect_select_c ( hid_t_f *space1_id , int_f *op, hid_t_f *sp
 #   define nh5dread_vl_string_c        H5_FC_FUNC_(h5dread_vl_string_c, H5DREAD_VL_STRING_C)
 #   define nh5dfillc_c                 H5_FC_FUNC_(h5dfillc_c, H5DFILLC_C)
 #   define nh5dfill_c                  H5_FC_FUNC_(h5dfill_c, H5DFILL_C)
+#   define nh5dfill_integer_c                  H5_FC_FUNC_(h5dfill_integer_c, H5DFILL_INTEGER_C)
+#   define nh5dfill_real_c                  H5_FC_FUNC_(h5dfill_real_c, H5DFILL_REAL_C)
+#   define nh5dfill_double_c                  H5_FC_FUNC_(h5dfill_double_c, H5DFILL_DOUBLE_C)
 #   define nh5dget_space_status_c      H5_FC_FUNC_(h5dget_space_status_c, H5DGET_SPACE_STATUS_C)
 
 
 H5_FCDLL int_f nh5dcreate_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp,  hid_t_f *dset_id);
 H5_FCDLL int_f nh5dopen_c (hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *dset_id);
 H5_FCDLL int_f nh5dclose_c ( hid_t_f *dset_id );
+
 H5_FCDLL int_f nh5dwrite_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+
+H5_FCDLL int_f nh5dwrite_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+
+H5_FCDLL int_f nh5dwrite_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwrite_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+
 H5_FCDLL int_f nh5dwrite_vl_integer_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len);
 H5_FCDLL int_f nh5dwrite_vl_real_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len);
 H5_FCDLL int_f nh5dwrite_vl_string_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len);
 H5_FCDLL int_f nh5dwrite_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f *buf, hsize_t_f *dims);
 H5_FCDLL int_f nh5dwrite_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims);
+
 H5_FCDLL int_f nh5dwritec_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+
+H5_FCDLL int_f nh5dwritec_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dwritec_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+
 H5_FCDLL int_f nh5dread_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+
+H5_FCDLL int_f nh5dread_integer_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_integer_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+
+H5_FCDLL int_f nh5dread_real_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_real_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+
+H5_FCDLL int_f nh5dread_double_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dread_double_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, void *buf, hsize_t_f *dims);
+
 H5_FCDLL int_f nh5dread_vl_integer_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f *buf, hsize_t_f *dims, size_t_f *len);
 H5_FCDLL int_f nh5dread_vl_real_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, real_f *buf, hsize_t_f *dims, size_t_f *len);
 H5_FCDLL int_f nh5dread_vl_string_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims, size_t_f *len);
 H5_FCDLL int_f nh5dread_ref_obj_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, haddr_t_f * buf, hsize_t_f *dims);
 H5_FCDLL int_f nh5dread_ref_reg_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, int_f * buf, hsize_t_f *dims);
+
 H5_FCDLL int_f nh5dreadc_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+
+H5_FCDLL int_f nh5dreadc_s_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_1_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_2_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_3_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_4_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_5_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_6_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+H5_FCDLL int_f nh5dreadc_7_c (hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id, hid_t_f *file_space_id, hid_t_f *xfer_prp, _fcd buf, hsize_t_f *dims);
+
 H5_FCDLL int_f nh5dget_space_c ( hid_t_f *dset_id , hid_t_f *space_id);
 H5_FCDLL int_f nh5dget_type_c ( hid_t_f *dset_id , hid_t_f *type_id);
 H5_FCDLL int_f nh5dget_create_plist_c ( hid_t_f *dset_id , hid_t_f *plist_id);
@@ -181,6 +326,9 @@ H5_FCDLL int_f nh5dvlen_get_max_len_c(hid_t_f *dataset_id, hid_t_f *type_id, hid
 H5_FCDLL int_f nh5dget_storage_size_c(hid_t_f *dataset_id, hsize_t_f *size);
 H5_FCDLL int_f nh5dfillc_c(_fcd fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, _fcd buf, hid_t_f *mem_type_id);
 H5_FCDLL int_f nh5dfill_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
+H5_FCDLL int_f nh5dfill_integer_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
+H5_FCDLL int_f nh5dfill_real_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
+H5_FCDLL int_f nh5dfill_double_c(void * fill_value, hid_t_f *fill_type_id, hid_t_f *space_id, void * buf, hid_t_f *mem_type_id);
 H5_FCDLL int_f nh5dget_space_status_c ( hid_t_f *dset_id, int_f *flag);
 
 /*
@@ -222,9 +370,73 @@ H5_FCDLL int_f nh5gget_comment_c (hid_t_f *loc_id, _fcd name, int_f *namelen, si
 #   define nh5aclose_c       H5_FC_FUNC_(h5aclose_c, H5ACLOSE_C)
 #   define nh5aopen_name_c   H5_FC_FUNC_(h5aopen_name_c, H5AOPEN_NAME_C)
 #   define nh5awrite_c       H5_FC_FUNC_(h5awrite_c, H5AWRITE_C)
-#   define nh5awritec_c      H5_FC_FUNC_(h5awritec_c, H5AWRITEC_C)
+#   define nh5awrite_integer_s_c       H5_FC_FUNC_(h5awrite_integer_s_c, H5AWRITE_INTEGER_S_C)
+#   define nh5awrite_integer_1_c       H5_FC_FUNC_(h5awrite_integer_1_c, H5AWRITE_INTEGER_1_C)
+#   define nh5awrite_integer_2_c       H5_FC_FUNC_(h5awrite_integer_2_c, H5AWRITE_INTEGER_2_C)
+#   define nh5awrite_integer_3_c       H5_FC_FUNC_(h5awrite_integer_3_c, H5AWRITE_INTEGER_3_C)
+#   define nh5awrite_integer_4_c       H5_FC_FUNC_(h5awrite_integer_4_c, H5AWRITE_INTEGER_4_C)
+#   define nh5awrite_integer_5_c       H5_FC_FUNC_(h5awrite_integer_5_c, H5AWRITE_INTEGER_5_C)
+#   define nh5awrite_integer_6_c       H5_FC_FUNC_(h5awrite_integer_6_c, H5AWRITE_INTEGER_6_C)
+#   define nh5awrite_integer_7_c       H5_FC_FUNC_(h5awrite_integer_7_c, H5AWRITE_INTEGER_7_C)
+#   define nh5awrite_real_s_c       H5_FC_FUNC_(h5awrite_real_s_c, H5AWRITE_REAL_S_C)
+#   define nh5awrite_real_1_c       H5_FC_FUNC_(h5awrite_real_1_c, H5AWRITE_REAL_1_C)
+#   define nh5awrite_real_2_c       H5_FC_FUNC_(h5awrite_real_2_c, H5AWRITE_REAL_2_C)
+#   define nh5awrite_real_3_c       H5_FC_FUNC_(h5awrite_real_3_c, H5AWRITE_REAL_3_C)
+#   define nh5awrite_real_4_c       H5_FC_FUNC_(h5awrite_real_4_c, H5AWRITE_REAL_4_C)
+#   define nh5awrite_real_5_c       H5_FC_FUNC_(h5awrite_real_5_c, H5AWRITE_REAL_5_C)
+#   define nh5awrite_real_6_c       H5_FC_FUNC_(h5awrite_real_6_c, H5AWRITE_REAL_6_C)
+#   define nh5awrite_real_7_c       H5_FC_FUNC_(h5awrite_real_7_c, H5AWRITE_REAL_7_C)
+#   define nh5awrite_double_s_c       H5_FC_FUNC_(h5awrite_double_s_c, H5AWRITE_DOUBLE_S_C)
+#   define nh5awrite_double_1_c       H5_FC_FUNC_(h5awrite_double_1_c, H5AWRITE_DOUBLE_1_C)
+#   define nh5awrite_double_2_c       H5_FC_FUNC_(h5awrite_double_2_c, H5AWRITE_DOUBLE_2_C)
+#   define nh5awrite_double_3_c       H5_FC_FUNC_(h5awrite_double_3_c, H5AWRITE_DOUBLE_3_C)
+#   define nh5awrite_double_4_c       H5_FC_FUNC_(h5awrite_double_4_c, H5AWRITE_DOUBLE_4_C)
+#   define nh5awrite_double_5_c       H5_FC_FUNC_(h5awrite_double_5_c, H5AWRITE_DOUBLE_5_C)
+#   define nh5awrite_double_6_c       H5_FC_FUNC_(h5awrite_double_6_c, H5AWRITE_DOUBLE_6_C)
+#   define nh5awrite_double_7_c       H5_FC_FUNC_(h5awrite_double_7_c, H5AWRITE_DOUBLE_7_C)
+#   define nh5awritec_c        H5_FC_FUNC_(h5awritec_c, H5AWRITEC_C)
+#   define nh5awritec_s_c      H5_FC_FUNC_(h5awritec_s_c, H5AWRITEC_S_C)
+#   define nh5awritec_1_c      H5_FC_FUNC_(h5awritec_1_c, H5AWRITEC_1_C)
+#   define nh5awritec_2_c      H5_FC_FUNC_(h5awritec_2_c, H5AWRITEC_2_C)
+#   define nh5awritec_3_c      H5_FC_FUNC_(h5awritec_3_c, H5AWRITEC_3_C)
+#   define nh5awritec_4_c      H5_FC_FUNC_(h5awritec_4_c, H5AWRITEC_4_C)
+#   define nh5awritec_5_c      H5_FC_FUNC_(h5awritec_5_c, H5AWRITEC_5_C)
+#   define nh5awritec_6_c      H5_FC_FUNC_(h5awritec_6_c, H5AWRITEC_6_C)
+#   define nh5awritec_7_c      H5_FC_FUNC_(h5awritec_7_c, H5AWRITEC_7_C)
 #   define nh5aread_c        H5_FC_FUNC_(h5aread_c, H5AREAD_C)
+#   define nh5aread_integer_s_c        H5_FC_FUNC_(h5aread_integer_s_c, H5AREAD_integer_s_C)
+#   define nh5aread_integer_1_c        H5_FC_FUNC_(h5aread_integer_1_c, H5AREAD_integer_1_C)
+#   define nh5aread_integer_2_c        H5_FC_FUNC_(h5aread_integer_2_c, H5AREAD_integer_2_C)
+#   define nh5aread_integer_3_c        H5_FC_FUNC_(h5aread_integer_3_c, H5AREAD_integer_3_C)
+#   define nh5aread_integer_4_c        H5_FC_FUNC_(h5aread_integer_4_c, H5AREAD_integer_4_C)
+#   define nh5aread_integer_5_c        H5_FC_FUNC_(h5aread_integer_5_c, H5AREAD_integer_5_C)
+#   define nh5aread_integer_6_c        H5_FC_FUNC_(h5aread_integer_6_c, H5AREAD_integer_6_C)
+#   define nh5aread_integer_7_c        H5_FC_FUNC_(h5aread_integer_7_c, H5AREAD_integer_7_C)
+#   define nh5aread_real_s_c        H5_FC_FUNC_(h5aread_real_s_c, H5AREAD_real_s_C)
+#   define nh5aread_real_1_c        H5_FC_FUNC_(h5aread_real_1_c, H5AREAD_real_1_C)
+#   define nh5aread_real_2_c        H5_FC_FUNC_(h5aread_real_2_c, H5AREAD_real_2_C)
+#   define nh5aread_real_3_c        H5_FC_FUNC_(h5aread_real_3_c, H5AREAD_real_3_C)
+#   define nh5aread_real_4_c        H5_FC_FUNC_(h5aread_real_4_c, H5AREAD_real_4_C)
+#   define nh5aread_real_5_c        H5_FC_FUNC_(h5aread_real_5_c, H5AREAD_real_5_C)
+#   define nh5aread_real_6_c        H5_FC_FUNC_(h5aread_real_6_c, H5AREAD_real_6_C)
+#   define nh5aread_real_7_c        H5_FC_FUNC_(h5aread_real_7_c, H5AREAD_real_7_C)
+#   define nh5aread_double_s_c        H5_FC_FUNC_(h5aread_double_s_c, H5AREAD_double_s_C)
+#   define nh5aread_double_1_c        H5_FC_FUNC_(h5aread_double_1_c, H5AREAD_double_1_C)
+#   define nh5aread_double_2_c        H5_FC_FUNC_(h5aread_double_2_c, H5AREAD_double_2_C)
+#   define nh5aread_double_3_c        H5_FC_FUNC_(h5aread_double_3_c, H5AREAD_double_3_C)
+#   define nh5aread_double_4_c        H5_FC_FUNC_(h5aread_double_4_c, H5AREAD_double_4_C)
+#   define nh5aread_double_5_c        H5_FC_FUNC_(h5aread_double_5_c, H5AREAD_double_5_C)
+#   define nh5aread_double_6_c        H5_FC_FUNC_(h5aread_double_6_c, H5AREAD_double_6_C)
+#   define nh5aread_double_7_c        H5_FC_FUNC_(h5aread_double_7_c, H5AREAD_double_7_C)
 #   define nh5areadc_c       H5_FC_FUNC_(h5areadc_c, H5AREADC_C)
+#   define nh5areadc_s_c       H5_FC_FUNC_(h5areadc_s_c, H5AREADC_s_C)
+#   define nh5areadc_1_c       H5_FC_FUNC_(h5areadc_1_c, H5AREADC_1_C)
+#   define nh5areadc_2_c       H5_FC_FUNC_(h5areadc_2_c, H5AREADC_2_C)
+#   define nh5areadc_3_c       H5_FC_FUNC_(h5areadc_3_c, H5AREADC_3_C)
+#   define nh5areadc_4_c       H5_FC_FUNC_(h5areadc_4_c, H5AREADC_4_C)
+#   define nh5areadc_5_c       H5_FC_FUNC_(h5areadc_5_c, H5AREADC_5_C)
+#   define nh5areadc_6_c       H5_FC_FUNC_(h5areadc_6_c, H5AREADC_6_C)
+#   define nh5areadc_7_c       H5_FC_FUNC_(h5areadc_7_c, H5AREADC_7_C)
 #   define nh5aget_name_c    H5_FC_FUNC_(h5aget_name_c, H5AGET_NAME_C)
 #   define nh5aopen_idx_c    H5_FC_FUNC_(h5aopen_idx_c, H5AOPEN_IDX_C)
 #   define nh5aget_space_c   H5_FC_FUNC_(h5aget_space_c, H5AGET_SPACE_C)
@@ -236,9 +448,73 @@ H5_FCDLL int_f nh5gget_comment_c (hid_t_f *loc_id, _fcd name, int_f *namelen, si
 H5_FCDLL int_f nh5acreate_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id, hid_t_f *space_id, hid_t_f *crt_prp,  hid_t_f *attr_id);
 H5_FCDLL int_f nh5aopen_name_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_id);
 H5_FCDLL int_f nh5awritec_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5awritec_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
 H5_FCDLL int_f nh5awrite_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5awrite_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
 H5_FCDLL int_f nh5areadc_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
+H5_FCDLL int_f nh5areadc_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, _fcd buf, void *dims);
 H5_FCDLL int_f nh5aread_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_integer_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_real_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_s_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_1_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_2_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_3_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_4_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_5_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_6_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
+H5_FCDLL int_f nh5aread_double_7_c (hid_t_f *attr_id, hid_t_f *mem_type_id, void *buf, void *dims);
 H5_FCDLL int_f nh5aclose_c ( hid_t_f *attr_id );
 H5_FCDLL int_f nh5adelete_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen);
 H5_FCDLL int_f nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id);
@@ -378,10 +654,16 @@ H5_FCDLL int_f nh5tget_member_class_c ( hid_t_f *type_id ,  int_f *member_no, in
 #   define nh5pget_preserve_c  H5_FC_FUNC_(h5pget_preserve_c, H5PGET_PRESERVE_C)
 #   define nh5pset_chunk_c    H5_FC_FUNC_(h5pset_chunk_c, H5PSET_CHUNK_C)
 #   define nh5pget_chunk_c    H5_FC_FUNC_(h5pget_chunk_c, H5PGET_CHUNK_C)
-#   define nh5pset_fill_valuec_c H5_FC_FUNC_(h5pset_fill_valuec_c, H5PSET_FILL_VALUEC_C)
-#   define nh5pset_fill_value_c H5_FC_FUNC_(h5pset_fill_value_c, H5PSET_FILL_VALUE_C)
-#   define nh5pget_fill_valuec_c H5_FC_FUNC_(h5pget_fill_valuec_c, H5PGET_FILL_VALUEC_C)
-#   define nh5pget_fill_value_c H5_FC_FUNC_(h5pget_fill_value_c, H5PGET_FILL_VALUE_C)
+#   define nh5pset_fill_valuec_c        H5_FC_FUNC_(h5pset_fill_valuec_c, H5PSET_FILL_VALUEC_C)
+#   define nh5pset_fill_value_c         H5_FC_FUNC_(h5pset_fill_value_c, H5PSET_FILL_VALUE_C)
+#   define nh5pset_fill_value_integer_c H5_FC_FUNC_(h5pset_fill_value_integer_c, H5PSET_FILL_VALUE_INTEGER_C)
+#   define nh5pset_fill_value_real_c    H5_FC_FUNC_(h5pset_fill_value_real_c, H5PSET_FILL_VALUE_REAL_C)
+#   define nh5pset_fill_value_double_c  H5_FC_FUNC_(h5pset_fill_value_double_c, H5PSET_FILL_VALUE_DOUBLE_C)
+#   define nh5pget_fill_valuec_c        H5_FC_FUNC_(h5pget_fill_valuec_c, H5PGET_FILL_VALUEC_C)
+#   define nh5pget_fill_value_c         H5_FC_FUNC_(h5pget_fill_value_c, H5PGET_FILL_VALUE_C)
+#   define nh5pget_fill_value_integer_c H5_FC_FUNC_(h5pget_fill_value_integer_c, H5PGET_FILL_VALUE_INTEGER_C)
+#   define nh5pget_fill_value_real_c    H5_FC_FUNC_(h5pget_fill_value_real_c, H5PGET_FILL_VALUE_REAL_C)
+#   define nh5pget_fill_value_double_c  H5_FC_FUNC_(h5pget_fill_value_double_c, H5PGET_FILL_VALUE_DOUBLE_C)
 #   define nh5pget_version_c    H5_FC_FUNC_(h5pget_version_c, H5PGET_VERSION_C)
 #   define nh5pget_userblock_c    H5_FC_FUNC_(h5pget_userblock_c, H5PGET_USERBLOCK_C)
 #   define nh5pset_userblock_c    H5_FC_FUNC_(h5pset_userblock_c, H5PSET_USERBLOCK_C)
@@ -446,12 +728,24 @@ H5_FCDLL int_f nh5tget_member_class_c ( hid_t_f *type_id ,  int_f *member_no, in
 #   define nh5pget_small_data_block_size_c    H5_FC_FUNC_(h5pget_small_data_block_size_c, H5PGET_SMALL_DATA_BLOCK_SIZE_C)
 #   define nh5pcreate_class_c             H5_FC_FUNC_(h5pcreate_class_c, H5PCREATE_CLASS_C)
 #   define nh5pregister_c                 H5_FC_FUNC_(h5pregister_c, H5PREGISTER_C)
+#   define nh5pregister_integer_c                 H5_FC_FUNC_(h5pregister_integer_c, H5PREGISTER_INTEGER_C)
+#   define nh5pregister_real_c                    H5_FC_FUNC_(h5pregister_real_c, H5PREGISTER_REAL_C)
+#   define nh5pregister_double_c                  H5_FC_FUNC_(h5pregister_double_c, H5PREGISTER_DOUBLE_C)
 #   define nh5pregisterc_c                H5_FC_FUNC_(h5pregisterc_c, H5PREGISTERC_C)
 #   define nh5pinsert_c                   H5_FC_FUNC_(h5pinsert_c, H5PINSERT_C)
+#   define nh5pinsert_integer_c                   H5_FC_FUNC_(h5pinsert_integer_c, H5PINSERT_INTEGER_C)
+#   define nh5pinsert_real_c                   H5_FC_FUNC_(h5pinsert_real_c, H5PINSERT_REAL_C)
+#   define nh5pinsert_double_c                   H5_FC_FUNC_(h5pinsert_double_c, H5PINSERT_DOUBLE_C)
 #   define nh5pinsertc_c                  H5_FC_FUNC_(h5pinsertc_c, H5PINSERTC_C)
 #   define nh5pset_c                      H5_FC_FUNC_(h5pset_c, H5PSET_C)
+#   define nh5pset_integer_c                      H5_FC_FUNC_(h5pset_integer_c, H5PSET_INTEGER_C)
+#   define nh5pset_real_c                         H5_FC_FUNC_(h5pset_real_c, H5PSET_REAL_C)
+#   define nh5pset_double_c                       H5_FC_FUNC_(h5pset_double_c, H5PSET_DOUBLE_C)
 #   define nh5psetc_c                     H5_FC_FUNC_(h5psetc_c, H5PSETC_C)
 #   define nh5pget_c                      H5_FC_FUNC_(h5pget_c, H5PGET_C)
+#   define nh5pget_integer_c                      H5_FC_FUNC_(h5pget_integer_c, H5PGET_INTEGER_C)
+#   define nh5pget_real_c                         H5_FC_FUNC_(h5pget_real_c, H5PGET_REAL_C)
+#   define nh5pget_double_c                       H5_FC_FUNC_(h5pget_double_c, H5PGET_DOUBLE_C)
 #   define nh5pgetc_c                     H5_FC_FUNC_(h5pgetc_c, H5PGETC_C)
 #   define nh5pexist_c                    H5_FC_FUNC_(h5pexist_c, H5PEXIST_C)
 #   define nh5pget_size_c                 H5_FC_FUNC_(h5pget_size_c, H5PGET_SIZE_C)
@@ -485,8 +779,14 @@ H5_FCDLL int_f nh5pset_chunk_c ( hid_t_f *prp_id, int_f *rank, hsize_t_f *dims )
 H5_FCDLL int_f nh5pget_chunk_c ( hid_t_f *prp_id, int_f *max_rank, hsize_t_f *dims );
 H5_FCDLL int_f nh5pset_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
 H5_FCDLL int_f nh5pset_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pset_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pset_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pset_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
 H5_FCDLL int_f nh5pget_fill_valuec_c (hid_t_f *prp_id, hid_t_f *type_id, _fcd fillvalue);
 H5_FCDLL int_f nh5pget_fill_value_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pget_fill_value_integer_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pget_fill_value_real_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
+H5_FCDLL int_f nh5pget_fill_value_double_c (hid_t_f *prp_id, hid_t_f *type_id, void *fillvalue);
 H5_FCDLL int_f nh5pset_preserve_c ( hid_t_f *prp_id , int_f *flag);
 H5_FCDLL int_f nh5pget_preserve_c ( hid_t_f *prp_id , int_f *flag);
 H5_FCDLL int_f nh5pget_version_c (hid_t_f *prp_id, int_f * boot,int_f * freelist, int_f * stab, int_f *shhdr);
@@ -553,12 +853,24 @@ H5_FCDLL int_f nh5pset_hyper_vector_size_c(hid_t_f *plist, size_t_f *size);
 H5_FCDLL int_f nh5pget_hyper_vector_size_c(hid_t_f *plist, size_t_f *size);
 H5_FCDLL int_f nh5pcreate_class_c(hid_t_f *parent, _fcd name, int_f *name_len, hid_t_f *class);
 H5_FCDLL int_f nh5pregister_c(hid_t_f *class, _fcd name, int_f * name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pregister_integer_c(hid_t_f *class, _fcd name, int_f * name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pregister_real_c(hid_t_f *class, _fcd name, int_f * name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pregister_double_c(hid_t_f *class, _fcd name, int_f * name_len, size_t_f *size, void *value);
 H5_FCDLL int_f nh5pregisterc_c(hid_t_f *class, _fcd name, int_f * name_len, size_t_f *size, _fcd value, int_f *value_len);
 H5_FCDLL int_f nh5pinsert_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pinsert_integer_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pinsert_real_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
+H5_FCDLL int_f nh5pinsert_double_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, void *value);
 H5_FCDLL int_f nh5pinsertc_c(hid_t_f  *plist, _fcd name, int_f *name_len, size_t_f *size, _fcd value, int_f *value_len);
 H5_FCDLL int_f nh5pset_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
+H5_FCDLL int_f nh5pset_integer_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
+H5_FCDLL int_f nh5pset_real_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
+H5_FCDLL int_f nh5pset_double_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
 H5_FCDLL int_f nh5psetc_c(hid_t_f *prp_id, _fcd name, int_f *name_len, _fcd value, int_f *value_len);
 H5_FCDLL int_f nh5pget_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
+H5_FCDLL int_f nh5pget_double_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
+H5_FCDLL int_f nh5pget_integer_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
+H5_FCDLL int_f nh5pget_real_c(hid_t_f *prp_id, _fcd name, int_f *name_len, void *value);
 H5_FCDLL int_f nh5pgetc_c(hid_t_f *prp_id, _fcd name, int_f *name_len, _fcd value, int_f *value_len);
 H5_FCDLL int_f nh5pexist_c(hid_t_f *prp_id, _fcd name, int_f *name_len);
 H5_FCDLL int_f nh5pget_size_c(hid_t_f *prp_id, _fcd name, int_f *name_len, size_t_f *size);