summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-14 20:07:31 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-14 20:07:31 (GMT)
commitc57a9ec023e85e9ee4a712fbb6ffcbdeb801019d (patch)
treea80dd71d34778ebeb4a9d9e34586bb22b9c5e5bc /fortran/src
parent037d82e53df00d0dcaf528d08e471df8cd1f78a1 (diff)
downloadhdf5-c57a9ec023e85e9ee4a712fbb6ffcbdeb801019d.zip
hdf5-c57a9ec023e85e9ee4a712fbb6ffcbdeb801019d.tar.gz
hdf5-c57a9ec023e85e9ee4a712fbb6ffcbdeb801019d.tar.bz2
[svn-r15002] Purpose:
Made all subroutine names lowercase.
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Dff.f9050
-rw-r--r--fortran/src/H5Lff.f9024
-rw-r--r--fortran/src/H5Pff.f9042
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