Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Fixed spacing issues in example tests. #3979

Merged
merged 4 commits into from
Feb 2, 2024
Merged

Fixed spacing issues in example tests. #3979

Show file tree
Hide file tree
Changes from 2 commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
649b44e
The space difference in the Fortran examples must be fixed to match t…
brtnfld Feb 1, 2024
4dc61f6
The space difference in the Fortran examples must be fixed to match t…
brtnfld Feb 1, 2024
08aa83f
fixed typo
brtnfld Feb 1, 2024
ed9d7e0
fixed typo
brtnfld Feb 1, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 7 additions & 5 deletions HDF5Examples/FORTRAN/H5D/h5ex_d_checksum.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -120,15 +120,17 @@ PROGRAM main
!
nelmts = 0
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, MaxChrLen, name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
WRITE(*,'(A,1X)', ADVANCE='NO') "Filter type is:"
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
WRITE(*,'(A)') "H5Z_FILTER_DEFLATE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
WRITE(*,'(A)') "H5Z_FILTER_SHUFFLE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
WRITE(*,'(A)') "H5Z_FILTER_FLETCHER32_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
WRITE(*,'(" H5Z_FILTER_SZIP_F")')
WRITE(*,'(A)') "H5Z_FILTER_SZIP_F"
ELSE
WRITE(*,'(A)') "UNKNOWN"
ENDIF
!
! Read the data using the default properties.
Expand Down
12 changes: 7 additions & 5 deletions HDF5Examples/FORTRAN/H5D/h5ex_d_gzip.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -118,15 +118,17 @@ PROGRAM main
!
nelmts = 1
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, MaxChrLen, name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
WRITE(*,'(A,1X)', ADVANCE='NO') "Filter type is:"
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
WRITE(*,'(A)') "H5Z_FILTER_DEFLATE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
WRITE(*,'(A)') "H5Z_FILTER_SHUFFLE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
WRITE(*,'(A)') "H5Z_FILTER_FLETCHER32_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
WRITE(*,'(" H5Z_FILTER_SZIP_F")')
WRITE(*,'(A)') "H5Z_FILTER_SZIP_F"
ELSE
WRITE(*,'(A)') "UNKNOWN"
ENDIF
!
! Read the data using the default properties.
Expand Down
14 changes: 8 additions & 6 deletions HDF5Examples/FORTRAN/H5D/h5ex_d_nbit.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -125,17 +125,19 @@ PROGRAM main
! first filter because we know that we only added one filter.
!
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, INT(MaxChrLen, SIZE_T), name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
WRITE(*,'(A,1X)', ADVANCE='NO') "Filter type is:"
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
WRITE(*,'(A)') "H5Z_FILTER_DEFLATE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
WRITE(*,'(A)') "H5Z_FILTER_SHUFFLE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
WRITE(*,'(A)') "H5Z_FILTER_FLETCHER32_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
WRITE(*,'(" H5Z_FILTER_SZIP_F")')
WRITE(*,'(A)') "H5Z_FILTER_SZIP_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_NBIT_F)THEN
WRITE(*,'(" H5Z_FILTER_NBIT_F")')
WRITE(*,'(A)') "H5Z_FILTER_NBIT_F"
ELSE
WRITE(*,'(A)') "UNKNOWN"
ENDIF
!
! Read the data using the default properties.
Expand Down
16 changes: 9 additions & 7 deletions HDF5Examples/FORTRAN/H5D/h5ex_d_soint.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -133,19 +133,21 @@ PROGRAM main
!
nelmts = 1
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, INT(MaxChrLen, SIZE_T), name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
WRITE(*,'(A,1X)', ADVANCE='NO') "Filter type is:"
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
WRITE(*,'(A)') "H5Z_FILTER_DEFLATE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
WRITE(*,'(A)') "H5Z_FILTER_SHUFFLE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
WRITE(*,'(A)') "H5Z_FILTER_FLETCHER32_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
WRITE(*,'(" H5Z_FILTER_SZIP_F")')
WRITE(*,'(A)') "H5Z_FILTER_SZIP_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_NBIT_F)THEN
WRITE(*,'(" H5Z_FILTER_NBIT_F")')
WRITE(*,'(A)') "H5Z_FILTER_NBIT_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SCALEOFFSET_F)THEN
WRITE(*,'(" H5Z_FILTER_SCALEOFFSET_F")')
WRITE(*,'(A)') "H5Z_FILTER_SCALEOFFSET_F"
ELSE
WRITE(*,'(A)') "UNKNOWN"
ENDIF
!
! Read the data using the default properties.
Expand Down
13 changes: 8 additions & 5 deletions HDF5Examples/FORTRAN/H5D/h5ex_d_szip.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -119,15 +119,18 @@ PROGRAM main

nelmts = 1
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, INT(MaxChrLen,SIZE_T), name, filter_id, hdferr)
WRITE(*,'("Filter type is: ")', ADVANCE='NO')
WRITE(*,'(A,1X)', ADVANCE='NO') "Filter type is:"
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
WRITE(*,'(" H5Z_FILTER_DEFLATE_F")')
WRITE(*,'(A)') "H5Z_FILTER_DEFLATE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
WRITE(*,'(" H5Z_FILTER_SHUFFLE_F")')
WRITE(*,'(A)') "H5Z_FILTER_SHUFFLE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
WRITE(*,'(" H5Z_FILTER_FLETCHER32_F")')
WRITE(*,'(A)') "H5Z_FILTER_FLETCHER32_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
WRITE(*,'(" H5Z_FILTER_SZIP_F")')
WRITE(*,'(A)') "H5Z_FILTER_SZIP_F"
ELSE
WRITE(*,'(A)') "UNKNOWN"
ENDIF
! DEFINED ONLY IN F2003 hdf5 branch
! ELSE IF(filter_id.EQ.H5Z_FILTER_NBIT_F)THEN
! WRITE(*,'(" H5Z_FILTER_NBIT_F")')
Expand Down
2 changes: 1 addition & 1 deletion HDF5Examples/FORTRAN/H5D/tfiles/18/h5ex_d_checksum.tst
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,2 +1,2 @@
Filter type is: H5Z_FILTER_FLETCHER32_F
Filter type is: H5Z_FILTER_FLETCHER32_F
Maximum value in DS1 is: 1984
2 changes: 1 addition & 1 deletion HDF5Examples/FORTRAN/H5D/tfiles/18/h5ex_d_gzip.tst
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,2 +1,2 @@
Filter type is: H5Z_FILTER_DEFLATE_F
Filter type is: H5Z_FILTER_DEFLATE_F
Maximum value in DS1 is: 1890
2 changes: 1 addition & 1 deletion HDF5Examples/FORTRAN/H5D/tfiles/18/h5ex_d_nbit.tst
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,2 +1,2 @@
Filter type is: H5Z_FILTER_NBIT_F
Filter type is: H5Z_FILTER_NBIT_F
Maximum value in DS1 is: 1890
2 changes: 1 addition & 1 deletion HDF5Examples/FORTRAN/H5D/tfiles/18/h5ex_d_soint.tst
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
Maximum value in write buffer is: 1890
Minimum value in write buffer is: -63
Filter type is: H5Z_FILTER_SCALEOFFSET_F
Filter type is: H5Z_FILTER_SCALEOFFSET_F
Maximum value in DS1 is: 1890
Minimum value in DS1 is: -63
2 changes: 1 addition & 1 deletion HDF5Examples/FORTRAN/H5D/tfiles/18/h5ex_d_szip.tst
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,2 +1,2 @@
Filter type is: H5Z_FILTER_SZIP_F
Filter type is: H5Z_FILTER_SZIP_F
Maximum value in DS1 is: 1890
Loading