[svn-r18197] Description:

    Trim trailing whitespace from source code files with this command:

find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//'

Tested on:
    None - eyeballed only

6 files changed, 1106 insertions, 1106 deletions

diff --git a/hl/fortran/src/H5IMfc.c b/hl/fortran/src/H5IMfc.c
index 7a54437..818096e 100755
--- a/hl/fortran/src/H5IMfc.c
+++ b/hl/fortran/src/H5IMfc.c
@@ -59,7 +59,7 @@ nh5immake_image_8bit_c (hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     /*
@@ -68,15 +68,15 @@ nh5immake_image_8bit_c (hid_t_f *loc_id,
     c_loc_id = (hid_t)*loc_id;
     ret = H5IMmake_image_8bitf(c_loc_id,c_name,w,h,buf);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
-    
+
 done:
     if(c_name!=NULL)
         free(c_name);
-  
+
     return ret_value;
 
 
@@ -118,7 +118,7 @@ nh5imread_image_c (hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     /*
@@ -128,7 +128,7 @@ nh5imread_image_c (hid_t_f *loc_id,
 
     ret = H5IMread_imagef(c_loc_id,c_name,buf);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -184,12 +184,12 @@ nh5immake_image_24bit_c (hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_ilen = *ilen;
     c_il = (char *)HD5f2cstring(il, c_ilen);
-    if (c_il == NULL) 
+    if (c_il == NULL)
         goto done;
 
     /*
@@ -199,7 +199,7 @@ nh5immake_image_24bit_c (hid_t_f *loc_id,
 
     ret = H5IMmake_image_24bitf(c_loc_id,c_name,w,h,c_il,buf);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -259,7 +259,7 @@ nh5imget_image_info_c(hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     /*
@@ -275,7 +275,7 @@ nh5imget_image_info_c(hid_t_f *loc_id,
 
     ret = H5IMget_image_info(c_loc_id,c_name,&c_width,&c_height,&c_planes,c_buf,&c_npals);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     *width  = (hsize_t_f) c_width;
@@ -287,13 +287,13 @@ nh5imget_image_info_c(hid_t_f *loc_id,
     * convert C name to FORTRAN and place it in the given buffer
     */
     HD5packFstring(c_buf, _fcdtocp(interlace), (size_t)*ilen);
-   
+
     ret_value = 0;
 
 done:
     if(c_name!=NULL)
         free(c_name);
-    if(c_buf!=NULL) 
+    if(c_buf!=NULL)
         free(c_buf);
 
     return ret_value;
@@ -389,13 +389,13 @@ nh5immake_palette_c (hid_t_f *loc_id,
     if(NULL == (c_name = (char *)HD5f2cstring(name, (int)*namelen)))
         HGOTO_DONE(FAIL)
 
-    for(i = 0; i < rank ; i++) 
+    for(i = 0; i < rank ; i++)
         c_dims[i] =  dims[i];
 
     /*
     * call H5IMmake_palette function.
     */
-    if(H5IMmake_palettef((hid_t)*loc_id, c_name, c_dims, buf) < 0) 
+    if(H5IMmake_palettef((hid_t)*loc_id, c_name, c_dims, buf) < 0)
         HGOTO_DONE(FAIL)
 
 done:
@@ -445,12 +445,12 @@ nh5imlink_palette_c (hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_namelenpal = *ilen;
     c_namepal = (char *)HD5f2cstring(pal_name, c_namelenpal);
-    if (c_namepal == NULL) 
+    if (c_namepal == NULL)
         goto done;
 
     /*
@@ -460,7 +460,7 @@ nh5imlink_palette_c (hid_t_f *loc_id,
 
     ret = H5IMlink_palette(c_loc_id,c_name,c_namepal);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -515,12 +515,12 @@ nh5imunlink_palette_c (hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_namelenpal = *ilen;
     c_namepal = (char *)HD5f2cstring(pal_name, c_namelenpal);
-    if (c_namepal == NULL) 
+    if (c_namepal == NULL)
         goto done;
 
     /*
@@ -530,7 +530,7 @@ nh5imunlink_palette_c (hid_t_f *loc_id,
 
     ret = H5IMunlink_palette(c_loc_id,c_name,c_namepal);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -583,7 +583,7 @@ nh5imget_npalettes_c(hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     /*
@@ -595,7 +595,7 @@ nh5imget_npalettes_c(hid_t_f *loc_id,
 
     *npals  = (hsize_t_f) c_npals;
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -649,7 +649,7 @@ nh5imget_palette_info_c(hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     /*
@@ -658,11 +658,11 @@ nh5imget_palette_info_c(hid_t_f *loc_id,
     c_loc_id = (hid_t)*loc_id;
 
     ret = H5IMget_palette_info(c_loc_id,c_name,*pal_number,c_dims);
-    
-    if (ret < 0) 
+
+    if (ret < 0)
         goto done;
 
-    for (i = 0; i < 2 ; i++) 
+    for (i = 0; i < 2 ; i++)
     {
         dims[i] = (hsize_t_f) c_dims[i];
     }
@@ -716,7 +716,7 @@ nh5imget_palette_c(hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
          goto done;
 
     /*
@@ -726,7 +726,7 @@ nh5imget_palette_c(hid_t_f *loc_id,
 
     ret = H5IMget_palettef(c_loc_id,c_name,*pal_number,buf);
 
-    if (ret < 0) 
+    if (ret < 0)
          goto done;
 
     ret_value = 0;
diff --git a/hl/fortran/src/H5IMff.f90 b/hl/fortran/src/H5IMff.f90
index 6e13c30..d78dc06 100755
--- a/hl/fortran/src/H5IMff.f90
+++ b/hl/fortran/src/H5IMff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 !   Copyright by The HDF Group.                                               *
 !   Copyright by the Board of Trustees of the University of Illinois.         *
 !   All rights reserved.                                                      *
@@ -11,15 +11,15 @@
 !   is linked from the top-level documents page.  It can also be found at     *
 !   http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
 !   access to either file, you may request a copy from help@hdfgroup.org.     *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 !
 !
 ! This file contains FORTRAN90 interfaces for H5IM functions
 !
-      
+
 module h5im
 use h5fortran_types
-use hdf5 
+use hdf5
 contains
 
 
@@ -40,12 +40,12 @@ contains
 !
 !-------------------------------------------------------------------------
 
-subroutine h5immake_image_8bit_f(loc_id,& 
+subroutine h5immake_image_8bit_f(loc_id,&
                                  dset_name,&
-                                 width,& 
+                                 width,&
                                  height,&
                                  buf,&
-                                 errcode ) 
+                                 errcode )
 
  implicit none
 
@@ -56,14 +56,14 @@ subroutine h5immake_image_8bit_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), intent(in) :: width              ! width of image  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), intent(in) :: width              ! width of image
  integer(hsize_t), intent(in) :: height             ! height of image
- integer, intent(in), dimension(*) :: buf           ! buffer 
+ integer, intent(in), dimension(*) :: buf           ! buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
- 
+
  interface
   integer function h5immake_image_8bit_c(loc_id,namelen,dset_name,width,height,buf)
   use h5global
@@ -73,10 +73,10 @@ subroutine h5immake_image_8bit_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), intent(in) :: width                   ! width of image  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), intent(in) :: width                   ! width of image
   integer(hsize_t), intent(in) :: height                  ! height of image
-  integer , intent(in), dimension(*) :: buf               ! buffer  
+  integer , intent(in), dimension(*) :: buf               ! buffer
   end function h5immake_image_8bit_c
  end interface
 
@@ -105,10 +105,10 @@ end subroutine h5immake_image_8bit_f
 !-------------------------------------------------------------------------
 
 
-subroutine h5imread_image_f(loc_id,& 
+subroutine h5imread_image_f(loc_id,&
                             dset_name,&
                             buf,&
-                            errcode ) 
+                            errcode )
 
  implicit none
 
@@ -118,12 +118,12 @@ subroutine h5imread_image_f(loc_id,&
 !DEC$attributes dllexport :: h5imread_image_f
 !DEC$endif
 !
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer, intent(inout), dimension(*) :: buf        ! buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer, intent(inout), dimension(*) :: buf        ! buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
- 
+
  interface
   integer function h5imread_image_c(loc_id,namelen,dset_name,buf)
   use h5global
@@ -133,8 +133,8 @@ subroutine h5imread_image_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer, intent(inout), dimension(*) :: buf             ! buffer  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer, intent(inout), dimension(*) :: buf             ! buffer
   end function h5imread_image_c
  end interface
 
@@ -161,13 +161,13 @@ end subroutine h5imread_image_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5immake_image_24bit_f(loc_id,& 
+subroutine h5immake_image_24bit_f(loc_id,&
                                  dset_name,&
-                                 width,& 
+                                 width,&
                                  height,&
                                  il,&
                                  buf,&
-                                 errcode ) 
+                                 errcode )
 
  implicit none
 
@@ -178,16 +178,16 @@ subroutine h5immake_image_24bit_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), intent(in) :: width              ! width of image  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), intent(in) :: width              ! width of image
  integer(hsize_t), intent(in) :: height             ! height of image
  character(len=*), intent(in) :: il                 ! interlace
- integer, intent(in), dimension(*) :: buf           ! buffer 
+ integer, intent(in), dimension(*) :: buf           ! buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer :: ilen                                    ! name length
- 
+
  interface
   integer function h5immake_image_24bit_c(loc_id,namelen,dset_name,ilen,il,width,height,buf)
   use h5global
@@ -197,14 +197,14 @@ subroutine h5immake_image_24bit_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: il
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), intent(in) :: width                   ! width of image  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), intent(in) :: width                   ! width of image
   integer(hsize_t), intent(in) :: height                  ! height of image
   character(len=*), intent(in) :: il                      ! interlace
-  integer, intent(in), dimension(*) :: buf                ! buffer 
+  integer, intent(in), dimension(*) :: buf                ! buffer
   integer :: namelen                                      ! lenght of name buffer
   integer :: ilen                                         ! name length
- 
+
   end function h5immake_image_24bit_c
  end interface
 
@@ -218,7 +218,7 @@ end subroutine h5immake_image_24bit_f
 !-------------------------------------------------------------------------
 ! Function: h5imget_image_info_f
 !
-! Purpose: Gets information about an image dataset (dimensions, interlace mode 
+! Purpose: Gets information about an image dataset (dimensions, interlace mode
 !          and number of associated palettes).
 !
 ! Return: Success: 0, Failure: -1
@@ -233,14 +233,14 @@ end subroutine h5immake_image_24bit_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5imget_image_info_f(loc_id,& 
+subroutine h5imget_image_info_f(loc_id,&
                                 dset_name,&
                                 width,&
                                 height,&
                                 planes,&
                                 interlace,&
                                 npals,&
-                                errcode ) 
+                                errcode )
 
  implicit none
 
@@ -251,13 +251,13 @@ subroutine h5imget_image_info_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), intent(inout) :: width           ! width of image  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), intent(inout) :: width           ! width of image
  integer(hsize_t), intent(inout) :: height          ! height of image
  integer(hsize_t), intent(inout) :: planes          ! color planes
  integer(hsize_t), intent(inout) :: npals           ! palettes
- character(len=*), intent(inout) :: interlace       ! interlace 
+ character(len=*), intent(inout) :: interlace       ! interlace
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer :: ilen                                    ! name length
@@ -270,13 +270,13 @@ subroutine h5imget_image_info_f(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: interlace
-  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
-  character(len=*), intent(in) :: dset_name          ! name of the dataset 
-  integer(hsize_t), intent(inout) :: width           ! width of image  
+  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+  character(len=*), intent(in) :: dset_name          ! name of the dataset
+  integer(hsize_t), intent(inout) :: width           ! width of image
   integer(hsize_t), intent(inout) :: height          ! height of image
   integer(hsize_t), intent(inout) :: planes          ! color planes
   integer(hsize_t), intent(inout) :: npals           ! palettes
-  character(len=*), intent(inout) :: interlace       ! interlace 
+  character(len=*), intent(inout) :: interlace       ! interlace
   integer :: namelen                                 ! name length
   integer :: ilen                                    ! name length
   end function h5imget_image_info_c
@@ -306,8 +306,8 @@ end subroutine h5imget_image_info_f
 !
 !-------------------------------------------------------------------------
 
-integer function h5imis_image_f(loc_id,& 
-                                dset_name) 
+integer function h5imis_image_f(loc_id,&
+                                dset_name)
 
  implicit none
 
@@ -318,8 +318,8 @@ integer function h5imis_image_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
 
@@ -332,7 +332,7 @@ integer function h5imis_image_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   end function h5imis_image_c
  end interface
 
@@ -360,11 +360,11 @@ end function h5imis_image_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5immake_palette_f(loc_id,& 
+subroutine h5immake_palette_f(loc_id,&
                               dset_name,&
-                              pal_dims,& 
+                              pal_dims,&
                               buf,&
-                              errcode ) 
+                              errcode )
 
  implicit none
 
@@ -375,13 +375,13 @@ subroutine h5immake_palette_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                 ! file or group identifier 
- character(len=*), intent(in) :: dset_name              ! name of the dataset 
- integer(hsize_t), intent(in), dimension(*) :: pal_dims ! dimensions  
- integer, intent(in), dimension(*) :: buf               ! buffer 
+ integer(hid_t),   intent(in) :: loc_id                 ! file or group identifier
+ character(len=*), intent(in) :: dset_name              ! name of the dataset
+ integer(hsize_t), intent(in), dimension(*) :: pal_dims ! dimensions
+ integer, intent(in), dimension(*) :: buf               ! buffer
  integer :: errcode                                     ! error code
  integer :: namelen                                     ! name length
- 
+
  interface
   integer function h5immake_palette_c(loc_id,namelen,dset_name,pal_dims,buf)
   use h5global
@@ -391,9 +391,9 @@ subroutine h5immake_palette_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   integer(hsize_t), intent(in), dimension(*) :: pal_dims  ! dimensions
-  integer, intent(in), dimension(*) :: buf                ! buffer  
+  integer, intent(in), dimension(*) :: buf                ! buffer
   end function h5immake_palette_c
  end interface
 
@@ -421,10 +421,10 @@ end subroutine h5immake_palette_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5imlink_palette_f(loc_id,& 
+subroutine h5imlink_palette_f(loc_id,&
                               dset_name,&
                               pal_name,&
-                              errcode ) 
+                              errcode )
 
  implicit none
 
@@ -434,9 +434,9 @@ subroutine h5imlink_palette_f(loc_id,&
 !DEC$attributes dllexport :: h5imlink_palette_f
 !DEC$endif
 !
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- character(len=*), intent(in) :: pal_name           ! palette name 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ character(len=*), intent(in) :: pal_name           ! palette name
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer :: ilen                                    ! name length
@@ -449,9 +449,9 @@ subroutine h5imlink_palette_f(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: pal_name
-  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
-  character(len=*), intent(in) :: dset_name          ! name of the dataset 
-  character(len=*), intent(in) :: pal_name           ! palette name 
+  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+  character(len=*), intent(in) :: dset_name          ! name of the dataset
+  character(len=*), intent(in) :: pal_name           ! palette name
   integer :: namelen                                 ! name length
   integer :: ilen                                    ! name length
   end function h5imlink_palette_c
@@ -481,10 +481,10 @@ end subroutine h5imlink_palette_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5imunlink_palette_f(loc_id,& 
+subroutine h5imunlink_palette_f(loc_id,&
                               dset_name,&
                               pal_name,&
-                              errcode ) 
+                              errcode )
 
  implicit none
 
@@ -496,9 +496,9 @@ subroutine h5imunlink_palette_f(loc_id,&
 !
 
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- character(len=*), intent(in) :: pal_name           ! palette name 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ character(len=*), intent(in) :: pal_name           ! palette name
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer :: ilen                                    ! name length
@@ -511,9 +511,9 @@ subroutine h5imunlink_palette_f(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: pal_name
-  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
-  character(len=*), intent(in) :: dset_name          ! name of the dataset 
-  character(len=*), intent(in) :: pal_name           ! palette name 
+  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+  character(len=*), intent(in) :: dset_name          ! name of the dataset
+  character(len=*), intent(in) :: pal_name           ! palette name
   integer :: namelen                                 ! name length
   integer :: ilen                                    ! name length
   end function h5imunlink_palette_c
@@ -544,10 +544,10 @@ end subroutine h5imunlink_palette_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5imget_npalettes_f(loc_id,& 
+subroutine h5imget_npalettes_f(loc_id,&
                                dset_name,&
                                npals,&
-                               errcode ) 
+                               errcode )
 
  implicit none
 
@@ -558,8 +558,8 @@ subroutine h5imget_npalettes_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  integer(hsize_t), intent(inout) :: npals           ! palettes
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
@@ -571,8 +571,8 @@ subroutine h5imget_npalettes_f(loc_id,&
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMGET_NPALETTES_C'::h5imget_npalettes_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
-  character(len=*), intent(in) :: dset_name          ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+  character(len=*), intent(in) :: dset_name          ! name of the dataset
   integer(hsize_t), intent(inout) :: npals           ! palettes
   integer :: namelen                                 ! name length
   end function h5imget_npalettes_c
@@ -601,15 +601,15 @@ end subroutine h5imget_npalettes_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5imget_palette_info_f(loc_id,& 
+subroutine h5imget_palette_info_f(loc_id,&
                                   dset_name,&
                                   pal_number,&
                                   dims,&
-                                  errcode ) 
+                                  errcode )
 
  implicit none
 
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -617,10 +617,10 @@ subroutine h5imget_palette_info_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                ! file or group identifier 
- character(len=*), intent(in) :: dset_name             ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                ! file or group identifier
+ character(len=*), intent(in) :: dset_name             ! name of the dataset
  integer, intent(in) :: pal_number                     ! palette number
- integer(hsize_t), dimension(*), intent(inout) :: dims ! dimensions 
+ integer(hsize_t), dimension(*), intent(inout) :: dims ! dimensions
  integer :: errcode                                    ! error code
  integer :: namelen                                    ! name length
 
@@ -631,10 +631,10 @@ subroutine h5imget_palette_info_f(loc_id,&
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5IMGET_PALETTE_INFO_C'::h5imget_palette_info_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                ! file or group identifier 
-  character(len=*), intent(in) :: dset_name             ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                ! file or group identifier
+  character(len=*), intent(in) :: dset_name             ! name of the dataset
   integer, intent(in) :: pal_number                     ! palette number
-  integer(hsize_t), dimension(*), intent(inout) :: dims ! dimensions 
+  integer(hsize_t), dimension(*), intent(inout) :: dims ! dimensions
   integer :: namelen                                    ! name length
   end function h5imget_palette_info_c
  end interface
@@ -664,11 +664,11 @@ end subroutine h5imget_palette_info_f
 !-------------------------------------------------------------------------
 
 
-subroutine h5imget_palette_f(loc_id,& 
+subroutine h5imget_palette_f(loc_id,&
                              dset_name,&
                              pal_number,&
                              buf,&
-                             errcode ) 
+                             errcode )
 
  implicit none
 
@@ -679,13 +679,13 @@ subroutine h5imget_palette_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  integer, intent(in) :: pal_number                  ! palette number
- integer, intent(inout), dimension(*) :: buf        ! buffer 
+ integer, intent(inout), dimension(*) :: buf        ! buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
- 
+
  interface
   integer function h5imget_palette_c(loc_id,namelen,dset_name,pal_number,buf)
   use h5global
@@ -695,9 +695,9 @@ subroutine h5imget_palette_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   integer, intent(in) :: pal_number                       ! palette number
-  integer, intent(inout), dimension(*) :: buf             ! buffer  
+  integer, intent(inout), dimension(*) :: buf             ! buffer
   end function h5imget_palette_c
  end interface
 
@@ -724,8 +724,8 @@ end subroutine h5imget_palette_f
 !
 !-------------------------------------------------------------------------
 
-integer function h5imis_palette_f(loc_id,& 
-                                  dset_name) 
+integer function h5imis_palette_f(loc_id,&
+                                  dset_name)
 
  implicit none
 
@@ -736,8 +736,8 @@ integer function h5imis_palette_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
 
@@ -750,7 +750,7 @@ integer function h5imis_palette_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   end function h5imis_palette_c
  end interface
 
@@ -764,7 +764,7 @@ end function h5imis_palette_f
 !  end
 !
 end module H5IM
-            
+
 
 
 
diff --git a/hl/fortran/src/H5LTfc.c b/hl/fortran/src/H5LTfc.c
index 039385a..0985aac 100755
--- a/hl/fortran/src/H5LTfc.c
+++ b/hl/fortran/src/H5LTfc.c
@@ -66,13 +66,13 @@ nh5ltmake_dataset_c (hid_t_f *loc_id,
         goto done;
 
     c_dims =  malloc(sizeof(hsize_t) * (*rank ));
-    if (c_dims == NULL) 
+    if (c_dims == NULL)
         goto done;
 
     /*
     * transpose dimension arrays because of C-FORTRAN storage order
     */
-    for (i = 0; i < *rank ; i++) 
+    for (i = 0; i < *rank ; i++)
     {
         c_dims[i] =  dims[*rank - i - 1];
     }
@@ -85,7 +85,7 @@ nh5ltmake_dataset_c (hid_t_f *loc_id,
 
     ret = H5LTmake_dataset(c_loc_id, c_name, *rank, c_dims, c_type_id, buf );
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -732,7 +732,7 @@ nh5ltset_attribute_int_c(hid_t_f *loc_id,
     else
         goto done;
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -788,12 +788,12 @@ nh5ltset_attribute_float_c(hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(dsetname, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
          goto done;
 
     c_attrnamelen = *attrnamelen;
     c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
-    if (c_attrname == NULL) 
+    if (c_attrname == NULL)
          goto done;
 
     /*
@@ -804,7 +804,7 @@ nh5ltset_attribute_float_c(hid_t_f *loc_id,
 
     ret = H5LTset_attribute_float(c_loc_id,c_name,c_attrname,buf,c_size);
 
-    if (ret < 0) 
+    if (ret < 0)
          goto done;
 
     ret_value = 0;
@@ -861,7 +861,7 @@ nh5ltset_attribute_double_c(hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(dsetname, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_attrnamelen = *attrnamelen;
@@ -877,7 +877,7 @@ nh5ltset_attribute_double_c(hid_t_f *loc_id,
 
     ret = H5LTset_attribute_double(c_loc_id,c_name,c_attrname,buf,c_size);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -935,12 +935,12 @@ nh5ltset_attribute_string_c(hid_t_f *loc_id,
     */
     c_namelen = *namelen;
     c_name = (char *)HD5f2cstring(dsetname, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_attrnamelen = *attrnamelen;
     c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
-    if (c_attrname == NULL) 
+    if (c_attrname == NULL)
         goto done;
 
     c_buflen = *buflen;
@@ -956,7 +956,7 @@ nh5ltset_attribute_string_c(hid_t_f *loc_id,
 
     ret = H5LTset_attribute_string(c_loc_id,c_name,c_attrname,c_buf);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -1013,12 +1013,12 @@ nh5ltget_attribute_int_c(hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(dsetname, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_attrnamelen = (int)*attrnamelen;
     c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
-    if (c_attrname == NULL) 
+    if (c_attrname == NULL)
         goto done;
 
     /*
@@ -1035,7 +1035,7 @@ nh5ltget_attribute_int_c(hid_t_f *loc_id,
     else
         goto done;
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -1091,12 +1091,12 @@ nh5ltget_attribute_float_c(hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(dsetname, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_attrnamelen = (int)*attrnamelen;
     c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
-    if (c_attrname == NULL) 
+    if (c_attrname == NULL)
         goto done;
 
     /*
@@ -1106,7 +1106,7 @@ nh5ltget_attribute_float_c(hid_t_f *loc_id,
 
     ret = H5LTget_attribute_float(c_loc_id,c_name,c_attrname,buf);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -1160,12 +1160,12 @@ nh5ltget_attribute_double_c(hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(dsetname, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_attrnamelen = (int)*attrnamelen;
     c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
-    if (c_attrname == NULL) 
+    if (c_attrname == NULL)
         goto done;
 
     /*
@@ -1175,7 +1175,7 @@ nh5ltget_attribute_double_c(hid_t_f *loc_id,
 
     ret = H5LTget_attribute_double(c_loc_id,c_name,c_attrname,buf);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -1230,12 +1230,12 @@ nh5ltget_attribute_string_c(hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(dsetname, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_attrnamelen = (int)*attrnamelen;
     c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
-    if (c_attrname == NULL) 
+    if (c_attrname == NULL)
         goto done;
 
     /*
@@ -1245,7 +1245,7 @@ nh5ltget_attribute_string_c(hid_t_f *loc_id,
 
     ret = H5LTget_attribute_string(c_loc_id,c_name,c_attrname,buf);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     ret_value = 0;
@@ -1299,7 +1299,7 @@ nh5ltget_dataset_ndims_c(hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     /*
@@ -1309,7 +1309,7 @@ nh5ltget_dataset_ndims_c(hid_t_f *loc_id,
 
     ret = H5LTget_dataset_ndims(c_loc_id, c_name, &c_rank);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     *rank = (int_f)c_rank;
@@ -1417,7 +1417,7 @@ nh5ltget_dataset_info_c(hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     /*
@@ -1437,10 +1437,10 @@ nh5ltget_dataset_info_c(hid_t_f *loc_id,
     */
 
     ret = H5LTget_dataset_ndims(c_loc_id, c_name, &c_rank);
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
-    for (i = 0; i < c_rank ; i++) 
+    for (i = 0; i < c_rank ; i++)
     {
         dims[i] = (hsize_t_f) c_dims[c_rank - i - 1];
     }
@@ -1501,7 +1501,7 @@ nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
 
     c_attrnamelen = (int)*attrnamelen;
     c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
-    if (c_attrname == NULL) 
+    if (c_attrname == NULL)
         goto done;
 
     /*
@@ -1511,7 +1511,7 @@ nh5ltget_attribute_ndims_c(hid_t_f *loc_id,
 
     ret = H5LTget_attribute_ndims(c_loc_id,c_name,c_attrname,&c_rank);
 
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     *rank = (int_f)c_rank;
@@ -1575,12 +1575,12 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
     */
     c_namelen = (int)*namelen;
     c_name = (char *)HD5f2cstring(name, c_namelen);
-    if (c_name == NULL) 
+    if (c_name == NULL)
         goto done;
 
     c_attrnamelen = (int)*attrnamelen;
     c_attrname = (char *)HD5f2cstring(attrname, c_attrnamelen);
-    if (c_attrname == NULL) 
+    if (c_attrname == NULL)
         goto done;
 
     /*
@@ -1589,7 +1589,7 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
     c_loc_id = (hid_t)*loc_id;
 
     ret = H5LTget_attribute_info(c_loc_id,c_name,c_attrname,c_dims,&c_classtype,&c_type_size);
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
     *type_class = c_classtype;
@@ -1600,10 +1600,10 @@ nh5ltget_attribute_info_c(hid_t_f *loc_id,
     */
 
     ret = H5LTget_attribute_ndims(c_loc_id,c_name,c_attrname,&c_rank);
-    if (ret < 0) 
+    if (ret < 0)
         goto done;
 
-    for (i = 0; i < c_rank ; i++) 
+    for (i = 0; i < c_rank ; i++)
     {
         dims[i] = (hsize_t_f) c_dims[c_rank - i - 1];
     }
diff --git a/hl/fortran/src/H5LTff.f90 b/hl/fortran/src/H5LTff.f90
index b622206..0c07449 100755
--- a/hl/fortran/src/H5LTff.f90
+++ b/hl/fortran/src/H5LTff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 !   Copyright by The HDF Group.                                               *
 !   Copyright by the Board of Trustees of the University of Illinois.         *
 !   All rights reserved.                                                      *
@@ -11,7 +11,7 @@
 !   is linked from the top-level documents page.  It can also be found at     *
 !   http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
 !   access to either file, you may request a copy from help@hdfgroup.org.     *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 !
 !
 ! This file contains FORTRAN90 interfaces for H5LT functions
@@ -19,7 +19,7 @@
 
 module h5lt
 use h5fortran_types
-use hdf5 
+use hdf5
 
 interface h5ltmake_dataset_f
  module procedure h5ltmake_dataset_f_int1
@@ -103,16 +103,16 @@ contains
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_int1(loc_id,& 
+subroutine h5ltmake_dataset_f_int1(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -120,15 +120,15 @@ subroutine h5ltmake_dataset_f_int1(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer, intent(in), dimension(*) :: buf           ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer, intent(in), dimension(*) :: buf           ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
- 
+
  interface
   integer function h5ltmake_dataset_int1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -137,12 +137,12 @@ subroutine h5ltmake_dataset_f_int1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
-  integer, intent(in), dimension(*) :: buf                ! data buffer 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
+  integer, intent(in), dimension(*) :: buf                ! data buffer
   end function h5ltmake_dataset_int1_c
  end interface
 
@@ -168,16 +168,16 @@ end subroutine h5ltmake_dataset_f_int1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_int2(loc_id,& 
+subroutine h5ltmake_dataset_f_int2(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
+
+ implicit none
 
- implicit none 
- 
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -185,16 +185,16 @@ subroutine h5ltmake_dataset_f_int2(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(in), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer 
- 
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
+
  interface
   integer function h5ltmake_dataset_int2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -203,13 +203,13 @@ subroutine h5ltmake_dataset_f_int2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer  
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltmake_dataset_int2_c
  end interface
 
@@ -235,16 +235,16 @@ end subroutine h5ltmake_dataset_f_int2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_int3(loc_id,& 
+subroutine h5ltmake_dataset_f_int3(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -252,16 +252,16 @@ subroutine h5ltmake_dataset_f_int3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
- 
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
+
  interface
   integer function h5ltmake_dataset_int3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -270,13 +270,13 @@ subroutine h5ltmake_dataset_f_int3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltmake_dataset_int3_c
  end interface
 
@@ -303,16 +303,16 @@ end subroutine h5ltmake_dataset_f_int3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_float1(loc_id,& 
+subroutine h5ltmake_dataset_f_float1(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -320,15 +320,15 @@ subroutine h5ltmake_dataset_f_float1(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- real, intent(in), dimension(*) :: buf              ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ real, intent(in), dimension(*) :: buf              ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
- 
+
  interface
   integer function h5ltmake_dataset_fl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -337,12 +337,12 @@ subroutine h5ltmake_dataset_f_float1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
-  real, intent(in), dimension(*) :: buf                   ! data buffer 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
+  real, intent(in), dimension(*) :: buf                   ! data buffer
   end function h5ltmake_dataset_fl1_c
  end interface
 
@@ -368,16 +368,16 @@ end subroutine h5ltmake_dataset_f_float1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_float2(loc_id,& 
+subroutine h5ltmake_dataset_f_float2(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -385,16 +385,16 @@ subroutine h5ltmake_dataset_f_float2(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(in), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer 
- 
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
+
  interface
   integer function h5ltmake_dataset_fl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -403,13 +403,13 @@ subroutine h5ltmake_dataset_f_float2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer  
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltmake_dataset_fl2_c
  end interface
 
@@ -435,16 +435,16 @@ end subroutine h5ltmake_dataset_f_float2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_float3(loc_id,& 
+subroutine h5ltmake_dataset_f_float3(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -452,16 +452,16 @@ subroutine h5ltmake_dataset_f_float3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
- 
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
+
  interface
   integer function h5ltmake_dataset_fl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -470,13 +470,13 @@ subroutine h5ltmake_dataset_f_float3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltmake_dataset_fl3_c
  end interface
 
@@ -502,16 +502,16 @@ end subroutine h5ltmake_dataset_f_float3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_double1(loc_id,& 
+subroutine h5ltmake_dataset_f_double1(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -519,15 +519,15 @@ subroutine h5ltmake_dataset_f_double1(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- double precision, intent(in), dimension(*) :: buf  ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ double precision, intent(in), dimension(*) :: buf  ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
- 
+
  interface
   integer function h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -536,12 +536,12 @@ subroutine h5ltmake_dataset_f_double1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
-  double precision, intent(in), dimension(*) :: buf       ! data buffer 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
+  double precision, intent(in), dimension(*) :: buf       ! data buffer
   end function h5ltmake_dataset_dl1_c
  end interface
 
@@ -567,16 +567,16 @@ end subroutine h5ltmake_dataset_f_double1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_double2(loc_id,& 
+subroutine h5ltmake_dataset_f_double2(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -584,16 +584,16 @@ subroutine h5ltmake_dataset_f_double2(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(in), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer 
- 
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
+
  interface
   integer function h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -602,13 +602,13 @@ subroutine h5ltmake_dataset_f_double2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer  
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltmake_dataset_dl2_c
  end interface
 
@@ -634,16 +634,16 @@ end subroutine h5ltmake_dataset_f_double2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_f_double3(loc_id,& 
+subroutine h5ltmake_dataset_f_double3(loc_id,&
                                 dset_name,&
-                                rank,& 
+                                rank,&
                                 dims,&
                                 type_id,&
                                 buf,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -651,16 +651,16 @@ subroutine h5ltmake_dataset_f_double3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
- 
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
+
  interface
   integer function h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -669,13 +669,13 @@ subroutine h5ltmake_dataset_f_double3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltmake_dataset_dl3_c
  end interface
 
@@ -703,15 +703,15 @@ end subroutine h5ltmake_dataset_f_double3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_int1(loc_id,& 
+subroutine h5ltread_dataset_f_int1(loc_id,&
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
-                                errcode )  
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -719,11 +719,11 @@ subroutine h5ltread_dataset_f_int1(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
- integer, intent(inout), dimension(*) :: buf        ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer, intent(inout), dimension(*) :: buf        ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
 
@@ -735,11 +735,11 @@ subroutine h5ltread_dataset_f_int1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(HID_T),   intent(IN) :: loc_id                  ! file or group identifier
-  integer(HID_T),   intent(IN) :: type_id                 ! datatype identifier 
+  integer(HID_T),   intent(IN) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(LEN=*), intent(IN) :: dset_name               ! name of the dataset 
-  integer(HSIZE_T), dimension(*), intent(IN) :: dims      ! size of the bufffer buf  
-  integer, intent(IN), dimension(*) :: buf                ! data buffer 
+  character(LEN=*), intent(IN) :: dset_name               ! name of the dataset
+  integer(HSIZE_T), dimension(*), intent(IN) :: dims      ! size of the bufffer buf
+  integer, intent(IN), dimension(*) :: buf                ! data buffer
   end function h5ltread_dataset_int1_c
  end interface
 
@@ -765,15 +765,15 @@ end subroutine h5ltread_dataset_f_int1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_int2(loc_id,& 
+subroutine h5ltread_dataset_f_int2(loc_id,&
                                  dset_name,&
                                  type_id,&
                                  buf,&
                                  dims,&
-                                 errcode )  
+                                 errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -781,14 +781,14 @@ subroutine h5ltread_dataset_f_int2(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(inout), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer 
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
 
  interface
   integer function h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -798,12 +798,12 @@ subroutine h5ltread_dataset_f_int2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer 
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltread_dataset_int2_c
  end interface
 
@@ -829,15 +829,15 @@ end subroutine h5ltread_dataset_f_int2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_int3(loc_id,& 
+subroutine h5ltread_dataset_f_int3(loc_id,&
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
-                                errcode )  
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -845,14 +845,14 @@ subroutine h5ltread_dataset_f_int3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
 
  interface
   integer function h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -862,12 +862,12 @@ subroutine h5ltread_dataset_f_int3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer  
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltread_dataset_int3_c
  end interface
 
@@ -896,15 +896,15 @@ end subroutine h5ltread_dataset_f_int3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_float1(loc_id,& 
+subroutine h5ltread_dataset_f_float1(loc_id,&
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
-                                errcode )  
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -912,11 +912,11 @@ subroutine h5ltread_dataset_f_float1(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
- real, intent(inout), dimension(*) :: buf           ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ real, intent(inout), dimension(*) :: buf           ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
 
@@ -928,11 +928,11 @@ subroutine h5ltread_dataset_f_float1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
-  real, intent(in), dimension(*) :: buf                   ! data buffer 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
+  real, intent(in), dimension(*) :: buf                   ! data buffer
   end function h5ltread_dataset_fl1_c
  end interface
 
@@ -958,15 +958,15 @@ end subroutine h5ltread_dataset_f_float1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_float2(loc_id,& 
+subroutine h5ltread_dataset_f_float2(loc_id,&
                                  dset_name,&
                                  type_id,&
                                  buf,&
                                  dims,&
-                                 errcode )  
+                                 errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -975,14 +975,14 @@ subroutine h5ltread_dataset_f_float2(loc_id,&
 !
 
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(inout), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer 
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
 
  interface
   integer function h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -992,12 +992,12 @@ subroutine h5ltread_dataset_f_float2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer 
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltread_dataset_fl2_c
  end interface
 
@@ -1023,15 +1023,15 @@ end subroutine h5ltread_dataset_f_float2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_float3(loc_id,& 
+subroutine h5ltread_dataset_f_float3(loc_id,&
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
-                                errcode )  
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1039,14 +1039,14 @@ subroutine h5ltread_dataset_f_float3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
 
  interface
   integer function h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1056,12 +1056,12 @@ subroutine h5ltread_dataset_f_float3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer  
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltread_dataset_fl3_c
  end interface
 
@@ -1088,15 +1088,15 @@ end subroutine h5ltread_dataset_f_float3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_double1(loc_id,& 
+subroutine h5ltread_dataset_f_double1(loc_id,&
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
-                                errcode )  
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1104,11 +1104,11 @@ subroutine h5ltread_dataset_f_double1(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
- double precision, intent(inout), dimension(*) :: buf ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ double precision, intent(inout), dimension(*) :: buf ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
 
@@ -1120,11 +1120,11 @@ subroutine h5ltread_dataset_f_double1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
-  double precision, intent(in), dimension(*) :: buf       ! data buffer 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
+  double precision, intent(in), dimension(*) :: buf       ! data buffer
   end function h5ltread_dataset_dl1_c
  end interface
 
@@ -1150,15 +1150,15 @@ end subroutine h5ltread_dataset_f_double1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_double2(loc_id,& 
+subroutine h5ltread_dataset_f_double2(loc_id,&
                                  dset_name,&
                                  type_id,&
                                  buf,&
                                  dims,&
-                                 errcode )  
+                                 errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1166,14 +1166,14 @@ subroutine h5ltread_dataset_f_double2(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(inout), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer 
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
 
  interface
   integer function h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1183,12 +1183,12 @@ subroutine h5ltread_dataset_f_double2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer 
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltread_dataset_dl2_c
  end interface
 
@@ -1214,15 +1214,15 @@ end subroutine h5ltread_dataset_f_double2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_f_double3(loc_id,& 
+subroutine h5ltread_dataset_f_double3(loc_id,&
                                 dset_name,&
                                 type_id,&
                                 buf,&
                                 dims,&
-                                errcode )  
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1230,14 +1230,14 @@ subroutine h5ltread_dataset_f_double3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hid_t),   intent(in) :: type_id            ! datatype identifier 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hid_t),   intent(in) :: type_id            ! datatype identifier
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
 
  interface
   integer function h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1247,12 +1247,12 @@ subroutine h5ltread_dataset_f_double3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer  
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltread_dataset_dl3_c
  end interface
 
@@ -1279,15 +1279,15 @@ end subroutine h5ltread_dataset_f_double3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_int_f_1 (loc_id,& 
+subroutine h5ltmake_dataset_int_f_1 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1295,14 +1295,14 @@ subroutine h5ltmake_dataset_int_f_1 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- integer, intent(in), dimension(*) :: buf           ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ integer, intent(in), dimension(*) :: buf           ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
-            
+
  interface
   integer function h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1311,12 +1311,12 @@ subroutine h5ltmake_dataset_int_f_1 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
-  integer, intent(in), dimension(*) :: buf                ! data buffer  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
+  integer, intent(in), dimension(*) :: buf                ! data buffer
   end function h5ltmake_dataset_nint1_c
  end interface
 
@@ -1342,15 +1342,15 @@ end subroutine h5ltmake_dataset_int_f_1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_int_f_2 (loc_id,& 
+subroutine h5ltmake_dataset_int_f_2 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1358,16 +1358,16 @@ subroutine h5ltmake_dataset_int_f_2 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(in), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer 
- 
-            
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
+
+
  interface
   integer function h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1376,13 +1376,13 @@ subroutine h5ltmake_dataset_int_f_2 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                  ! data buffer 
+  dimension(dims(1),dims(2)) :: buf                  ! data buffer
   end function h5ltmake_dataset_nint2_c
  end interface
 
@@ -1409,15 +1409,15 @@ end subroutine h5ltmake_dataset_int_f_2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_int_f_3 (loc_id,& 
+subroutine h5ltmake_dataset_int_f_3 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1425,16 +1425,16 @@ subroutine h5ltmake_dataset_int_f_3 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
- 
-            
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
+
+
  interface
   integer function h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1443,13 +1443,13 @@ subroutine h5ltmake_dataset_int_f_3 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltmake_dataset_nint3_c
  end interface
 
@@ -1477,15 +1477,15 @@ end subroutine h5ltmake_dataset_int_f_3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_float_f_1 (loc_id,& 
+subroutine h5ltmake_dataset_float_f_1 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1493,14 +1493,14 @@ subroutine h5ltmake_dataset_float_f_1 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
- real, intent(in), dimension(*) :: buf              ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
+ real, intent(in), dimension(*) :: buf              ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
-            
+
  interface
   integer function h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1509,12 +1509,12 @@ subroutine h5ltmake_dataset_float_f_1 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
-  real, intent(in), dimension(*) :: buf                   ! data buffer  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
+  real, intent(in), dimension(*) :: buf                   ! data buffer
   end function h5ltmake_dataset_nfl1_c
  end interface
 
@@ -1540,15 +1540,15 @@ end subroutine h5ltmake_dataset_float_f_1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_float_f_2 (loc_id,& 
+subroutine h5ltmake_dataset_float_f_2 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1556,15 +1556,15 @@ subroutine h5ltmake_dataset_float_f_2 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(in), &
  dimension(dims(1),dims(2)) :: buf                  ! data buffer
-            
+
  interface
   integer function h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1573,13 +1573,13 @@ subroutine h5ltmake_dataset_float_f_2 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                  ! data buffer  
+  dimension(dims(1),dims(2)) :: buf                  ! data buffer
   end function h5ltmake_dataset_nfl2_c
  end interface
 
@@ -1605,15 +1605,15 @@ end subroutine h5ltmake_dataset_float_f_2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_float_f_3 (loc_id,& 
+subroutine h5ltmake_dataset_float_f_3 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1621,15 +1621,15 @@ subroutine h5ltmake_dataset_float_f_3 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(in), &
  dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
-            
+
  interface
   integer function h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1638,13 +1638,13 @@ subroutine h5ltmake_dataset_float_f_3 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer 
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltmake_dataset_nfl3_c
  end interface
 
@@ -1673,15 +1673,15 @@ end subroutine h5ltmake_dataset_float_f_3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_double_f_1 (loc_id,& 
+subroutine h5ltmake_dataset_double_f_1 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1689,15 +1689,15 @@ subroutine h5ltmake_dataset_double_f_1 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(in), &
- dimension(dims(1)) :: buf                          ! data buffer 
-            
+ dimension(dims(1)) :: buf                          ! data buffer
+
  interface
   integer function h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1706,13 +1706,13 @@ subroutine h5ltmake_dataset_double_f_1 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(in), &
-  dimension(dims(1)) :: buf                               ! data buffer   
+  dimension(dims(1)) :: buf                               ! data buffer
   end function h5ltmake_dataset_ndl1_c
  end interface
 
@@ -1739,15 +1739,15 @@ end subroutine h5ltmake_dataset_double_f_1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_double_f_2 (loc_id,& 
+subroutine h5ltmake_dataset_double_f_2 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1755,15 +1755,15 @@ subroutine h5ltmake_dataset_double_f_2 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(in), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer 
-            
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
+
  interface
   integer function h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1772,13 +1772,13 @@ subroutine h5ltmake_dataset_double_f_2 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(in), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer   
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltmake_dataset_ndl2_c
  end interface
 
@@ -1804,15 +1804,15 @@ end subroutine h5ltmake_dataset_double_f_2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_double_f_3 (loc_id,& 
+subroutine h5ltmake_dataset_double_f_3 (loc_id,&
                                    dset_name,&
-                                   rank,& 
+                                   rank,&
                                    dims,&
                                    buf,&
-                                   errcode )   
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1820,15 +1820,15 @@ subroutine h5ltmake_dataset_double_f_3 (loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(in) :: rank               ! rank 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf  
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(in) :: rank               ! rank
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(in), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer 
-            
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
+
  interface
   integer function h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
   use h5global
@@ -1837,13 +1837,13 @@ subroutine h5ltmake_dataset_double_f_3 (loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(in) :: rank                    ! rank 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(in) :: rank                    ! rank
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(in), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer    
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltmake_dataset_ndl3_c
  end interface
 
@@ -1871,14 +1871,14 @@ end subroutine h5ltmake_dataset_double_f_3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_int_f_1(loc_id,& 
+subroutine h5ltread_dataset_int_f_1(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1886,13 +1886,13 @@ subroutine h5ltread_dataset_int_f_1(loc_id,&
 !DEC$endif
 !
 
- integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(HID_T),   intent(IN) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(inout), &
- dimension(dims(1)) :: buf                          ! data buffer  
+ dimension(dims(1)) :: buf                          ! data buffer
 
  interface
   integer function h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1902,12 +1902,12 @@ subroutine h5ltread_dataset_int_f_1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(inout), &
-  dimension(dims(1)) :: buf                               ! data buffer   
+  dimension(dims(1)) :: buf                               ! data buffer
   end function h5ltread_dataset_nint1_c
  end interface
 
@@ -1920,7 +1920,7 @@ end subroutine h5ltread_dataset_int_f_1
 !-------------------------------------------------------------------------
 ! Function: h5ltread_dataset_int_f_2
 !
-! Purpose: Read a dataset 
+! Purpose: Read a dataset
 !
 ! Return: Success: 0, Failure: -1
 !
@@ -1934,14 +1934,14 @@ end subroutine h5ltread_dataset_int_f_1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_int_f_2(loc_id,& 
+subroutine h5ltread_dataset_int_f_2(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1949,13 +1949,13 @@ subroutine h5ltread_dataset_int_f_2(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(inout), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer  
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
 
  interface
   integer function h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -1965,12 +1965,12 @@ subroutine h5ltread_dataset_int_f_2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(inout), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer    
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltread_dataset_nint2_c
  end interface
 
@@ -1982,7 +1982,7 @@ end subroutine h5ltread_dataset_int_f_2
 !-------------------------------------------------------------------------
 ! Function: h5ltread_dataset_int_f_3
 !
-! Purpose: Read a dataset 
+! Purpose: Read a dataset
 !
 ! Return: Success: 0, Failure: -1
 !
@@ -1996,14 +1996,14 @@ end subroutine h5ltread_dataset_int_f_2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_int_f_3(loc_id,& 
+subroutine h5ltread_dataset_int_f_3(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2011,13 +2011,13 @@ subroutine h5ltread_dataset_int_f_3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
 
  interface
   integer function h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2027,12 +2027,12 @@ subroutine h5ltread_dataset_int_f_3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   integer, intent(inout), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer   
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltread_dataset_nint3_c
  end interface
 
@@ -2045,7 +2045,7 @@ end subroutine h5ltread_dataset_int_f_3
 !-------------------------------------------------------------------------
 ! Function: h5ltread_dataset_float_f_1
 !
-! Purpose: Read a dataset 
+! Purpose: Read a dataset
 !
 ! Return: Success: 0, Failure: -1
 !
@@ -2059,14 +2059,14 @@ end subroutine h5ltread_dataset_int_f_3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_float_f_1(loc_id,& 
+subroutine h5ltread_dataset_float_f_1(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2074,13 +2074,13 @@ subroutine h5ltread_dataset_float_f_1(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(inout), &
- dimension(dims(1)) :: buf                          ! data buffer  
+ dimension(dims(1)) :: buf                          ! data buffer
 
  interface
   integer function h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2090,12 +2090,12 @@ subroutine h5ltread_dataset_float_f_1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(inout), &
-  dimension(dims(1)) :: buf                               ! data buffer   
+  dimension(dims(1)) :: buf                               ! data buffer
   end function h5ltread_dataset_nfl1_c
  end interface
 
@@ -2108,7 +2108,7 @@ end subroutine h5ltread_dataset_float_f_1
 !-------------------------------------------------------------------------
 ! Function: h5ltread_dataset_float_f_2
 !
-! Purpose: Read a dataset 
+! Purpose: Read a dataset
 !
 ! Return: Success: 0, Failure: -1
 !
@@ -2122,14 +2122,14 @@ end subroutine h5ltread_dataset_float_f_1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_float_f_2(loc_id,& 
+subroutine h5ltread_dataset_float_f_2(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2137,13 +2137,13 @@ subroutine h5ltread_dataset_float_f_2(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(inout), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer  
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
 
  interface
   integer function h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2153,12 +2153,12 @@ subroutine h5ltread_dataset_float_f_2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(inout), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer    
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltread_dataset_nfl2_c
  end interface
 
@@ -2184,14 +2184,14 @@ end subroutine h5ltread_dataset_float_f_2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_float_f_3(loc_id,& 
+subroutine h5ltread_dataset_float_f_3(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2199,13 +2199,13 @@ subroutine h5ltread_dataset_float_f_3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  real, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
 
  interface
   integer function h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2215,12 +2215,12 @@ subroutine h5ltread_dataset_float_f_3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   real, intent(inout), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer   
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltread_dataset_nfl3_c
  end interface
 
@@ -2232,7 +2232,7 @@ end subroutine h5ltread_dataset_float_f_3
 !-------------------------------------------------------------------------
 ! Function: h5ltread_dataset_double_f_1
 !
-! Purpose: Read a dataset 
+! Purpose: Read a dataset
 !
 ! Return: Success: 0, Failure: -1
 !
@@ -2246,14 +2246,14 @@ end subroutine h5ltread_dataset_float_f_3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_double_f_1(loc_id,& 
+subroutine h5ltread_dataset_double_f_1(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2261,13 +2261,13 @@ subroutine h5ltread_dataset_double_f_1(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(inout), &
- dimension(dims(1)) :: buf                          ! data buffer  
+ dimension(dims(1)) :: buf                          ! data buffer
 
  interface
   integer function h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2277,12 +2277,12 @@ subroutine h5ltread_dataset_double_f_1(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(inout), &
-  dimension(dims(1)) :: buf                               ! data buffer   
+  dimension(dims(1)) :: buf                               ! data buffer
   end function h5ltread_dataset_ndl1_c
  end interface
 
@@ -2295,7 +2295,7 @@ end subroutine h5ltread_dataset_double_f_1
 !-------------------------------------------------------------------------
 ! Function: h5ltread_dataset_double_f_2
 !
-! Purpose: Read a dataset 
+! Purpose: Read a dataset
 !
 ! Return: Success: 0, Failure: -1
 !
@@ -2309,14 +2309,14 @@ end subroutine h5ltread_dataset_double_f_1
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_double_f_2(loc_id,& 
+subroutine h5ltread_dataset_double_f_2(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2324,13 +2324,13 @@ subroutine h5ltread_dataset_double_f_2(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(inout), &
- dimension(dims(1),dims(2)) :: buf                  ! data buffer  
+ dimension(dims(1),dims(2)) :: buf                  ! data buffer
 
  interface
   integer function h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2340,12 +2340,12 @@ subroutine h5ltread_dataset_double_f_2(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(inout), &
-  dimension(dims(1),dims(2)) :: buf                       ! data buffer    
+  dimension(dims(1),dims(2)) :: buf                       ! data buffer
   end function h5ltread_dataset_ndl2_c
  end interface
 
@@ -2357,7 +2357,7 @@ end subroutine h5ltread_dataset_double_f_2
 !-------------------------------------------------------------------------
 ! Function: h5ltread_dataset_double_f_3
 !
-! Purpose: Read a dataset 
+! Purpose: Read a dataset
 !
 ! Return: Success: 0, Failure: -1
 !
@@ -2371,14 +2371,14 @@ end subroutine h5ltread_dataset_double_f_2
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_double_f_3(loc_id,& 
+subroutine h5ltread_dataset_double_f_3(loc_id,&
                                    dset_name,&
                                    buf,&
-                                   dims,& 
-                                   errcode ) 
+                                   dims,&
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2386,13 +2386,13 @@ subroutine h5ltread_dataset_double_f_3(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), dimension(*), intent(in) :: dims ! size of the bufffer buf
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  double precision, intent(inout), &
- dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer  
+ dimension(dims(1),dims(2),dims(3)) :: buf          ! data buffer
 
  interface
   integer function h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims)
@@ -2402,12 +2402,12 @@ subroutine h5ltread_dataset_double_f_3(loc_id,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
-  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier 
+  integer(hid_t),   intent(in) :: type_id                 ! datatype identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t), dimension(*), intent(in) :: dims      ! size of the bufffer buf
   double precision, intent(inout), &
-  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer   
+  dimension(dims(1),dims(2),dims(3)) :: buf               ! data buffer
   end function h5ltread_dataset_ndl3_c
  end interface
 
@@ -2434,13 +2434,13 @@ end subroutine h5ltread_dataset_double_f_3
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltmake_dataset_string_f(loc_id,& 
+subroutine h5ltmake_dataset_string_f(loc_id,&
                                      dset_name,&
                                      buf,&
-                                     errcode )   
+                                     errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2448,13 +2448,13 @@ subroutine h5ltmake_dataset_string_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- character(len=*), intent(in) :: buf                ! data buffer 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ character(len=*), intent(in) :: buf                ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer :: buflen                                  ! buffer length
-            
+
  interface
   integer function h5ltmake_dataset_string_c(loc_id,namelen,dset_name,buflen,buf)
   use h5global
@@ -2465,8 +2465,8 @@ subroutine h5ltmake_dataset_string_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: buflen                                       ! lenght of data buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  character(len=*), intent(in) :: buf                     ! data buffer  
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  character(len=*), intent(in) :: buf                     ! data buffer
   end function h5ltmake_dataset_string_c
  end interface
 
@@ -2479,7 +2479,7 @@ end subroutine h5ltmake_dataset_string_f
 !-------------------------------------------------------------------------
 ! Function: h5ltread_dataset_string_f
 !
-! Purpose: Read a dataset 
+! Purpose: Read a dataset
 !
 ! Return: Success: 0, Failure: -1
 !
@@ -2493,13 +2493,13 @@ end subroutine h5ltmake_dataset_string_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltread_dataset_string_f(loc_id,& 
+subroutine h5ltread_dataset_string_f(loc_id,&
                                      dset_name,&
                                      buf,&
-                                     errcode ) 
+                                     errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2507,8 +2507,8 @@ subroutine h5ltread_dataset_string_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(inout) :: buf             ! data buffer
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
@@ -2522,7 +2522,7 @@ subroutine h5ltread_dataset_string_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(inout) :: buf                  ! data buffer
   end function h5ltread_dataset_string_c
  end interface
@@ -2557,15 +2557,15 @@ end subroutine h5ltread_dataset_string_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltset_attribute_int_f(loc_id,& 
+subroutine h5ltset_attribute_int_f(loc_id,&
                                     dset_name,&
                                     attr_name,&
                                     buf,&
                                     size,&
-                                    errcode ) 
+                                    errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2573,8 +2573,8 @@ subroutine h5ltset_attribute_int_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
  integer(size_t),  intent(in) :: size               ! size of attribute array
  integer :: errcode                                 ! error code
@@ -2593,7 +2593,7 @@ subroutine h5ltset_attribute_int_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
   integer(size_t),  intent(in) :: size                    ! size of attribute array
   integer, intent(in), dimension(*) :: buf                ! data buffer
@@ -2623,15 +2623,15 @@ end subroutine h5ltset_attribute_int_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltset_attribute_float_f(loc_id,& 
+subroutine h5ltset_attribute_float_f(loc_id,&
                                     dset_name,&
                                     attr_name,&
                                     buf,&
                                     size,&
-                                    errcode ) 
+                                    errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2639,8 +2639,8 @@ subroutine h5ltset_attribute_float_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
  integer(size_t),  intent(in) :: size               ! size of attribute array
  integer :: errcode                                 ! error code
@@ -2659,7 +2659,7 @@ subroutine h5ltset_attribute_float_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
   integer(size_t),  intent(in) :: size                    ! size of attribute array
   real, intent(in), dimension(*) :: buf                   ! data buffer
@@ -2689,15 +2689,15 @@ end subroutine h5ltset_attribute_float_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltset_attribute_double_f(loc_id,& 
+subroutine h5ltset_attribute_double_f(loc_id,&
                                       dset_name,&
                                       attr_name,&
                                       buf,&
                                       size,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2705,8 +2705,8 @@ subroutine h5ltset_attribute_double_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
  integer(size_t),  intent(in) :: size               ! size of attribute array
  integer :: errcode                                 ! error code
@@ -2725,7 +2725,7 @@ subroutine h5ltset_attribute_double_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
   integer(size_t),  intent(in) :: size                    ! size of attribute array
   double precision, intent(in), dimension(*) :: buf       ! data buffer
@@ -2756,14 +2756,14 @@ end subroutine h5ltset_attribute_double_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltset_attribute_string_f(loc_id,& 
+subroutine h5ltset_attribute_string_f(loc_id,&
                                       dset_name,&
                                       attr_name,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2771,8 +2771,8 @@ subroutine h5ltset_attribute_string_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
  integer :: errcode                                 ! error code
  character(len=*), intent(in) :: buf                ! data buffer
@@ -2792,7 +2792,7 @@ subroutine h5ltset_attribute_string_f(loc_id,&
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
   integer :: buflen                                       ! data buffer length
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
   character(len=*), intent(in) :: buf                     ! data buffer
   end function h5ltset_attribute_string_c
@@ -2824,14 +2824,14 @@ end subroutine h5ltset_attribute_string_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltget_attribute_int_f(loc_id,& 
+subroutine h5ltget_attribute_int_f(loc_id,&
                                     dset_name,&
                                     attr_name,&
                                     buf,&
-                                    errcode ) 
+                                    errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2839,8 +2839,8 @@ subroutine h5ltget_attribute_int_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
  integer :: errcode                                 ! error code
  integer, intent(inout), dimension(*) :: buf        ! data buffer
@@ -2858,7 +2858,7 @@ subroutine h5ltget_attribute_int_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
   integer, intent(inout), dimension(*) :: buf             ! data buffer
   end function h5ltget_attribute_int_c
@@ -2888,14 +2888,14 @@ end subroutine h5ltget_attribute_int_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltget_attribute_float_f(loc_id,& 
+subroutine h5ltget_attribute_float_f(loc_id,&
                                     dset_name,&
                                     attr_name,&
                                     buf,&
-                                    errcode ) 
+                                    errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2903,8 +2903,8 @@ subroutine h5ltget_attribute_float_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
  integer :: errcode                                 ! error code
  real, intent(inout), dimension(*) :: buf           ! data buffer
@@ -2922,7 +2922,7 @@ subroutine h5ltget_attribute_float_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
   real, intent(inout), dimension(*) :: buf                ! data buffer
   end function h5ltget_attribute_float_c
@@ -2951,14 +2951,14 @@ end subroutine h5ltget_attribute_float_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltget_attribute_double_f(loc_id,& 
+subroutine h5ltget_attribute_double_f(loc_id,&
                                     dset_name,&
                                     attr_name,&
                                     buf,&
-                                    errcode ) 
+                                    errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -2966,8 +2966,8 @@ subroutine h5ltget_attribute_double_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
  integer :: errcode                                 ! error code
  double precision,intent(inout),dimension(*) :: buf ! data buffer
@@ -2985,7 +2985,7 @@ subroutine h5ltget_attribute_double_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
   double precision, intent(inout), dimension(*) :: buf    ! data buffer
   end function h5ltget_attribute_double_c
@@ -3014,14 +3014,14 @@ end subroutine h5ltget_attribute_double_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltget_attribute_string_f(loc_id,& 
+subroutine h5ltget_attribute_string_f(loc_id,&
                                       dset_name,&
                                       attr_name,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -3029,8 +3029,8 @@ subroutine h5ltget_attribute_string_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
  integer :: errcode                                 ! error code
  character(len=*), intent(inout) :: buf             ! data buffer
@@ -3048,7 +3048,7 @@ subroutine h5ltget_attribute_string_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
   character(len=*), intent(inout) :: buf                  ! data buffer
   end function h5ltget_attribute_string_c
@@ -3081,13 +3081,13 @@ end subroutine h5ltget_attribute_string_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltget_dataset_ndims_f(loc_id,& 
+subroutine h5ltget_dataset_ndims_f(loc_id,&
                                    dset_name,&
                                    rank,&
-                                   errcode ) 
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -3095,9 +3095,9 @@ subroutine h5ltget_dataset_ndims_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer,          intent(inout) :: rank            ! rank 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer,          intent(inout) :: rank            ! rank
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
 
@@ -3110,8 +3110,8 @@ subroutine h5ltget_dataset_ndims_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer,          intent(inout) :: rank                 ! rank 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer,          intent(inout) :: rank                 ! rank
   end function h5ltget_dataset_ndims_c
  end interface
 
@@ -3124,7 +3124,7 @@ end subroutine h5ltget_dataset_ndims_f
 !-------------------------------------------------------------------------
 ! Function: h5ltfind_dataset_f
 !
-! Purpose: Inquires if a dataset named dset_name exists attached 
+! Purpose: Inquires if a dataset named dset_name exists attached
 !           to the object loc_id.
 !
 ! Return: Success: 0, Failure: -1
@@ -3139,11 +3139,11 @@ end subroutine h5ltget_dataset_ndims_f
 !
 !-------------------------------------------------------------------------
 
-integer function h5ltfind_dataset_f(loc_id,& 
-                                    dset_name) 
+integer function h5ltfind_dataset_f(loc_id,&
+                                    dset_name)
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -3151,8 +3151,8 @@ integer function h5ltfind_dataset_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
 
@@ -3165,7 +3165,7 @@ integer function h5ltfind_dataset_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   end function h5ltfind_dataset_c
  end interface
 
@@ -3192,15 +3192,15 @@ end function h5ltfind_dataset_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltget_dataset_info_f(loc_id,& 
+subroutine h5ltget_dataset_info_f(loc_id,&
                                    dset_name,&
                                    dims,&
                                    type_class,&
                                    type_size,&
-                                   errcode ) 
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -3208,9 +3208,9 @@ subroutine h5ltget_dataset_info_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
  integer, intent(inout)         :: type_class       ! type class
  integer(size_t), intent(inout) :: type_size        ! type size
  integer :: errcode                                 ! error code
@@ -3225,10 +3225,10 @@ subroutine h5ltget_dataset_info_f(loc_id,&
   !DEC$ATTRIBUTES reference :: dset_name
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
-  integer(hsize_t),dimension(*),intent(inout):: dims      ! dimensions 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
+  integer(hsize_t),dimension(*),intent(inout):: dims      ! dimensions
   integer, intent(inout)         :: type_class            ! type class
-  integer(size_t), intent(inout) :: type_size             ! type size 
+  integer(size_t), intent(inout) :: type_size             ! type size
   end function h5ltget_dataset_info_c
  end interface
 
@@ -3260,14 +3260,14 @@ end subroutine h5ltget_dataset_info_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltget_attribute_ndims_f(loc_id,& 
+subroutine h5ltget_attribute_ndims_f(loc_id,&
                                     dset_name,&
                                     attr_name,&
                                     rank,&
-                                    errcode ) 
+                                    errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -3275,10 +3275,10 @@ subroutine h5ltget_attribute_ndims_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
- integer,          intent(inout) :: rank            ! rank 
+ integer,          intent(inout) :: rank            ! rank
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
  integer :: attrlen                                 ! name length
@@ -3294,9 +3294,9 @@ subroutine h5ltget_attribute_ndims_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
-  integer,          intent(inout) :: rank                 ! rank 
+  integer,          intent(inout) :: rank                 ! rank
   end function h5ltget_attribute_ndims_c
  end interface
 
@@ -3324,16 +3324,16 @@ end subroutine h5ltget_attribute_ndims_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5ltget_attribute_info_f(loc_id,& 
+subroutine h5ltget_attribute_info_f(loc_id,&
                                    dset_name,&
                                    attr_name,&
                                    dims,&
                                    type_class,&
                                    type_size,&
-                                   errcode ) 
+                                   errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -3341,10 +3341,10 @@ subroutine h5ltget_attribute_info_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
  character(len=*), intent(in) :: attr_name          ! name of the attribute
- integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions 
+ integer(hsize_t),dimension(*),intent(inout):: dims ! dimensions
  integer, intent(inout)         :: type_class       ! type class
  integer(size_t), intent(inout) :: type_size        ! type size
  integer :: errcode                                 ! error code
@@ -3362,11 +3362,11 @@ subroutine h5ltget_attribute_info_f(loc_id,&
   integer(hid_t),   intent(in) :: loc_id                  ! file or group identifier
   integer :: namelen                                      ! lenght of name buffer
   integer :: attrlen                                      ! lenght of attr name buffer
-  character(len=*), intent(in) :: dset_name               ! name of the dataset 
+  character(len=*), intent(in) :: dset_name               ! name of the dataset
   character(len=*), intent(in) :: attr_name               ! name of the attribute
-  integer(hsize_t),dimension(*),intent(inout):: dims      ! dimensions 
+  integer(hsize_t),dimension(*),intent(inout):: dims      ! dimensions
   integer, intent(inout)         :: type_class            ! type class
-  integer(size_t), intent(inout) :: type_size             ! type size 
+  integer(size_t), intent(inout) :: type_size             ! type size
   end function h5ltget_attribute_info_c
  end interface
 
@@ -3381,9 +3381,9 @@ end subroutine h5ltget_attribute_info_f
 !  end
 !
 end module H5LT
-            
 
-                                     
+
+
 
 
 
diff --git a/hl/fortran/src/H5TBfc.c b/hl/fortran/src/H5TBfc.c
index a09d73b..7139be3 100755
--- a/hl/fortran/src/H5TBfc.c
+++ b/hl/fortran/src/H5TBfc.c
@@ -123,7 +123,7 @@ nh5tbmake_table_c(int_f *namelen1,
             c_chunk_size, NULL, *compress, NULL) < 0)
         HGOTO_DONE(FAIL)
 
-done: 
+done:
     if(c_name)
         HDfree(c_name);
     if(c_name1)
diff --git a/hl/fortran/src/H5TBff.f90 b/hl/fortran/src/H5TBff.f90
index 03ecc6e..9acdcee 100755
--- a/hl/fortran/src/H5TBff.f90
+++ b/hl/fortran/src/H5TBff.f90
@@ -1,4 +1,4 @@
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 !   Copyright by The HDF Group.                                               *
 !   Copyright by the Board of Trustees of the University of Illinois.         *
 !   All rights reserved.                                                      *
@@ -11,15 +11,15 @@
 !   is linked from the top-level documents page.  It can also be found at     *
 !   http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have          *
 !   access to either file, you may request a copy from help@hdfgroup.org.     *
-! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
+! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 !
 !
 ! This file contains FORTRAN90 interfaces for H5TB functions
 !
-      
+
 module h5tb
 use h5fortran_types
-use hdf5 
+use hdf5
 
 
 interface h5tbwrite_field_name_f
@@ -80,9 +80,9 @@ contains
 !-------------------------------------------------------------------------
 
 subroutine h5tbmake_table_f(table_title,&
-                            loc_id,& 
+                            loc_id,&
                             dset_name,&
-                            nfields,& 
+                            nfields,&
                             nrecords,&
                             type_size,&
                             field_names,&
@@ -90,7 +90,7 @@ subroutine h5tbmake_table_f(table_title,&
                             field_types,&
                             chunk_size,&
                             compress,&
-                            errcode ) 
+                            errcode )
 
  implicit none
 
@@ -101,10 +101,10 @@ subroutine h5tbmake_table_f(table_title,&
 !DEC$endif
 !
 
- character(len=*), intent(in) :: table_title                      ! name of the dataset 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
- integer(hsize_t), intent(in) :: nfields                          ! fields 
+ character(len=*), intent(in) :: table_title                      ! name of the dataset
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
+ integer(hsize_t), intent(in) :: nfields                          ! fields
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
  character(len=*), dimension(nfields), intent(in) :: field_names  ! field names
@@ -118,7 +118,7 @@ subroutine h5tbmake_table_f(table_title,&
  integer, dimension(nfields) :: namelen2                          ! name lengths
  integer :: i                                                     ! general purpose integer
 
- 
+
  interface
   integer function h5tbmake_table_c(namelen1,&
   table_title,&
@@ -141,10 +141,10 @@ subroutine h5tbmake_table_f(table_title,&
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: table_title
-  character(len=*), intent(in) :: table_title                      ! name of the dataset 
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
-  integer(hsize_t), intent(in) :: nfields                          ! fields 
+  character(len=*), intent(in) :: table_title                      ! name of the dataset
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
+  integer(hsize_t), intent(in) :: nfields                          ! fields
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
   character(len=*), dimension(nfields), intent(in) :: field_names  ! field names
@@ -197,17 +197,17 @@ end subroutine h5tbmake_table_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbwrite_field_name_f_int(loc_id,& 
+subroutine h5tbwrite_field_name_f_int(loc_id,&
                                       dset_name,&
-                                      field_name,& 
+                                      field_name,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -215,13 +215,13 @@ subroutine h5tbwrite_field_name_f_int(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- integer, intent(in), dimension(*) :: buf                         ! data buffer 
+ integer, intent(in), dimension(*) :: buf                         ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -229,20 +229,20 @@ subroutine h5tbwrite_field_name_f_int(loc_id,&
  interface
   integer function h5tbwrite_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_INT_C'::h5tbwrite_field_name_int_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  integer, intent(in), dimension(*) :: buf                         ! data buffer 
+  integer, intent(in), dimension(*) :: buf                         ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length
@@ -251,7 +251,7 @@ subroutine h5tbwrite_field_name_f_int(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbwrite_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
 
@@ -272,17 +272,17 @@ end subroutine h5tbwrite_field_name_f_int
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbwrite_field_name_f_float(loc_id,& 
+subroutine h5tbwrite_field_name_f_float(loc_id,&
                                       dset_name,&
-                                      field_name,& 
+                                      field_name,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -290,13 +290,13 @@ subroutine h5tbwrite_field_name_f_float(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- real, intent(in), dimension(*) :: buf                            ! data buffer 
+ real, intent(in), dimension(*) :: buf                            ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -304,20 +304,20 @@ subroutine h5tbwrite_field_name_f_float(loc_id,&
  interface
   integer function h5tbwrite_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_FL_C'::h5tbwrite_field_name_fl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  real, intent(in), dimension(*) :: buf                            ! data buffer 
+  real, intent(in), dimension(*) :: buf                            ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length
@@ -326,7 +326,7 @@ subroutine h5tbwrite_field_name_f_float(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbwrite_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
 
@@ -349,17 +349,17 @@ end subroutine h5tbwrite_field_name_f_float
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbwrite_field_name_f_double(loc_id,& 
+subroutine h5tbwrite_field_name_f_double(loc_id,&
                                       dset_name,&
-                                      field_name,& 
+                                      field_name,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -367,13 +367,13 @@ subroutine h5tbwrite_field_name_f_double(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- double precision, intent(in), dimension(*) :: buf                ! data buffer 
+ double precision, intent(in), dimension(*) :: buf                ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -381,20 +381,20 @@ subroutine h5tbwrite_field_name_f_double(loc_id,&
  interface
   integer function h5tbwrite_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_DL_C'::h5tbwrite_field_name_dl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  double precision, intent(in), dimension(*) :: buf                ! data buffer 
+  double precision, intent(in), dimension(*) :: buf                ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length
@@ -403,7 +403,7 @@ subroutine h5tbwrite_field_name_f_double(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbwrite_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
 
@@ -424,17 +424,17 @@ end subroutine h5tbwrite_field_name_f_double
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbwrite_field_name_f_string(loc_id,& 
+subroutine h5tbwrite_field_name_f_string(loc_id,&
                                       dset_name,&
-                                      field_name,& 
+                                      field_name,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -442,13 +442,13 @@ subroutine h5tbwrite_field_name_f_string(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+ character(len=*), intent(in), dimension(*) :: buf                ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -456,20 +456,20 @@ subroutine h5tbwrite_field_name_f_string(loc_id,&
  interface
   integer function h5tbwrite_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_NAME_ST_C'::h5tbwrite_field_name_st_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+  character(len=*), intent(in), dimension(*) :: buf                ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length
@@ -478,7 +478,7 @@ subroutine h5tbwrite_field_name_f_string(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbwrite_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
 
@@ -500,17 +500,17 @@ end subroutine h5tbwrite_field_name_f_string
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbread_field_name_f_int(loc_id,& 
+subroutine h5tbread_field_name_f_int(loc_id,&
                                       dset_name,&
-                                      field_name,& 
+                                      field_name,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -518,13 +518,13 @@ subroutine h5tbread_field_name_f_int(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- integer, intent(in), dimension(*) :: buf                         ! data buffer 
+ integer, intent(in), dimension(*) :: buf                         ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -532,20 +532,20 @@ subroutine h5tbread_field_name_f_int(loc_id,&
  interface
   integer function h5tbread_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_INT_C'::h5tbread_field_name_int_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  integer, intent(in), dimension(*) :: buf                         ! data buffer 
+  integer, intent(in), dimension(*) :: buf                         ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length
@@ -554,7 +554,7 @@ subroutine h5tbread_field_name_f_int(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbread_field_name_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
 
@@ -575,17 +575,17 @@ end subroutine h5tbread_field_name_f_int
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbread_field_name_f_float(loc_id,& 
+subroutine h5tbread_field_name_f_float(loc_id,&
                                       dset_name,&
-                                      field_name,& 
+                                      field_name,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -593,13 +593,13 @@ subroutine h5tbread_field_name_f_float(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- real, intent(in), dimension(*) :: buf                            ! data buffer 
+ real, intent(in), dimension(*) :: buf                            ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -607,20 +607,20 @@ subroutine h5tbread_field_name_f_float(loc_id,&
  interface
   integer function h5tbread_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_FL_C'::h5tbread_field_name_fl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  real, intent(in), dimension(*) :: buf                            ! data buffer 
+  real, intent(in), dimension(*) :: buf                            ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length
@@ -629,7 +629,7 @@ subroutine h5tbread_field_name_f_float(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbread_field_name_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
 
@@ -650,17 +650,17 @@ end subroutine h5tbread_field_name_f_float
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbread_field_name_f_double(loc_id,& 
+subroutine h5tbread_field_name_f_double(loc_id,&
                                       dset_name,&
-                                      field_name,& 
+                                      field_name,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -668,13 +668,13 @@ subroutine h5tbread_field_name_f_double(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- double precision, intent(in), dimension(*) :: buf                ! data buffer 
+ double precision, intent(in), dimension(*) :: buf                ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -682,20 +682,20 @@ subroutine h5tbread_field_name_f_double(loc_id,&
  interface
   integer function h5tbread_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_DL_C'::h5tbread_field_name_dl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  double precision, intent(in), dimension(*) :: buf                ! data buffer 
+  double precision, intent(in), dimension(*) :: buf                ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length
@@ -704,7 +704,7 @@ subroutine h5tbread_field_name_f_double(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbread_field_name_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
 
@@ -725,17 +725,17 @@ end subroutine h5tbread_field_name_f_double
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbread_field_name_f_string(loc_id,& 
+subroutine h5tbread_field_name_f_string(loc_id,&
                                       dset_name,&
-                                      field_name,& 
+                                      field_name,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -743,13 +743,13 @@ subroutine h5tbread_field_name_f_string(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+ character(len=*), intent(in), dimension(*) :: buf                ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -757,20 +757,20 @@ subroutine h5tbread_field_name_f_string(loc_id,&
  interface
   integer function h5tbread_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_NAME_ST_C'::h5tbread_field_name_st_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+  character(len=*), intent(in), dimension(*) :: buf                ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length
@@ -779,7 +779,7 @@ subroutine h5tbread_field_name_f_string(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbread_field_name_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
   start,nrecords,type_size,buf)
 
@@ -801,17 +801,17 @@ end subroutine h5tbread_field_name_f_string
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbwrite_field_index_f_int(loc_id,& 
+subroutine h5tbwrite_field_index_f_int(loc_id,&
                                       dset_name,&
-                                      field_index,& 
+                                      field_index,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -819,39 +819,39 @@ subroutine h5tbwrite_field_index_f_int(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  integer, intent(in) :: field_index                               ! index
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- integer, intent(in), dimension(*) :: buf                         ! data buffer 
+ integer, intent(in), dimension(*) :: buf                         ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
 
  interface
   integer function h5tbwrite_field_index_int_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_INT_C'::h5tbwrite_field_index_int_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   integer, intent(in) :: field_index                               ! index
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  integer, intent(in), dimension(*) :: buf                         ! data buffer 
+  integer, intent(in), dimension(*) :: buf                         ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   end function h5tbwrite_field_index_int_c
  end interface
 
  namelen  = len(dset_name)
- 
+
  errcode = h5tbwrite_field_index_int_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
 
@@ -872,17 +872,17 @@ end subroutine h5tbwrite_field_index_f_int
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbwrite_field_index_f_float(loc_id,& 
+subroutine h5tbwrite_field_index_f_float(loc_id,&
                                       dset_name,&
-                                      field_index,& 
+                                      field_index,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -890,39 +890,39 @@ subroutine h5tbwrite_field_index_f_float(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  integer, intent(in) :: field_index                               ! index
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- real, intent(in), dimension(*) :: buf                            ! data buffer 
+ real, intent(in), dimension(*) :: buf                            ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
 
  interface
   integer function h5tbwrite_field_index_fl_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_FL_C'::h5tbwrite_field_index_fl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   integer, intent(in) :: field_index                               ! index
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  real, intent(in), dimension(*) :: buf                            ! data buffer 
+  real, intent(in), dimension(*) :: buf                            ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   end function h5tbwrite_field_index_fl_c
  end interface
 
  namelen  = len(dset_name)
- 
+
  errcode = h5tbwrite_field_index_fl_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
 
@@ -945,17 +945,17 @@ end subroutine h5tbwrite_field_index_f_float
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbwrite_field_index_f_double(loc_id,& 
+subroutine h5tbwrite_field_index_f_double(loc_id,&
                                       dset_name,&
-                                      field_index,& 
+                                      field_index,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -963,39 +963,39 @@ subroutine h5tbwrite_field_index_f_double(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  integer, intent(in) :: field_index                               ! index
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- double precision, intent(in), dimension(*) :: buf                ! data buffer 
+ double precision, intent(in), dimension(*) :: buf                ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
 
  interface
   integer function h5tbwrite_field_index_dl_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_DL_C'::h5tbwrite_field_index_dl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   integer, intent(in) :: field_index                               ! index
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  double precision, intent(in), dimension(*) :: buf                ! data buffer 
+  double precision, intent(in), dimension(*) :: buf                ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   end function h5tbwrite_field_index_dl_c
  end interface
 
  namelen  = len(dset_name)
- 
+
  errcode = h5tbwrite_field_index_dl_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
 
@@ -1016,17 +1016,17 @@ end subroutine h5tbwrite_field_index_f_double
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbwrite_field_index_f_string(loc_id,& 
+subroutine h5tbwrite_field_index_f_string(loc_id,&
                                       dset_name,&
-                                      field_index,& 
+                                      field_index,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1034,39 +1034,39 @@ subroutine h5tbwrite_field_index_f_string(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  integer, intent(in) :: field_index                               ! index
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+ character(len=*), intent(in), dimension(*) :: buf                ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
 
  interface
   integer function h5tbwrite_field_index_st_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBWRITE_FIELD_INDEX_ST_C'::h5tbwrite_field_index_st_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   integer, intent(in) :: field_index                               ! index
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+  character(len=*), intent(in), dimension(*) :: buf                ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   end function h5tbwrite_field_index_st_c
  end interface
 
  namelen  = len(dset_name)
- 
+
  errcode = h5tbwrite_field_index_st_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
 
@@ -1088,17 +1088,17 @@ end subroutine h5tbwrite_field_index_f_string
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbread_field_index_f_int(loc_id,& 
+subroutine h5tbread_field_index_f_int(loc_id,&
                                       dset_name,&
-                                      field_index,& 
+                                      field_index,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1106,39 +1106,39 @@ subroutine h5tbread_field_index_f_int(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  integer, intent(in) :: field_index                               ! index
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- integer, intent(in), dimension(*) :: buf                         ! data buffer 
+ integer, intent(in), dimension(*) :: buf                         ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
 
  interface
   integer function h5tbread_field_index_int_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_INT_C'::h5tbread_field_index_int_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   integer, intent(in) :: field_index                               ! index
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  integer, intent(in), dimension(*) :: buf                         ! data buffer 
+  integer, intent(in), dimension(*) :: buf                         ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   end function h5tbread_field_index_int_c
  end interface
 
  namelen  = len(dset_name)
- 
+
  errcode = h5tbread_field_index_int_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
 
@@ -1159,17 +1159,17 @@ end subroutine h5tbread_field_index_f_int
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbread_field_index_f_float(loc_id,& 
+subroutine h5tbread_field_index_f_float(loc_id,&
                                       dset_name,&
-                                      field_index,& 
+                                      field_index,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1177,39 +1177,39 @@ subroutine h5tbread_field_index_f_float(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  integer, intent(in) :: field_index                               ! index
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- real, intent(in), dimension(*) :: buf                            ! data buffer 
+ real, intent(in), dimension(*) :: buf                            ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
 
  interface
   integer function h5tbread_field_index_fl_c(loc_id,namelen,dset_name,field_index,&
    start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_FL_C'::h5tbread_field_index_fl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   integer, intent(in) :: field_index                               ! index
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  real, intent(in), dimension(*) :: buf                            ! data buffer 
+  real, intent(in), dimension(*) :: buf                            ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   end function h5tbread_field_index_fl_c
  end interface
 
  namelen  = len(dset_name)
- 
+
  errcode = h5tbread_field_index_fl_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
 
@@ -1230,17 +1230,17 @@ end subroutine h5tbread_field_index_f_float
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbread_field_index_f_double(loc_id,& 
+subroutine h5tbread_field_index_f_double(loc_id,&
                                       dset_name,&
-                                      field_index,& 
+                                      field_index,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1248,39 +1248,39 @@ subroutine h5tbread_field_index_f_double(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  integer, intent(in) :: field_index                               ! index
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- double precision, intent(in), dimension(*) :: buf                ! data buffer 
+ double precision, intent(in), dimension(*) :: buf                ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
 
  interface
   integer function h5tbread_field_index_dl_c(loc_id,namelen,dset_name,field_index,&
    start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_DL_C'::h5tbread_field_index_dl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   integer, intent(in) :: field_index                               ! index
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  double precision, intent(in), dimension(*) :: buf                ! data buffer 
+  double precision, intent(in), dimension(*) :: buf                ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   end function h5tbread_field_index_dl_c
  end interface
 
  namelen  = len(dset_name)
- 
+
  errcode = h5tbread_field_index_dl_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
 
@@ -1301,17 +1301,17 @@ end subroutine h5tbread_field_index_f_double
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbread_field_index_f_string(loc_id,& 
+subroutine h5tbread_field_index_f_string(loc_id,&
                                       dset_name,&
-                                      field_index,& 
+                                      field_index,&
                                       start,&
                                       nrecords,&
                                       type_size,&
                                       buf,&
-                                      errcode ) 
+                                      errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1319,39 +1319,39 @@ subroutine h5tbread_field_index_f_string(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  integer, intent(in) :: field_index                               ! index
- integer(hsize_t), intent(in) :: start                            ! start record 
+ integer(hsize_t), intent(in) :: start                            ! start record
  integer(hsize_t), intent(in) :: nrecords                         ! records
  integer(size_t),  intent(in) :: type_size                        ! type size
- character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+ character(len=*), intent(in), dimension(*) :: buf                ! data buffer
  integer :: errcode                                               ! error code
  integer :: namelen                                               ! name length
 
  interface
   integer function h5tbread_field_index_st_c(loc_id,namelen,dset_name,field_index,&
    start,nrecords,type_size,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBREAD_FIELD_INDEX_ST_C'::h5tbread_field_index_st_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   integer, intent(in) :: field_index                               ! index
-  integer(hsize_t), intent(in) :: start                            ! start record 
+  integer(hsize_t), intent(in) :: start                            ! start record
   integer(hsize_t), intent(in) :: nrecords                         ! records
   integer(size_t),  intent(in) :: type_size                        ! type size
-  character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+  character(len=*), intent(in), dimension(*) :: buf                ! data buffer
   integer :: errcode                                               ! error code
   integer :: namelen                                               ! name length
   end function h5tbread_field_index_st_c
  end interface
 
  namelen  = len(dset_name)
- 
+
  errcode = h5tbread_field_index_st_c(loc_id,namelen,dset_name,field_index,&
   start,nrecords,type_size,buf)
 
@@ -1373,15 +1373,15 @@ end subroutine h5tbread_field_index_f_string
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbinsert_field_f_int(loc_id,& 
+subroutine h5tbinsert_field_f_int(loc_id,&
                                   dset_name,&
-                                  field_name,& 
+                                  field_name,&
                                   field_type,&
                                   field_index,&
                                   buf,&
-                                  errcode ) 
+                                  errcode )
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1389,12 +1389,12 @@ subroutine h5tbinsert_field_f_int(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
  integer(hid_t), intent(in)   :: field_type                       ! field type
  integer, intent(in) :: field_index                               ! field_index
- integer, intent(in), dimension(*) :: buf                         ! data buffer 
+ integer, intent(in), dimension(*) :: buf                         ! data buffer
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
  integer :: errcode                                               ! error code
@@ -1403,19 +1403,19 @@ subroutine h5tbinsert_field_f_int(loc_id,&
  interface
   integer function h5tbinsert_field_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
    field_type,field_index,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_INT_C'::h5tbinsert_field_int_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
   integer(hid_t), intent(in)   :: field_type                       ! field type
   integer, intent(in) :: field_index                               ! field_index
-  integer, intent(in), dimension(*) :: buf                         ! data buffer 
+  integer, intent(in), dimension(*) :: buf                         ! data buffer
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length length
   end function h5tbinsert_field_int_c
@@ -1423,7 +1423,7 @@ subroutine h5tbinsert_field_f_int(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbinsert_field_int_c(loc_id,namelen,dset_name,namelen1,field_name,&
    field_type,field_index,buf)
 
@@ -1446,15 +1446,15 @@ end subroutine h5tbinsert_field_f_int
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbinsert_field_f_float(loc_id,& 
+subroutine h5tbinsert_field_f_float(loc_id,&
                                   dset_name,&
-                                  field_name,& 
+                                  field_name,&
                                   field_type,&
                                   field_index,&
                                   buf,&
-                                  errcode ) 
+                                  errcode )
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1462,12 +1462,12 @@ subroutine h5tbinsert_field_f_float(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
  integer(hid_t), intent(in)   :: field_type                       ! field type
  integer, intent(in) :: field_index                               ! field_index
- real, intent(in), dimension(*) :: buf                            ! data buffer 
+ real, intent(in), dimension(*) :: buf                            ! data buffer
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
  integer :: errcode                                               ! error code
@@ -1476,19 +1476,19 @@ subroutine h5tbinsert_field_f_float(loc_id,&
  interface
   integer function h5tbinsert_field_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
    field_type,field_index,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_FL_C'::h5tbinsert_field_fl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
   integer(hid_t), intent(in)   :: field_type                       ! field type
   integer, intent(in) :: field_index                               ! field_index
-  real, intent(in), dimension(*) :: buf                            ! data buffer 
+  real, intent(in), dimension(*) :: buf                            ! data buffer
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length length
   end function h5tbinsert_field_fl_c
@@ -1496,7 +1496,7 @@ subroutine h5tbinsert_field_f_float(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbinsert_field_fl_c(loc_id,namelen,dset_name,namelen1,field_name,&
    field_type,field_index,buf)
 
@@ -1519,15 +1519,15 @@ end subroutine h5tbinsert_field_f_float
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbinsert_field_f_double(loc_id,& 
+subroutine h5tbinsert_field_f_double(loc_id,&
                                   dset_name,&
-                                  field_name,& 
+                                  field_name,&
                                   field_type,&
                                   field_index,&
                                   buf,&
-                                  errcode ) 
+                                  errcode )
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1535,12 +1535,12 @@ subroutine h5tbinsert_field_f_double(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
  integer(hid_t), intent(in)   :: field_type                       ! field type
  integer, intent(in) :: field_index                               ! field_index
- double precision, intent(in), dimension(*) :: buf                ! data buffer 
+ double precision, intent(in), dimension(*) :: buf                ! data buffer
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
  integer :: errcode                                               ! error code
@@ -1549,19 +1549,19 @@ subroutine h5tbinsert_field_f_double(loc_id,&
  interface
   integer function h5tbinsert_field_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
    field_type,field_index,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_DL_C'::h5tbinsert_field_dl_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
   integer(hid_t), intent(in)   :: field_type                       ! field type
   integer, intent(in) :: field_index                               ! field_index
-  double precision, intent(in), dimension(*) :: buf                ! data buffer 
+  double precision, intent(in), dimension(*) :: buf                ! data buffer
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length length
   end function h5tbinsert_field_dl_c
@@ -1569,7 +1569,7 @@ subroutine h5tbinsert_field_f_double(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbinsert_field_dl_c(loc_id,namelen,dset_name,namelen1,field_name,&
    field_type,field_index,buf)
 
@@ -1593,15 +1593,15 @@ end subroutine h5tbinsert_field_f_double
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbinsert_field_f_string(loc_id,& 
+subroutine h5tbinsert_field_f_string(loc_id,&
                                   dset_name,&
-                                  field_name,& 
+                                  field_name,&
                                   field_type,&
                                   field_index,&
                                   buf,&
-                                  errcode ) 
+                                  errcode )
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1609,12 +1609,12 @@ subroutine h5tbinsert_field_f_string(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
  integer(hid_t), intent(in)   :: field_type                       ! field type
  integer, intent(in) :: field_index                               ! field_index
- character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+ character(len=*), intent(in), dimension(*) :: buf                ! data buffer
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
  integer :: errcode                                               ! error code
@@ -1623,19 +1623,19 @@ subroutine h5tbinsert_field_f_string(loc_id,&
  interface
   integer function h5tbinsert_field_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
    field_type,field_index,buf)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBINSERT_FIELD_ST_C'::h5tbinsert_field_st_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+  integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+  character(len=*), intent(in) :: dset_name                        ! name of the dataset
   character(len=*), intent(in) :: field_name                       ! name of the field
   integer(hid_t), intent(in)   :: field_type                       ! field type
   integer, intent(in) :: field_index                               ! field_index
-  character(len=*), intent(in), dimension(*) :: buf                ! data buffer 
+  character(len=*), intent(in), dimension(*) :: buf                ! data buffer
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length length
   end function h5tbinsert_field_st_c
@@ -1643,7 +1643,7 @@ subroutine h5tbinsert_field_f_string(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbinsert_field_st_c(loc_id,namelen,dset_name,namelen1,field_name,&
    field_type,field_index,buf)
 
@@ -1667,12 +1667,12 @@ end subroutine h5tbinsert_field_f_string
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbdelete_field_f(loc_id,& 
+subroutine h5tbdelete_field_f(loc_id,&
                               dset_name,&
                               field_name,&
-                              errcode ) 
+                              errcode )
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1680,8 +1680,8 @@ subroutine h5tbdelete_field_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier 
- character(len=*), intent(in) :: dset_name                        ! name of the dataset 
+ integer(hid_t),   intent(in) :: loc_id                           ! file or group identifier
+ character(len=*), intent(in) :: dset_name                        ! name of the dataset
  character(len=*), intent(in) :: field_name                       ! name of the field
  integer :: namelen                                               ! name length
  integer :: namelen1                                              ! name length
@@ -1690,15 +1690,15 @@ subroutine h5tbdelete_field_f(loc_id,&
 
  interface
   integer function h5tbdelete_field_c(loc_id,namelen,dset_name,namelen1,field_name)
- 
+
   use h5global
   !DEC$IF DEFINED(HDF5F90_WINDOWS)
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBDELETE_FIELD_C'::h5tbdelete_field_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
   !DEC$ATTRIBUTES reference :: field_name
-  integer(HID_T),   intent(IN) :: loc_id                           ! file or group identifier 
-  character(LEN=*), intent(IN) :: dset_name                        ! name of the dataset 
+  integer(HID_T),   intent(IN) :: loc_id                           ! file or group identifier
+  character(LEN=*), intent(IN) :: dset_name                        ! name of the dataset
   character(LEN=*), intent(IN) :: field_name                       ! name of the field
   integer :: namelen                                               ! name length
   integer :: namelen1                                              ! name length length
@@ -1707,7 +1707,7 @@ subroutine h5tbdelete_field_f(loc_id,&
 
  namelen  = len(dset_name)
  namelen1 = len(field_name)
- 
+
  errcode = h5tbdelete_field_c(loc_id,namelen,dset_name,namelen1,field_name)
 
 end subroutine h5tbdelete_field_f
@@ -1731,14 +1731,14 @@ end subroutine h5tbdelete_field_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbget_table_info_f(loc_id,& 
+subroutine h5tbget_table_info_f(loc_id,&
                                 dset_name,&
                                 nfields,&
                                 nrecords,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1746,10 +1746,10 @@ subroutine h5tbget_table_info_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
- character(len=*), intent(in) :: dset_name          ! name of the dataset 
- integer(hsize_t), intent(inout):: nfields          ! nfields 
- integer(hsize_t), intent(inout):: nrecords         ! nrecords 
+ integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+ character(len=*), intent(in) :: dset_name          ! name of the dataset
+ integer(hsize_t), intent(inout):: nfields          ! nfields
+ integer(hsize_t), intent(inout):: nrecords         ! nrecords
  integer :: errcode                                 ! error code
  integer :: namelen                                 ! name length
 
@@ -1760,10 +1760,10 @@ subroutine h5tbget_table_info_f(loc_id,&
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBGET_TABLE_INFO_C'::h5tbget_table_info_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier 
-  character(len=*), intent(in) :: dset_name          ! name of the dataset 
-  integer(hsize_t), intent(inout):: nfields          ! nfields 
-  integer(hsize_t), intent(inout):: nrecords         ! nrecords 
+  integer(hid_t),   intent(in) :: loc_id             ! file or group identifier
+  character(len=*), intent(in) :: dset_name          ! name of the dataset
+  integer(hsize_t), intent(inout):: nfields          ! nfields
+  integer(hsize_t), intent(inout):: nrecords         ! nrecords
   integer :: namelen                                 ! name length
   end function h5tbget_table_info_c
  end interface
@@ -1791,17 +1791,17 @@ end subroutine h5tbget_table_info_f
 !
 !-------------------------------------------------------------------------
 
-subroutine h5tbget_field_info_f(loc_id,& 
+subroutine h5tbget_field_info_f(loc_id,&
                                 dset_name,&
                                 nfields,&
                                 field_names,&
 								field_sizes,&
 								field_offsets,&
 								type_size,&
-                                errcode ) 
+                                errcode )
 
  implicit none
- 
+
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -1809,13 +1809,13 @@ subroutine h5tbget_field_info_f(loc_id,&
 !DEC$endif
 !
 
- integer(hid_t),   intent(in) :: loc_id                                ! file or group identifier 
- character(len=*), intent(in) :: dset_name                             ! name of the dataset 
- integer(hsize_t), intent(in):: nfields                                ! nfields 
+ integer(hid_t),   intent(in) :: loc_id                                ! file or group identifier
+ character(len=*), intent(in) :: dset_name                             ! name of the dataset
+ integer(hsize_t), intent(in):: nfields                                ! nfields
  character(len=*), dimension(nfields), intent(inout) :: field_names    ! field names
  integer(size_t),  dimension(nfields), intent(inout) :: field_sizes    ! field sizes
  integer(size_t),  dimension(nfields), intent(inout) :: field_offsets  ! field offsets
- integer(size_t),  intent(inout):: type_size                           ! type size 
+ integer(size_t),  intent(inout):: type_size                           ! type size
  integer :: errcode                                                    ! error code
  integer :: namelen                                                    ! name length
  integer, dimension(nfields) :: namelen2                               ! name lengths
@@ -1830,13 +1830,13 @@ subroutine h5tbget_field_info_f(loc_id,&
   !DEC$ATTRIBUTES C,reference,decorate,alias:'H5TBGET_FIELD_INFO_C'::h5tbget_field_info_c
   !DEC$ENDIF
   !DEC$ATTRIBUTES reference :: dset_name
-  integer(hid_t),   intent(in) :: loc_id                                ! file or group identifier 
-  character(len=*), intent(in) :: dset_name                             ! name of the dataset 
-  integer(hsize_t), intent(in):: nfields                                ! nfields 
+  integer(hid_t),   intent(in) :: loc_id                                ! file or group identifier
+  character(len=*), intent(in) :: dset_name                             ! name of the dataset
+  integer(hsize_t), intent(in):: nfields                                ! nfields
   character(len=*), dimension(nfields), intent(inout) :: field_names    ! field names
   integer(size_t),  dimension(nfields), intent(inout) :: field_sizes    ! field sizes
   integer(size_t),  dimension(nfields), intent(inout) :: field_offsets  ! field offsets
-  integer(size_t),  intent(inout):: type_size                           ! type size 
+  integer(size_t),  intent(inout):: type_size                           ! type size
   integer :: namelen                                                    ! name length
   integer, dimension(nfields) :: namelen2                               ! name lengths
   end function h5tbget_field_info_c
@@ -1856,9 +1856,9 @@ end subroutine h5tbget_field_info_f
 !  end
 !
 end module H5TB
-            
 
-                                     
+
+