[svn-r15002] Purpose:

Made all subroutine names lowercase.

3 files changed, 58 insertions, 58 deletions

diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90
index 4dfad01..757e1e2 100644
--- a/fortran/src/H5Dff.f90
+++ b/fortran/src/H5Dff.f90
@@ -4771,34 +4771,34 @@ CONTAINS
 !----------------------------------------------------------------------
 
 
-          SUBROUTINE H5Dset_extent_f(dataset_id, size, hdferr) 
+  SUBROUTINE h5dset_extent_f(dataset_id, size, hdferr) 
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: H5Dset_extent_f
+!DEC$attributes dllexport :: h5dset_extent_f
 !DEC$endif
-            IMPLICIT NONE 
-            INTEGER(HID_T), INTENT(IN) :: dataset_id      ! Dataset identifier
-            INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN)  :: size
-                                                          ! Array containing 
-                                                          ! dimensions' sizes 
-            INTEGER, INTENT(OUT) :: hdferr                ! Error code 
-
-!            INTEGER, EXTERNAL ::  H5Dset_extent_c
-!  MS FORTRAN needs explicit interface for C functions called here.
-!
-            INTERFACE
-              INTEGER FUNCTION H5Dset_extent_c(dataset_id, size)
-              USE H5GLOBAL
-              !DEC$ IF DEFINED(HDF5F90_WINDOWS)
-              !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5DSET_EXTENT_C'::H5Dset_extent_c
-              !DEC$ ENDIF
-              INTEGER(HID_T), INTENT(IN) :: dataset_id
-              INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN)  :: size
-              END FUNCTION H5Dset_extent_c
-            END INTERFACE
-
-            hdferr = H5Dset_extent_c(dataset_id, size)
-          END SUBROUTINE H5Dset_extent_f  
+    IMPLICIT NONE 
+    INTEGER(HID_T), INTENT(IN) :: dataset_id      ! Dataset identifier
+    INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN)  :: size
+    ! Array containing 
+    ! dimensions' sizes 
+    INTEGER, INTENT(OUT) :: hdferr                ! Error code 
+    
+    !
+    !  MS FORTRAN needs explicit interface for C functions called here.
+    !
+    INTERFACE
+       INTEGER FUNCTION h5dset_extent_c(dataset_id, size)
+         USE H5GLOBAL
+         !DEC$ IF DEFINED(HDF5F90_WINDOWS)
+         !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5DSET_EXTENT_C'::h5dset_extent_c
+         !DEC$ ENDIF
+         INTEGER(HID_T), INTENT(IN) :: dataset_id
+         INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN)  :: size
+       END FUNCTION h5dset_extent_c
+    END INTERFACE
+    
+    hdferr = H5Dset_extent_c(dataset_id, size)
+  END SUBROUTINE h5dset_extent_f
 
 
 !----------------------------------------------------------------------
diff --git a/fortran/src/H5Lff.f90 b/fortran/src/H5Lff.f90
index a343c31..10c8e35 100644
--- a/fortran/src/H5Lff.f90
+++ b/fortran/src/H5Lff.f90
@@ -795,7 +795,7 @@ CONTAINS
   END SUBROUTINE h5lget_info_by_idx_f
 
 !----------------------------------------------------------------------
-! Name:	   H5Lis_registered_f 
+! Name:	   h5lis_registered_f 
 !
 ! Purpose:  Determines whether a class of user-defined links is registered.
 !		
@@ -817,10 +817,10 @@ CONTAINS
 ! Modifications:  N/A
 !
 !----------------------------------------------------------------------
-  SUBROUTINE H5Lis_registered_f(link_cls_id, registered, hdferr) 
+  SUBROUTINE h5lis_registered_f(link_cls_id, registered, hdferr) 
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: H5Lis_registered_f
+!DEC$attributes dllexport :: h5lis_registered_f
 !DEC$endif
     IMPLICIT NONE
     INTEGER, INTENT(IN) :: link_cls_id  ! User-defined link class identifier
@@ -832,16 +832,16 @@ CONTAINS
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
     INTERFACE
-       INTEGER FUNCTION H5Lis_registered_c(link_cls_id)
+       INTEGER FUNCTION h5lis_registered_c(link_cls_id)
          USE H5GLOBAL
          !DEC$ IF DEFINED(HDF5F90_WINDOWS)
          !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5LIS_REGISTERED_C'::h5lis_registered_c
          !DEC$ ENDIF
          INTEGER, INTENT(IN) :: link_cls_id  ! User-defined link class identifier
-       END FUNCTION H5Lis_registered_c
+       END FUNCTION h5lis_registered_c
     END INTERFACE
 
-    hdferr = H5Lis_registered_c(link_cls_id)
+    hdferr = h5lis_registered_c(link_cls_id)
 
     IF(hdferr.GT.0)THEN
        registered = .TRUE.
@@ -849,10 +849,10 @@ CONTAINS
        registered = .FALSE.
     ENDIF
        
-  END SUBROUTINE H5Lis_registered_f
+  END SUBROUTINE h5lis_registered_f
 
 !----------------------------------------------------------------------
-! Name:	   H5Lmove_f
+! Name:	   h5lmove_f
 !
 ! Purpose:  Renames a link within an HDF5 file.
 !		
@@ -879,7 +879,7 @@ CONTAINS
   SUBROUTINE h5lmove_f(src_loc_id, src_name, dest_loc_id, dest_name, hdferr, lcpl_id, lapl_id) 
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
-!DEC$attributes dllexport :: H5Lmove_f
+!DEC$attributes dllexport :: h5lmove_f
 !DEC$endif
     IMPLICIT NONE
     INTEGER(HID_T), INTENT(IN) :: src_loc_id  ! Original file or group identifier.
@@ -903,7 +903,7 @@ CONTAINS
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
     INTERFACE
-       INTEGER FUNCTION H5Lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, &
+       INTEGER FUNCTION h5lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, &
             dest_name, dest_namelen, lcpl_id_default, lapl_id_default) 
          USE H5GLOBAL
          !DEC$ IF DEFINED(HDF5F90_WINDOWS)
@@ -920,7 +920,7 @@ CONTAINS
          INTEGER(HID_T) :: lcpl_id_default 
          INTEGER(HID_T) :: lapl_id_default 
 
-       END FUNCTION H5Lmove_c
+       END FUNCTION h5lmove_c
     END INTERFACE
 
     lcpl_id_default = H5P_DEFAULT_F
@@ -934,7 +934,7 @@ CONTAINS
     hdferr = H5Lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, &
          dest_name, dest_namelen, lcpl_id_default, lapl_id_default)
 
-  END SUBROUTINE H5Lmove_f
+  END SUBROUTINE h5lmove_f
 
 !----------------------------------------------------------------------
 ! Name:		h5lget_name_by_idx_f
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90
index d24f79d..98fdc81 100644
--- a/fortran/src/H5Pff.f90
+++ b/fortran/src/H5Pff.f90
@@ -7605,7 +7605,7 @@
   END SUBROUTINE h5pset_local_heap_size_hint_f
 
 !----------------------------------------------------------------------
-! Name:		H5Pset_est_link_info_f 
+! Name:		h5pset_est_link_info_f 
 !
 ! Purpose: 	Sets estimated number of links and length of link names in a group.
 !
@@ -7628,7 +7628,7 @@
 ! Comment: 
 !----------------------------------------------------------------------
 
-  SUBROUTINE H5Pset_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr) 
+  SUBROUTINE h5pset_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr) 
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -7644,7 +7644,7 @@
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
     INTERFACE
-       INTEGER FUNCTION H5Pset_est_link_info_c(gcpl_id, est_num_entries, est_name_len)
+       INTEGER FUNCTION h5pset_est_link_info_c(gcpl_id, est_num_entries, est_name_len)
          USE H5GLOBAL
          !DEC$ IF DEFINED(HDF5F90_WINDOWS)
          !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_EST_LINK_INFO_C'::h5pset_est_link_info_c
@@ -7652,15 +7652,15 @@
          INTEGER(HID_T), INTENT(IN) :: gcpl_id  
          INTEGER, INTENT(IN) :: est_num_entries
          INTEGER, INTENT(IN) :: est_name_len
-       END FUNCTION H5Pset_est_link_info_c
+       END FUNCTION h5pset_est_link_info_c
     END INTERFACE
 
     hdferr = H5Pset_est_link_info_c(gcpl_id, est_num_entries, est_name_len)
 
-  END SUBROUTINE H5Pset_est_link_info_f
+  END SUBROUTINE h5pset_est_link_info_f
 
 !----------------------------------------------------------------------
-! Name:		H5Pset_link_phase_change_f
+! Name:		h5pset_link_phase_change_f
 !
 ! Purpose: 	Sets the parameters for conversion between compact and dense groups.
 !
@@ -7715,7 +7715,7 @@
   END SUBROUTINE h5pset_link_phase_change_f
 
 !----------------------------------------------------------------------
-! Name:		H5Pset_fapl_direct_f
+! Name:		h5pset_fapl_direct_f
 !
 ! Purpose: 	Sets up use of the direct I/O driver.
 !
@@ -7739,7 +7739,7 @@
 ! Comment:		
 !----------------------------------------------------------------------
 
-  SUBROUTINE H5Pset_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr)
+  SUBROUTINE h5pset_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr)
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -7756,7 +7756,7 @@
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
     INTERFACE
-       INTEGER FUNCTION H5Pset_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size)
+       INTEGER FUNCTION h5pset_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size)
          USE H5GLOBAL
          !DEC$ IF DEFINED(HDF5F90_WINDOWS)
          !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAPL_DIRECT_C'::h5pset_fapl_direct_c
@@ -7765,14 +7765,14 @@
          INTEGER(SIZE_T), INTENT(IN) :: alignment
          INTEGER(SIZE_T), INTENT(IN) :: block_size
          INTEGER(SIZE_T), INTENT(IN) :: cbuf_size
-       END FUNCTION H5Pset_fapl_direct_c
+       END FUNCTION h5pset_fapl_direct_c
     END INTERFACE
 
     hdferr = H5Pset_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size)
-  END SUBROUTINE H5Pset_fapl_direct_f
+  END SUBROUTINE h5pset_fapl_direct_f
 
 !----------------------------------------------------------------------
-! Name:		H5Pget_fapl_direct_f
+! Name:		h5pget_fapl_direct_f
 !
 ! Purpose: 	Gets up use of the direct I/O driver.
 !
@@ -7796,7 +7796,7 @@
 ! Comment:		
 !----------------------------------------------------------------------
 
-  SUBROUTINE H5Pget_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr)
+  SUBROUTINE h5pget_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr)
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -7813,7 +7813,7 @@
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
     INTERFACE
-       INTEGER FUNCTION H5Pget_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size)
+       INTEGER FUNCTION h5pget_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size)
          USE H5GLOBAL
          !DEC$ IF DEFINED(HDF5F90_WINDOWS)
          !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PGET_FAPL_DIRECT_C'::h5pget_fapl_direct_c
@@ -7822,11 +7822,11 @@
          INTEGER(SIZE_T), INTENT(OUT) :: alignment
          INTEGER(SIZE_T), INTENT(OUT) :: block_size
          INTEGER(SIZE_T), INTENT(OUT) :: cbuf_size
-       END FUNCTION H5Pget_fapl_direct_c
+       END FUNCTION h5pget_fapl_direct_c
     END INTERFACE
 
     hdferr = H5Pget_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size)
-  END SUBROUTINE H5Pget_fapl_direct_f
+  END SUBROUTINE h5pget_fapl_direct_f
 
 !----------------------------------------------------------------------
 ! Name:		H5Pset_attr_phase_change_f 
@@ -7939,7 +7939,7 @@
   END SUBROUTINE h5pset_nbit_f
 
 !----------------------------------------------------------------------
-! Name:		H5Pset_scaleoffset_f 
+! Name:		h5pset_scaleoffset_f 
 !
 ! Purpose: 	Sets up the use of the Scale-Offset filter.
 !
@@ -7962,7 +7962,7 @@
 ! Comment: 
 !----------------------------------------------------------------------
 
-  SUBROUTINE H5Pset_scaleoffset_f(plist_id, scale_type, scale_factor, hdferr) 
+  SUBROUTINE h5pset_scaleoffset_f(plist_id, scale_type, scale_factor, hdferr) 
 !
 !This definition is needed for Windows DLLs
 !DEC$if defined(BUILD_HDF5_DLL)
@@ -7978,7 +7978,7 @@
 !  MS FORTRAN needs explicit interface for C functions called here.
 !
     INTERFACE
-       INTEGER FUNCTION H5Pset_scaleoffset_c(plist_id, scale_type, scale_factor)
+       INTEGER FUNCTION h5pset_scaleoffset_c(plist_id, scale_type, scale_factor)
          USE H5GLOBAL
          !DEC$ IF DEFINED(HDF5F90_WINDOWS)
          !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_SCALEOFFSET_C'::h5pset_scaleoffset_c
@@ -7986,12 +7986,12 @@
          INTEGER(HID_T), INTENT(IN) :: plist_id
          INTEGER, INTENT(IN) :: scale_type
          INTEGER, INTENT(IN) :: scale_factor
-       END FUNCTION H5Pset_scaleoffset_c
+       END FUNCTION h5pset_scaleoffset_c
     END INTERFACE
 
     hdferr = H5Pset_scaleoffset_c(plist_id, scale_type, scale_factor)
 
-  END SUBROUTINE H5Pset_scaleoffset_f
+  END SUBROUTINE h5pset_scaleoffset_f
 
 !----------------------------------------------------------------------
 ! Name:		h5pset_nlinks_f