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/test | |
| 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/test')
| -rw-r--r-- | fortran/test/tH5Z.f90 | 3 |
1 files changed, 1 insertions, 2 deletions
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) |