summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2003-04-09 01:47:03 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2003-04-09 01:47:03 (GMT)
commit5f94cb8141808378ed4d8cf6af82bdbe293c8855 (patch)
treee91c5eb78ae21e50c24f7d954426607b7f7582a2 /fortran
parentc319d5813a372e92ccfb3029878013d8b5cbb4ec (diff)
downloadhdf5-5f94cb8141808378ed4d8cf6af82bdbe293c8855.zip
hdf5-5f94cb8141808378ed4d8cf6af82bdbe293c8855.tar.gz
hdf5-5f94cb8141808378ed4d8cf6af82bdbe293c8855.tar.bz2
[svn-r6602] Purpose:
Code cleanup Description: Adjusted parameters for fortran wrappers of H5Pset_shuffle to match the changes to the C API function. Solution: Platforms tested: FreeBSD 4.8 (sleipnir) w/szip Linux 2.4 (sleipnir) w/szip Solaris 2.7 (arabica) w/FORTRAN IRIX64 6.5 (modi4) w/szip, FORTRAN & parallel Misc. update:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Pf.c6
-rw-r--r--fortran/src/H5Pff.f909
-rw-r--r--fortran/src/H5f90proto.h2
-rw-r--r--fortran/test/tH5Z.f903
4 files changed, 7 insertions, 13 deletions
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index 57f2f7d..01e4af1 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -2819,16 +2819,14 @@ DONE:
*---------------------------------------------------------------------------*/
int_f
-nh5pset_shuffle_c ( hid_t_f *prp_id , int_f *type_size)
+nh5pset_shuffle_c ( hid_t_f *prp_id )
{
int ret_value = 0;
hid_t c_prp_id;
- int c_type_size;
herr_t status;
c_prp_id = (hid_t)*prp_id;
- c_type_size = (int)*type_size ;
- status = H5Pset_shuffle(c_prp_id, c_type_size);
+ status = H5Pset_shuffle(c_prp_id);
if ( status < 0 ) ret_value = -1;
return ret_value;
}
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90
index 23d59f0..e6f4593 100644
--- a/fortran/src/H5Pff.f90
+++ b/fortran/src/H5Pff.f90
@@ -5691,7 +5691,6 @@
!
! Inputs:
! prp_id - dataset creation property list identifier
-! type_size - size of the datatype
! Outputs:
! hdferr: - error code
! Success: 0
@@ -5708,7 +5707,7 @@
!----------------------------------------------------------------------
- SUBROUTINE h5pset_shuffle_f(prp_id, type_size, hdferr)
+ SUBROUTINE h5pset_shuffle_f(prp_id, hdferr)
!
!This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL)
@@ -5717,23 +5716,21 @@
!
IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: prp_id ! Property list identifier
- INTEGER, INTENT(IN) :: type_size ! iSize in bytes of the datatype
INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: h5pset_shuffle_c
! MS FORTRAN needs explicit interface for C functions called here.
!
INTERFACE
- INTEGER FUNCTION h5pset_shuffle_c(prp_id, type_size)
+ INTEGER FUNCTION h5pset_shuffle_c(prp_id)
USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS)
!MS$ATTRIBUTES C,reference,alias:'_H5PSET_SHUFFLE_C'::h5pset_shuffle_c
!DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: prp_id
- INTEGER, INTENT(IN) :: type_size
END FUNCTION h5pset_shuffle_c
END INTERFACE
- hdferr = h5pset_shuffle_c(prp_id, type_size)
+ hdferr = h5pset_shuffle_c(prp_id)
END SUBROUTINE h5pset_shuffle_f
diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h
index 095768f..4d53ba5 100644
--- a/fortran/src/H5f90proto.h
+++ b/fortran/src/H5f90proto.h
@@ -1054,7 +1054,7 @@ H5_DLL int_f nh5premove_c(hid_t_f *plid, _fcd name, int_f *name_len);
H5_DLL int_f nh5punregister_c(hid_t_f *class, _fcd name, int_f *name_len);
H5_DLL int_f nh5pclose_class_c(hid_t_f * class);
H5_DLL int_f nh5pget_class_name_c(hid_t_f *prp_id, _fcd name, int_f *name_len);
-H5_DLL int_f nh5pset_shuffle_c ( hid_t_f *prp_id , int_f *type_size);
+H5_DLL int_f nh5pset_shuffle_c ( hid_t_f *prp_id);
H5_DLL int_f nh5pset_fletcher32_c ( hid_t_f *prp_id );
H5_DLL int_f nh5pset_edc_check_c ( hid_t_f *prp_id, int_f *flag );
H5_DLL int_f nh5pget_edc_check_c ( hid_t_f *prp_id, int_f *flag );
diff --git a/fortran/test/tH5Z.f90 b/fortran/test/tH5Z.f90
index 921bbd1..f062c0b 100644
--- a/fortran/test/tH5Z.f90
+++ b/fortran/test/tH5Z.f90
@@ -14,7 +14,6 @@
INTEGER(HSIZE_T) :: ch_dims(2)
INTEGER :: RANK = 2
INTEGER :: dlevel = 6
- INTEGER :: tsize = 4
INTEGER :: edc_flag
ch_dims(1) = 10
@@ -45,7 +44,7 @@
CALL check("h5pcreate_f", error, total_error)
CALL h5pset_chunk_f(crtpr_id, RANK, ch_dims, error)
CALL check("h5pset_chunk_f",error, total_error)
- CALL h5pset_shuffle_f(crtpr_id, tsize, error)
+ CALL h5pset_shuffle_f(crtpr_id, error)
CALL check("h5pset_shuffle_f", error, total_error)
CALL h5pclose_f(crtpr_id,error)
CALL check("h5pclose_f", error, total_error)