mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-12-27 08:01:04 +08:00
Code Issues Packages Projects Releases Wiki Activity
fe7877677a
hdf5/fortran/test/tH5Z.f90

420 lines
15 KiB
Fortran
Raw Normal View History

[svn-r21248] Mereged the F2003 branch into the trunk. Items merged: fortran directory, src/libhdf5.settings.in configure.in configure MANIFEST Tested: (all platforms used by daily tests, both with --enable-fortran and --enable-fortran2003)
2011-08-18 22:32:47 +08:00
!****h* root/fortran/test/tH5Z.f90
!
! NAME
! tH5Z.f90
!
! FUNCTION
! Basic testing of Fortran H5Z szip APIs.
!
! COPYRIGHT
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
[svn-r13256] Updated fortran source code with new THG copyright. Tested: kagiso.
2007-02-08 01:55:01 +08:00
! Copyright by The HDF Group. *
[svn-r6685] Purpose: Added copyright statement; cleaned code and fixed bugs for Windows and Cray T90IEEE Description: Windows and Cray ports exposed few typos in the source code that caused tests to fail Solution: Added copyright statement and clean the code. Platforms tested: CRAY T90IEEE, arabica, modi4 with parallel, Windows 2000 Only static tests (both debug and release) passed on Windows. DLLs have multiple problems ;-) Misc. update:
2003-04-16 06:34:43 +08:00
! Copyright by the Board of Trustees of the University of Illinois. *
! All rights reserved. *
! *
! This file is part of HDF5. The full HDF5 copyright notice, including *
! terms governing use, modification, and redistribution, is contained in *
! the files COPYING and Copyright.html. COPYING can be found at the root *
! of the source code distribution tree; Copyright.html can be found at the *
! root level of an installed copy of the electronic HDF5 document set and *
! is linked from the top-level documents page. It can also be found at *
[svn-r13256] Updated fortran source code with new THG copyright. Tested: kagiso.
2007-02-08 01:55:01 +08:00
! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
! access to either file, you may request a copy from help@hdfgroup.org. *
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
[svn-r6685] Purpose: Added copyright statement; cleaned code and fixed bugs for Windows and Cray T90IEEE Description: Windows and Cray ports exposed few typos in the source code that caused tests to fail Solution: Added copyright statement and clean the code. Platforms tested: CRAY T90IEEE, arabica, modi4 with parallel, Windows 2000 Only static tests (both debug and release) passed on Windows. DLLs have multiple problems ;-) Misc. update:
2003-04-16 06:34:43 +08:00
!
[svn-r21248] Mereged the F2003 branch into the trunk. Items merged: fortran directory, src/libhdf5.settings.in configure.in configure MANIFEST Tested: (all platforms used by daily tests, both with --enable-fortran and --enable-fortran2003)
2011-08-18 22:32:47 +08:00
! CONTAINS SUBROUTINES
! filters_test, szip_test
!
!*****
[svn-r24967] Maintenance: Reorganized and cleaned the code to remove compiler warnings in the Fortran test code and examples. Platforms tested: Manual testing in place and using srcdir on jam, platypus, and emu with default and PGI, Intel and new GNU compilers. ifort compiler was also tested with -i8 and -r8 flags on jam. CMake tested on jam.
2014-04-06 23:56:21 +08:00
MODULE TH5Z
[svn-r21248] Mereged the F2003 branch into the trunk. Items merged: fortran directory, src/libhdf5.settings.in configure.in configure MANIFEST Tested: (all platforms used by daily tests, both with --enable-fortran and --enable-fortran2003)
2011-08-18 22:32:47 +08:00
[svn-r24967] Maintenance: Reorganized and cleaned the code to remove compiler warnings in the Fortran test code and examples. Platforms tested: Manual testing in place and using srcdir on jam, platypus, and emu with default and PGI, Intel and new GNU compilers. ifort compiler was also tested with -i8 and -r8 flags on jam. CMake tested on jam.
2014-04-06 23:56:21 +08:00
CONTAINS
SUBROUTINE filters_test(total_error)
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
! This subroutine tests following functionalities: h5zfilter_avail_f, h5zunregister_f
[svn-r24114] Reverting the changes in r24113 for now because they break parallel make fortran. The changes aren't incorrect, but more work in needed on dependencies and also for enable-parallel. Reverted to r24112.
2013-09-07 06:42:10 +08:00
USE HDF5 ! This module contains all necessary modules
[svn-r24967] Maintenance: Reorganized and cleaned the code to remove compiler warnings in the Fortran test code and examples. Platforms tested: Manual testing in place and using srcdir on jam, platypus, and emu with default and PGI, Intel and new GNU compilers. ifort compiler was also tested with -i8 and -r8 flags on jam. CMake tested on jam.
2014-04-06 23:56:21 +08:00
USE TH5_MISC
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
IMPLICIT NONE
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
INTEGER, INTENT(OUT) :: total_error
[svn-r14923] Maintenance: This check-in merges changes from the fortran_1_8 branch back into the trunk (up to revision 14921) Platforms tested: kagiso with g95 and Intel compilers; more testing will be done after checking in a fresh copy from the trunk. New code itself was tested with all Fortran compilers available at THG
2008-05-04 07:39:37 +08:00
LOGICAL :: status
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
INTEGER(HID_T) :: crtpr_id, xfer_id
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
INTEGER :: nfilters
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
INTEGER :: error
INTEGER(HSIZE_T) :: ch_dims(2)
INTEGER :: RANK = 2
INTEGER :: dlevel = 6
INTEGER :: edc_flag
ch_dims(1) = 10
ch_dims(2) = 3
!
! Deflate filter
!
CALL h5zfilter_avail_f(H5Z_FILTER_DEFLATE_F, status, error)
CALL check("h5zfilter_avail_f", error, total_error)
if(status) then
CALL h5pcreate_f(H5P_DATASET_CREATE_F, crtpr_id, error)
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_deflate_f(crtpr_id, dlevel, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pset_deflate_f", error, total_error)
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
CALL h5pclose_f(crtpr_id,error)
CALL check("h5pclose_f", error, total_error)
endif
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
!
! Shuffle filter
!
CALL h5zfilter_avail_f(H5Z_FILTER_SHUFFLE_F, status, error)
CALL check("h5zfilter_avail_f", error, total_error)
if(status) then
CALL h5pcreate_f(H5P_DATASET_CREATE_F, crtpr_id, error)
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)
[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:
2003-04-09 09:47:03 +08:00
CALL h5pset_shuffle_f(crtpr_id, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pset_shuffle_f", error, total_error)
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
CALL h5pclose_f(crtpr_id,error)
CALL check("h5pclose_f", error, total_error)
endif
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
!
! Checksum filter
!
CALL h5zfilter_avail_f(H5Z_FILTER_FLETCHER32_F, status, error)
CALL check("h5zfilter_avail_f", error, total_error)
if(status) then
CALL h5pcreate_f(H5P_DATASET_CREATE_F, crtpr_id, error)
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_fletcher32_f(crtpr_id, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pset_fletcher32_f", error, total_error)
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
CALL h5pclose_f(crtpr_id,error)
CALL check("h5pclose_f", error, total_error)
CALL h5pcreate_f(H5P_DATASET_XFER_F, xfer_id, error)
CALL check("h5pcreate_f", error, total_error)
CALL h5pset_edc_check_f( xfer_id, H5Z_DISABLE_EDC_F, error)
CALL check("h5pset_edc_check_f", error, total_error)
CALL h5pget_edc_check_f( xfer_id, edc_flag, error)
CALL check("h5pget_edc_check_f", error, total_error)
if (edc_flag .ne. H5Z_DISABLE_EDC_F) then
write(*,*) "EDC status is wrong"
total_error = total_error + 1
endif
CALL h5pclose_f(xfer_id, error)
CALL check("h5pclose_f", error, total_error)
endif
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
!
[svn-r8149] Purpose: replaced name of delete filter with remove filter for the new function H5Premove_filter Description: Solution: Platforms tested: linux Misc. update:
2004-02-05 03:36:12 +08:00
! Verify h5premove_filter_f
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
!
CALL h5zfilter_avail_f(H5Z_FILTER_FLETCHER32_F, status, error)
CALL check("h5zfilter_avail_f", error, total_error)
if(status) then
CALL h5zfilter_avail_f(H5Z_FILTER_SHUFFLE_F, status, error)
CALL check("h5zfilter_avail_f", error, total_error)
if(status) then
CALL h5pcreate_f(H5P_DATASET_CREATE_F, crtpr_id, error)
CALL check("h5pcreate_f", error, total_error)
CALL h5pset_fletcher32_f(crtpr_id, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pset_fletcher32_f", error, total_error)
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
CALL h5pset_shuffle_f(crtpr_id, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pset_shuffle_f", error, total_error)
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
CALL h5pget_nfilters_f(crtpr_id, nfilters, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pget_nfilters_f", error, total_error)
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
! Verify the correct number of filters
if (nfilters .ne. 2) then
write(*,*) "number of filters is wrong"
total_error = total_error + 1
endif
! Delete a single filter
[svn-r8149] Purpose: replaced name of delete filter with remove filter for the new function H5Premove_filter Description: Solution: Platforms tested: linux Misc. update:
2004-02-05 03:36:12 +08:00
CALL h5premove_filter_f(crtpr_id, H5Z_FILTER_SHUFFLE_F, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pset_shuffle_f", error, total_error)
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
! Verify the correct number of filters now
CALL h5pget_nfilters_f(crtpr_id, nfilters, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pget_nfilters_f", error, total_error)
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
if (nfilters .ne. 1) then
write(*,*) "number of filters is wrong"
total_error = total_error + 1
endif
! Delete all filters
[svn-r8150] Purpose: introduced the constant H5Z_FILTER_ALL, used to remove all filters in H5Premove_filter Description: Solution: Platforms tested: linux Misc. update:
2004-02-05 04:35:37 +08:00
CALL h5premove_filter_f(crtpr_id, H5Z_FILTER_ALL_F, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5premove_filter_f", error, total_error)
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
! Verify the correct number of filters now
CALL h5pget_nfilters_f(crtpr_id, nfilters, error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CALL check("h5pget_nfilters_f", error, total_error)
[svn-r8117] Purpose: Code cleanup Description: Add C++ and FORTRAN wrappers for new H5Pdelete_filter routine, along with documentation and a note in the release notes. Platforms tested: FreeBSD 4.9 (sleipnir) Linux 2.4 (verbena) w/ C++ and FORTRAN Too minor for full h5committest
2004-01-28 04:39:20 +08:00
if (nfilters .ne. 0) then
write(*,*) "number of filters is wrong"
total_error = total_error + 1
endif
CALL h5pclose_f(crtpr_id,error)
CALL check("h5pclose_f", error, total_error)
endif
endif
[svn-r6495] Purpose: Catching up with the C library Description: Added tests for the follwoing new fortran functions h5iget_name_f h5tis_variavle_str_f h5zunregister_f h5zfilter_avail_f h5pset_shuffle_f h5pset_fletcher32 h5pset_edc_check_f h5pget_edc_check_f h5dfill_f Solution: Platforms tested: arabica(C and F90), burrwhite (pgcc and pgf90), modi4 (F90 and parallel) Misc. update:
2003-03-20 00:13:57 +08:00
RETURN
END SUBROUTINE filters_test
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
SUBROUTINE szip_test(szip_flag, cleanup, total_error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
USE HDF5 ! This module contains all necessary modules
[svn-r24967] Maintenance: Reorganized and cleaned the code to remove compiler warnings in the Fortran test code and examples. Platforms tested: Manual testing in place and using srcdir on jam, platypus, and emu with default and PGI, Intel and new GNU compilers. ifort compiler was also tested with -i8 and -r8 flags on jam. CMake tested on jam.
2014-04-06 23:56:21 +08:00
USE TH5_MISC
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
IMPLICIT NONE
LOGICAL, INTENT(OUT) :: szip_flag
LOGICAL, INTENT(IN) :: cleanup
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
INTEGER, INTENT(OUT) :: total_error
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CHARACTER(LEN=4), PARAMETER :: filename = "szip" ! File name
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CHARACTER(LEN=80) :: fix_filename
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CHARACTER(LEN=4), PARAMETER :: dsetname = "dset" ! Dataset name
INTEGER, PARAMETER :: N = 1024
[svn-r8011] Purpose: Bug fix Description: Fix szip FORTRAN tests.. Solution: Increase the chunk size to be bigger than the szip 'pixels per block'. Also add in code that checks for a maximum number of errors and doesn't keep reporting that thousands of errors have occurred. Platforms tested: Linux 2.4 (verbena) w/szip & FORTRAN Not tested w/h5committest since this combination isn't covered by it.
2004-01-02 13:05:23 +08:00
INTEGER, PARAMETER :: NN = 64
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
INTEGER, PARAMETER :: M = 512
[svn-r8011] Purpose: Bug fix Description: Fix szip FORTRAN tests.. Solution: Increase the chunk size to be bigger than the szip 'pixels per block'. Also add in code that checks for a maximum number of errors and doesn't keep reporting that thousands of errors have occurred. Platforms tested: Linux 2.4 (verbena) w/szip & FORTRAN Not tested w/h5committest since this combination isn't covered by it.
2004-01-02 13:05:23 +08:00
INTEGER, PARAMETER :: MM = 32
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
INTEGER(HID_T) :: file_id ! File identifier
INTEGER(HID_T) :: dset_id ! Dataset identifier
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
INTEGER(HID_T) :: dspace_id ! Dataspace identifier
INTEGER(HID_T) :: dtype_id ! Datatype identifier
INTEGER(HSIZE_T), DIMENSION(2) :: dims = (/N,M/) ! Dataset dimensions
INTEGER(HSIZE_T), DIMENSION(2) :: chunk_dims = (/NN, MM/)
INTEGER :: rank = 2 ! Dataset rank
INTEGER, DIMENSION(N,M) :: dset_data, data_out ! Data buffers
INTEGER :: error ! Error flag
[svn-r8011] Purpose: Bug fix Description: Fix szip FORTRAN tests.. Solution: Increase the chunk size to be bigger than the szip 'pixels per block'. Also add in code that checks for a maximum number of errors and doesn't keep reporting that thousands of errors have occurred. Platforms tested: Linux 2.4 (verbena) w/szip & FORTRAN Not tested w/h5committest since this combination isn't covered by it.
2004-01-02 13:05:23 +08:00
INTEGER :: num_errors = 0 ! Number of data errors
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
INTEGER :: i, j !general purpose integers
[svn-r8404] Purpose: Maintenance Description: h5dwrite/read_f and h5awrite_read_f functions were overloaded with dims argument being of type INTEGER and INTEGER(HSIZE_T). We promised to remove overloading in 1.4 release. It was removed from documentation but not from the source code. Solution: Finish code cleanup. Platforms tested: Solaris 2.7 32 and 64 bit, and copper with --enable- parallel. Windows are broken, so Kent and Xuan will test it with their changes later. Misc. update:
2004-04-23 01:18:46 +08:00
INTEGER(HSIZE_T), DIMENSION(2) :: data_dims
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
INTEGER(HID_T) :: crp_list
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
INTEGER :: options_mask, pix_per_block
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
LOGICAL :: flag
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
CHARACTER(LEN=4) filter_name
[svn-r8781] Purpose: HDF5 now supports SZIP with no encoder. Description: SZIP can be configured to have both encoder and decoder or just to have the decoder. HDF5 can now query the configuration of any filter, and will throw errors if users try to write using a filter with encoding disabled. Solution: Added H5Zget_filter_info function, changed API for H5Pget_filter and H5P_get_filter_by_id. See SZIP RFC. Platforms tested: Copper (fortran, C++, parallel), Sleipnir (C++), Arabica (fortran, C++), Verbena (fortran, C++) Misc. update:
2004-07-02 01:38:04 +08:00
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
INTEGER :: filter_flag = -1
INTEGER(SIZE_T) :: cd_nelemnts = 4
INTEGER(SIZE_T) :: filter_name_len = 4
[svn-r9727] Purpose: Bug Fix/Code Cleanup/Doc Cleanup/Optimization/Branch Sync :-) Description: Generally speaking, this is the "signed->unsigned" change to selections. However, in the process of merging code back, things got stickier and stickier until I ended up doing a big "sync the two branches up" operation. So... I brought back all the "infrastructure" fixes from the development branch to the release branch (which I think were actually making some improvement in performance) as well as fixed several bugs which had been fixed in one branch, but not the other. I've also tagged the repository before making this checkin with the label "before_signed_unsigned_changes". Platforms tested: FreeBSD 4.10 (sleipnir) w/parallel & fphdf5 FreeBSD 4.10 (sleipnir) w/threadsafe FreeBSD 4.10 (sleipnir) w/backward compatibility Solaris 2.7 (arabica) w/"purify options" Solaris 2.8 (sol) w/FORTRAN & C++ AIX 5.x (copper) w/parallel & FORTRAN IRIX64 6.5 (modi4) w/FORTRAN Linux 2.4 (heping) w/FORTRAN & C++ Misc. update:
2004-12-29 22:26:20 +08:00
INTEGER, DIMENSION(4) :: cd_values
INTEGER :: config_flag = 0 ! for h5zget_filter_info_f
[svn-r9823] Purpose: Bug fix Description: Test reported failure because of the wrong testing condition when szip didn't have encoder Solution: Fixed the code Platforms tested: copper with SZIP not present SZIP encoder/decoder present SZIP decoder present Misc. update:
2005-01-14 11:06:07 +08:00
INTEGER :: config_flag_both = 0 ! for h5zget_filter_info_f
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
[svn-r8781] Purpose: HDF5 now supports SZIP with no encoder. Description: SZIP can be configured to have both encoder and decoder or just to have the decoder. HDF5 can now query the configuration of any filter, and will throw errors if users try to write using a filter with encoding disabled. Solution: Added H5Zget_filter_info function, changed API for H5Pget_filter and H5P_get_filter_by_id. See SZIP RFC. Platforms tested: Copper (fortran, C++, parallel), Sleipnir (C++), Arabica (fortran, C++), Verbena (fortran, C++) Misc. update:
2004-07-02 01:38:04 +08:00
!
! Verify that SZIP exists and has an encoder
!
[svn-r9803] Purpose: Bug fix Description: Fortran szip test had a wrong logic; as a result wrong return values were reported in the absence of the SZIP library, and it was skipped when encoder was disable Solution: Fixed the test Now SZIP fortran test should report "SKIP" only when SZIP is not configured in. Platforms tested: tg-login in parallel mode, copper, mir with new PGI compilers and shared SZIP libraries. All platforms were tested with SZIP not available SZIP with encoder/decoder SZIP with decoder only Misc. update:
2005-01-11 09:37:00 +08:00
CALL h5zfilter_avail_f(H5Z_FILTER_SZIP_F, szip_flag, error)
[svn-r9727] Purpose: Bug Fix/Code Cleanup/Doc Cleanup/Optimization/Branch Sync :-) Description: Generally speaking, this is the "signed->unsigned" change to selections. However, in the process of merging code back, things got stickier and stickier until I ended up doing a big "sync the two branches up" operation. So... I brought back all the "infrastructure" fixes from the development branch to the release branch (which I think were actually making some improvement in performance) as well as fixed several bugs which had been fixed in one branch, but not the other. I've also tagged the repository before making this checkin with the label "before_signed_unsigned_changes". Platforms tested: FreeBSD 4.10 (sleipnir) w/parallel & fphdf5 FreeBSD 4.10 (sleipnir) w/threadsafe FreeBSD 4.10 (sleipnir) w/backward compatibility Solaris 2.7 (arabica) w/"purify options" Solaris 2.8 (sol) w/FORTRAN & C++ AIX 5.x (copper) w/parallel & FORTRAN IRIX64 6.5 (modi4) w/FORTRAN Linux 2.4 (heping) w/FORTRAN & C++ Misc. update:
2004-12-29 22:26:20 +08:00
CALL check("h5zfilter_avail", error, total_error)
[svn-r8781] Purpose: HDF5 now supports SZIP with no encoder. Description: SZIP can be configured to have both encoder and decoder or just to have the decoder. HDF5 can now query the configuration of any filter, and will throw errors if users try to write using a filter with encoding disabled. Solution: Added H5Zget_filter_info function, changed API for H5Pget_filter and H5P_get_filter_by_id. See SZIP RFC. Platforms tested: Copper (fortran, C++, parallel), Sleipnir (C++), Arabica (fortran, C++), Verbena (fortran, C++) Misc. update:
2004-07-02 01:38:04 +08:00
[svn-r9803] Purpose: Bug fix Description: Fortran szip test had a wrong logic; as a result wrong return values were reported in the absence of the SZIP library, and it was skipped when encoder was disable Solution: Fixed the test Now SZIP fortran test should report "SKIP" only when SZIP is not configured in. Platforms tested: tg-login in parallel mode, copper, mir with new PGI compilers and shared SZIP libraries. All platforms were tested with SZIP not available SZIP with encoder/decoder SZIP with decoder only Misc. update:
2005-01-11 09:37:00 +08:00
! Quit if failed
if (error .ne. 0) return
! Skip if no SZIP available
if (.NOT. szip_flag)then
return
else !SZIP available
! Continue
CALL h5zget_filter_info_f(H5Z_FILTER_SZIP_F, config_flag, error)
CALL check("h5zget_filter_info_f", error, total_error)
! Quit if failed
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
if (error .ne. 0) return
[svn-r9727] Purpose: Bug Fix/Code Cleanup/Doc Cleanup/Optimization/Branch Sync :-) Description: Generally speaking, this is the "signed->unsigned" change to selections. However, in the process of merging code back, things got stickier and stickier until I ended up doing a big "sync the two branches up" operation. So... I brought back all the "infrastructure" fixes from the development branch to the release branch (which I think were actually making some improvement in performance) as well as fixed several bugs which had been fixed in one branch, but not the other. I've also tagged the repository before making this checkin with the label "before_signed_unsigned_changes". Platforms tested: FreeBSD 4.10 (sleipnir) w/parallel & fphdf5 FreeBSD 4.10 (sleipnir) w/threadsafe FreeBSD 4.10 (sleipnir) w/backward compatibility Solaris 2.7 (arabica) w/"purify options" Solaris 2.8 (sol) w/FORTRAN & C++ AIX 5.x (copper) w/parallel & FORTRAN IRIX64 6.5 (modi4) w/FORTRAN Linux 2.4 (heping) w/FORTRAN & C++ Misc. update:
2004-12-29 22:26:20 +08:00
!
! Make sure h5zget_filter_info_f returns the right flag
!
[svn-r9823] Purpose: Bug fix Description: Test reported failure because of the wrong testing condition when szip didn't have encoder Solution: Fixed the code Platforms tested: copper with SZIP not present SZIP encoder/decoder present SZIP decoder present Misc. update:
2005-01-14 11:06:07 +08:00
config_flag_both=IOR(H5Z_FILTER_ENCODE_ENABLED_F,H5Z_FILTER_DECODE_ENABLED_F)
[svn-r9803] Purpose: Bug fix Description: Fortran szip test had a wrong logic; as a result wrong return values were reported in the absence of the SZIP library, and it was skipped when encoder was disable Solution: Fixed the test Now SZIP fortran test should report "SKIP" only when SZIP is not configured in. Platforms tested: tg-login in parallel mode, copper, mir with new PGI compilers and shared SZIP libraries. All platforms were tested with SZIP not available SZIP with encoder/decoder SZIP with decoder only Misc. update:
2005-01-11 09:37:00 +08:00
if( szip_flag ) then
[svn-r9823] Purpose: Bug fix Description: Test reported failure because of the wrong testing condition when szip didn't have encoder Solution: Fixed the code Platforms tested: copper with SZIP not present SZIP encoder/decoder present SZIP decoder present Misc. update:
2005-01-14 11:06:07 +08:00
if (config_flag .NE. config_flag_both) then
if(config_flag .NE. H5Z_FILTER_DECODE_ENABLED_F) then
error = -1
CALL check("h5zget_filter_info_f config_flag", error, total_error)
endif
[svn-r9727] Purpose: Bug Fix/Code Cleanup/Doc Cleanup/Optimization/Branch Sync :-) Description: Generally speaking, this is the "signed->unsigned" change to selections. However, in the process of merging code back, things got stickier and stickier until I ended up doing a big "sync the two branches up" operation. So... I brought back all the "infrastructure" fixes from the development branch to the release branch (which I think were actually making some improvement in performance) as well as fixed several bugs which had been fixed in one branch, but not the other. I've also tagged the repository before making this checkin with the label "before_signed_unsigned_changes". Platforms tested: FreeBSD 4.10 (sleipnir) w/parallel & fphdf5 FreeBSD 4.10 (sleipnir) w/threadsafe FreeBSD 4.10 (sleipnir) w/backward compatibility Solaris 2.7 (arabica) w/"purify options" Solaris 2.8 (sol) w/FORTRAN & C++ AIX 5.x (copper) w/parallel & FORTRAN IRIX64 6.5 (modi4) w/FORTRAN Linux 2.4 (heping) w/FORTRAN & C++ Misc. update:
2004-12-29 22:26:20 +08:00
endif
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
endif
[svn-r8781] Purpose: HDF5 now supports SZIP with no encoder. Description: SZIP can be configured to have both encoder and decoder or just to have the decoder. HDF5 can now query the configuration of any filter, and will throw errors if users try to write using a filter with encoding disabled. Solution: Added H5Zget_filter_info function, changed API for H5Pget_filter and H5P_get_filter_by_id. See SZIP RFC. Platforms tested: Copper (fortran, C++, parallel), Sleipnir (C++), Arabica (fortran, C++), Verbena (fortran, C++) Misc. update:
2004-07-02 01:38:04 +08:00
[svn-r9803] Purpose: Bug fix Description: Fortran szip test had a wrong logic; as a result wrong return values were reported in the absence of the SZIP library, and it was skipped when encoder was disable Solution: Fixed the test Now SZIP fortran test should report "SKIP" only when SZIP is not configured in. Platforms tested: tg-login in parallel mode, copper, mir with new PGI compilers and shared SZIP libraries. All platforms were tested with SZIP not available SZIP with encoder/decoder SZIP with decoder only Misc. update:
2005-01-11 09:37:00 +08:00
! Continue only when encoder is available
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
if ( IAND(config_flag, H5Z_FILTER_ENCODE_ENABLED_F) .EQ. 0 ) return
[svn-r9803] Purpose: Bug fix Description: Fortran szip test had a wrong logic; as a result wrong return values were reported in the absence of the SZIP library, and it was skipped when encoder was disable Solution: Fixed the test Now SZIP fortran test should report "SKIP" only when SZIP is not configured in. Platforms tested: tg-login in parallel mode, copper, mir with new PGI compilers and shared SZIP libraries. All platforms were tested with SZIP not available SZIP with encoder/decoder SZIP with decoder only Misc. update:
2005-01-11 09:37:00 +08:00
[svn-r8799] Purpose: Maintenance Description: H5_SZIP_CHIP_OPTION_MASK was deleted from the list of the available parameters for the H5Pset_szip function. Solution: Updated Fortran source, tests and documentation to reflect this change. Platforms tested: arabica (too small for h5committest) Misc. update:
2004-07-03 10:39:24 +08:00
options_mask = H5_SZIP_NN_OM_F
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
pix_per_block = 32
!
! Initialize the dset_data array.
!
do i = 1, N
do j = 1, M
dset_data(i,j) = (i-1)*6 + j;
end do
end do
!
! Create a new file using default properties.
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CALL h5_fixname_f(filename, fix_filename, H5P_DEFAULT_F, error)
if (error .ne. 0) then
write(*,*) "Cannot modify filename"
stop
endif
CALL h5fcreate_f(fix_filename, H5F_ACC_TRUNC_F, file_id, error)
CALL check("h5fcreate_f", error, total_error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
! Create the dataspace.
!
CALL h5screate_simple_f(rank, dims, dspace_id, error)
CALL check("h5screate_simple_f", error, total_error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CALL h5pcreate_f(H5P_DATASET_CREATE_F, crp_list, error)
CALL check("h5pcreat_f",error,total_error)
CALL h5pset_chunk_f(crp_list, rank, chunk_dims, error)
CALL check("h5pset_chunk_f",error,total_error)
CALL h5pset_szip_f(crp_list, options_mask, pix_per_block, error)
CALL check("h5pset_szip_f",error,total_error)
CALL h5pall_filters_avail_f(crp_list, flag, error)
CALL check("h5pall_filters_avail_f",error,total_error)
if (.NOT. flag) then
CALL h5pclose_f(crp_list, error)
CALL h5sclose_f(dspace_id, error)
CALL h5fclose_f(file_id, error)
[svn-r9727] Purpose: Bug Fix/Code Cleanup/Doc Cleanup/Optimization/Branch Sync :-) Description: Generally speaking, this is the "signed->unsigned" change to selections. However, in the process of merging code back, things got stickier and stickier until I ended up doing a big "sync the two branches up" operation. So... I brought back all the "infrastructure" fixes from the development branch to the release branch (which I think were actually making some improvement in performance) as well as fixed several bugs which had been fixed in one branch, but not the other. I've also tagged the repository before making this checkin with the label "before_signed_unsigned_changes". Platforms tested: FreeBSD 4.10 (sleipnir) w/parallel & fphdf5 FreeBSD 4.10 (sleipnir) w/threadsafe FreeBSD 4.10 (sleipnir) w/backward compatibility Solaris 2.7 (arabica) w/"purify options" Solaris 2.8 (sol) w/FORTRAN & C++ AIX 5.x (copper) w/parallel & FORTRAN IRIX64 6.5 (modi4) w/FORTRAN Linux 2.4 (heping) w/FORTRAN & C++ Misc. update:
2004-12-29 22:26:20 +08:00
szip_flag = .FALSE.
total_error = -1
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
return
endif
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CALL h5pget_filter_by_id_f(crp_list, H5Z_FILTER_SZIP_F, filter_flag, &
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
cd_nelemnts, cd_values,&
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
filter_name_len, filter_name, error)
CALL check("h5pget_filter_by_id_f",error,total_error)
!
! Create the dataset with default properties.
!
CALL h5dcreate_f(file_id, dsetname, H5T_NATIVE_INTEGER, dspace_id, &
dset_id, error, crp_list)
CALL check("h5dcreate_f", error, total_error)
!
! Write the dataset.
!
[svn-r8404] Purpose: Maintenance Description: h5dwrite/read_f and h5awrite_read_f functions were overloaded with dims argument being of type INTEGER and INTEGER(HSIZE_T). We promised to remove overloading in 1.4 release. It was removed from documentation but not from the source code. Solution: Finish code cleanup. Platforms tested: Solaris 2.7 32 and 64 bit, and copper with --enable- parallel. Windows are broken, so Kent and Xuan will test it with their changes later. Misc. update:
2004-04-23 01:18:46 +08:00
data_dims(1) = N
data_dims(2) = M
CALL h5dwrite_f(dset_id, H5T_NATIVE_INTEGER, dset_data, data_dims, error)
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CALL check("h5dwrite_f", error, total_error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
! End access to the dataset and release resources used by it.
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
!
! Terminate access to the data space.
!
CALL h5sclose_f(dspace_id, error)
CALL check("h5sclose_f", error, total_error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
! Close the file.
!
CALL h5pclose_f(crp_list, error)
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f", error, total_error)
!
! Open the existing file.
!
CALL h5fopen_f (fix_filename, H5F_ACC_RDWR_F, file_id, error)
CALL check("h5fopen_f", error, total_error)
!
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
! Open the existing dataset.
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
!
CALL h5dopen_f(file_id, dsetname, dset_id, error)
CALL check("h5dopen_f", error, total_error)
CALL check("h5pget_filter_by_id_f",error,total_error)
!
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
! Get the dataset type.
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
!
CALL h5dget_type_f(dset_id, dtype_id, error)
CALL check("h5dget_type_f", error, total_error)
!
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
! Get the data space.
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
!
CALL h5dget_space_f(dset_id, dspace_id, error)
CALL check("h5dget_space_f", error, total_error)
!
! Read the dataset.
!
[svn-r8404] Purpose: Maintenance Description: h5dwrite/read_f and h5awrite_read_f functions were overloaded with dims argument being of type INTEGER and INTEGER(HSIZE_T). We promised to remove overloading in 1.4 release. It was removed from documentation but not from the source code. Solution: Finish code cleanup. Platforms tested: Solaris 2.7 32 and 64 bit, and copper with --enable- parallel. Windows are broken, so Kent and Xuan will test it with their changes later. Misc. update:
2004-04-23 01:18:46 +08:00
CALL h5dread_f (dset_id, H5T_NATIVE_INTEGER, data_out, data_dims, error)
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CALL check("h5dread_f", error, total_error)
!
!Compare the data.
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
do i = 1, N
do j = 1, M
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
IF (data_out(i,j) .NE. dset_data(i, j)) THEN
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
write(*, *) "dataset test error occured"
[svn-r8011] Purpose: Bug fix Description: Fix szip FORTRAN tests.. Solution: Increase the chunk size to be bigger than the szip 'pixels per block'. Also add in code that checks for a maximum number of errors and doesn't keep reporting that thousands of errors have occurred. Platforms tested: Linux 2.4 (verbena) w/szip & FORTRAN Not tested w/h5committest since this combination isn't covered by it.
2004-01-02 13:05:23 +08:00
write(*,*) "data read is not the same as the data written"
num_errors = num_errors + 1
IF (num_errors .GE. 512) THEN
write(*, *) "maximum data errors reached"
goto 100
END IF
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
END IF
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
end do
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
end do
[svn-r8011] Purpose: Bug fix Description: Fix szip FORTRAN tests.. Solution: Increase the chunk size to be bigger than the szip 'pixels per block'. Also add in code that checks for a maximum number of errors and doesn't keep reporting that thousands of errors have occurred. Platforms tested: Linux 2.4 (verbena) w/szip & FORTRAN Not tested w/h5committest since this combination isn't covered by it.
2004-01-02 13:05:23 +08:00
100 IF (num_errors .GT. 0) THEN
total_error=total_error + 1
END IF
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
! End access to the dataset and release resources used by it.
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
CALL h5dclose_f(dset_id, error)
CALL check("h5dclose_f", error, total_error)
!
! Terminate access to the data space.
!
CALL h5sclose_f(dspace_id, error)
CALL check("h5sclose_f", error, total_error)
!
! Terminate access to the data type.
!
CALL h5tclose_f(dtype_id, error)
CALL check("h5tclose_f", error, total_error)
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
!
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
! Close the file.
!
CALL h5fclose_f(file_id, error)
CALL check("h5fclose_f", error, total_error)
if(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error)
CALL check("h5_cleanup_f", error, total_error)
[svn-r9803] Purpose: Bug fix Description: Fortran szip test had a wrong logic; as a result wrong return values were reported in the absence of the SZIP library, and it was skipped when encoder was disable Solution: Fixed the test Now SZIP fortran test should report "SKIP" only when SZIP is not configured in. Platforms tested: tg-login in parallel mode, copper, mir with new PGI compilers and shared SZIP libraries. All platforms were tested with SZIP not available SZIP with encoder/decoder SZIP with decoder only Misc. update:
2005-01-11 09:37:00 +08:00
endif ! SZIP available
[svn-r18197] Description: Trim trailing whitespace from source code files with this command: find . \( -name "*.[ch]" -or -name "*.cpp" -or -name "*.f90" \) -print |xargs -n 1 sed -i "" 's/[[:blank:]]*$//' Tested on: None - eyeballed only
2010-01-30 12:29:13 +08:00
[svn-r6642] Purpose: Catching up with C library Description: I added tests for new functions h5pset_szip_f h5pget_filter_by_id_f h5pall_filters_avail_f I am not sure how to test h5pmodify_filter_f. Solution: Platforms tested: arabica (with and without SZIP Library), modi4 (with SZIP and parallel) burrwhite (with SZIP and PGI C and Fortran compilers) Misc. update:
2003-04-12 12:11:30 +08:00
RETURN
END SUBROUTINE szip_test
[svn-r24967] Maintenance: Reorganized and cleaned the code to remove compiler warnings in the Fortran test code and examples. Platforms tested: Manual testing in place and using srcdir on jam, platypus, and emu with default and PGI, Intel and new GNU compilers. ifort compiler was also tested with -i8 and -r8 flags on jam. CMake tested on jam.
2014-04-06 23:56:21 +08:00
END MODULE TH5Z
Reference in New Issue Copy Permalink