summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-09 16:13:24 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-05-09 16:13:24 (GMT)
commitc9d5c195cdff15fd1d07b523ba0358b8dbe76c85 (patch)
tree9128ba7b747bfcb3d109674d09ed382757b0ea91 /fortran/src
parentb7efe1e536cec3f23965c8b2283119e2b123ec30 (diff)
downloadhdf5-c9d5c195cdff15fd1d07b523ba0358b8dbe76c85.zip
hdf5-c9d5c195cdff15fd1d07b523ba0358b8dbe76c85.tar.gz
hdf5-c9d5c195cdff15fd1d07b523ba0358b8dbe76c85.tar.bz2
[svn-r14958] Cosmetic changes and fixed integer type mismatch in C routine wrapper.
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Af.c2
-rw-r--r--fortran/src/H5Lff.f901
-rw-r--r--fortran/src/H5Pff.f9035
-rw-r--r--fortran/src/H5f90proto.h2
4 files changed, 21 insertions, 19 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index 9818258..4eab9c9 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -1340,7 +1340,7 @@ done:
*---------------------------------------------------------------------------*/
int_f
nh5aopen_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
- int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id )
+ int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id )
{
char *c_obj_name = NULL; /* Buffer to hold C string */
H5_index_t c_idx_type;
diff --git a/fortran/src/H5Lff.f90 b/fortran/src/H5Lff.f90
index 9d1c2e5..1f7bceb 100644
--- a/fortran/src/H5Lff.f90
+++ b/fortran/src/H5Lff.f90
@@ -988,6 +988,7 @@ CONTAINS
! returns correct size
CHARACTER(LEN=*), INTENT(OUT) :: name ! Buffer in which link value is returned
INTEGER, INTENT(OUT) :: hdferr ! Error code:
+ ! 0 on success and -1 on failure
INTEGER(SIZE_T) :: group_namelen
INTEGER(HID_T), OPTIONAL, INTENT(IN) :: lapl_id ! Link access property list
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90
index 2747add..6da2b08 100644
--- a/fortran/src/H5Pff.f90
+++ b/fortran/src/H5Pff.f90
@@ -6647,7 +6647,7 @@
! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pget_attr_creation_order_f(ocpl_id, crt_order_flags, hdferr)
+ SUBROUTINE h5pget_attr_creation_order_f(ocpl_id, crt_order_flags, hdferr)
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -7059,7 +7059,7 @@
! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pget_link_creation_order_f(gcpl_id, crt_order_flags, hdferr)
+ SUBROUTINE h5pget_link_creation_order_f(gcpl_id, crt_order_flags, hdferr)
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -7116,7 +7116,7 @@
! Comment:
!----------------------------------------------------------------------
- SUBROUTINE h5pset_char_encoding_f(plist_id, encoding, hdferr)
+ SUBROUTINE h5pset_char_encoding_f(plist_id, encoding, hdferr)
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -7249,6 +7249,7 @@
! H5O_COPY_EXPAND_REFERENCE_F
! H5O_COPY_WITHOUT_ATTR_FLAG_F
INTEGER, INTENT(OUT) :: hdferr ! Error code
+ ! 0 on success and -1 on failure
! MS FORTRAN needs explicit interface for C functions called here.
!
@@ -7467,7 +7468,7 @@
! Comment:
!----------------------------------------------------------------------
- SUBROUTINE H5Pget_local_heap_size_hint_f(gcpl_id, size_hint, hdferr)
+ SUBROUTINE h5pget_local_heap_size_hint_f(gcpl_id, size_hint, hdferr)
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -7482,7 +7483,7 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION H5Pget_local_heap_size_hint_c(gcpl_id, size_hint)
+ INTEGER FUNCTION h5pget_local_heap_size_hint_c(gcpl_id, size_hint)
USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PGET_LOCAL_HEAP_SIZE_HINT_C'::h5pget_local_heap_size_hint_c
@@ -7494,7 +7495,7 @@
hdferr = H5Pget_local_heap_size_hint_c(gcpl_id, size_hint)
- END SUBROUTINE H5Pget_local_heap_size_hint_f
+ END SUBROUTINE h5pget_local_heap_size_hint_f
!----------------------------------------------------------------------
! Name: H5Pget_est_link_info_f
@@ -7520,7 +7521,7 @@
! Comment:
!----------------------------------------------------------------------
- SUBROUTINE H5Pget_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr)
+ SUBROUTINE h5pget_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)
@@ -7536,7 +7537,7 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION H5Pget_est_link_info_c(gcpl_id, est_num_entries, est_name_len)
+ INTEGER FUNCTION h5pget_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:'H5PGET_EST_LINK_INFO_C'::h5pget_est_link_info_c
@@ -7544,12 +7545,12 @@
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(OUT) :: est_num_entries
INTEGER, INTENT(OUT) :: est_name_len
- END FUNCTION H5Pget_est_link_info_c
+ END FUNCTION h5pget_est_link_info_c
END INTERFACE
- hdferr = H5Pget_est_link_info_c(gcpl_id, est_num_entries, est_name_len)
+ hdferr = h5pget_est_link_info_c(gcpl_id, est_num_entries, est_name_len)
- END SUBROUTINE H5Pget_est_link_info_f
+ END SUBROUTINE h5pget_est_link_info_f
!----------------------------------------------------------------------
! Name: H5Pset_local_heap_size_hint_f
@@ -7574,7 +7575,7 @@
! Comment:
!----------------------------------------------------------------------
- SUBROUTINE H5Pset_local_heap_size_hint_f(gcpl_id, size_hint, hdferr)
+ SUBROUTINE h5pset_local_heap_size_hint_f(gcpl_id, size_hint, hdferr)
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -7589,19 +7590,19 @@
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION H5Pset_local_heap_size_hint_c(gcpl_id, size_hint)
+ INTEGER FUNCTION h5pset_local_heap_size_hint_c(gcpl_id, size_hint)
USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_LOCAL_HEAP_SIZE_HINT_C'::h5pset_local_heap_size_hint_c
!DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: gcpl_id
INTEGER(SIZE_T), INTENT(IN) :: size_hint
- END FUNCTION H5Pset_local_heap_size_hint_c
+ END FUNCTION h5pset_local_heap_size_hint_c
END INTERFACE
hdferr = H5Pset_local_heap_size_hint_c(gcpl_id, size_hint)
- END SUBROUTINE H5Pset_local_heap_size_hint_f
+ END SUBROUTINE h5pset_local_heap_size_hint_f
!----------------------------------------------------------------------
! Name: H5Pset_est_link_info_f
@@ -7910,7 +7911,7 @@
! Comment:
!----------------------------------------------------------------------
- SUBROUTINE H5Pset_nbit_f(plist_id, hdferr)
+ SUBROUTINE h5pset_nbit_f(plist_id, hdferr)
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -7935,7 +7936,7 @@
hdferr = H5Pset_nbit_c(plist_id)
- END SUBROUTINE H5Pset_nbit_f
+ END SUBROUTINE h5pset_nbit_f
!----------------------------------------------------------------------
! Name: H5Pset_scaleoffset_f
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h
index 4c8aabf..40f5d7a 100644
--- a/fortran/src/H5f90proto.h
+++ b/fortran/src/H5f90proto.h
@@ -578,7 +578,7 @@ H5_FCDLL int_f nh5aget_name_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *
size_t_f *size, hid_t_f *lapl_id); /* MSB */
H5_FCDLL int_f nh5aget_create_plist_c ( hid_t_f *attr_id, hid_t_f *creation_prop_id ); /* MSB */
H5_FCDLL int_f nh5aopen_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
- int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id); /* MSB */
+ int_f *idx_type, int_f *order, hsize_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id); /* MSB */
H5_FCDLL int_f nh5aget_info_c (hid_t_f *loc_id, int_f *corder_valid, int_f *corder,
int_f *cset, hsize_t_f *data_size ); /* MSB */
H5_FCDLL int_f nh5aget_info_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,