diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-04-09 01:47:03 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-04-09 01:47:03 (GMT) |
| commit | 5f94cb8141808378ed4d8cf6af82bdbe293c8855 (patch) | |
| tree | e91c5eb78ae21e50c24f7d954426607b7f7582a2 /fortran/src/H5Pff.f90 | |
| parent | c319d5813a372e92ccfb3029878013d8b5cbb4ec (diff) | |
| download | hdf5-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/src/H5Pff.f90')
| -rw-r--r-- | fortran/src/H5Pff.f90 | 9 |
1 files changed, 3 insertions, 6 deletions
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 |