1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
!************************************************************
!
! This example shows how to read and write data to a dataset
! using the Scale-Offset filter. The program first checks
! if the Scale-Offset filter is available, then if it is it
! writes integers to a dataset using Scale-Offset, then
! closes the file Next, it reopens the file, reads back the
! data, and outputs the type of filter and the maximum value
! in the dataset to the screen.
!
! This file is intended for use with HDF5 Library version 1.8
!
!************************************************************
PROGRAM main
USE HDF5
IMPLICIT NONE
CHARACTER(LEN=15), PARAMETER :: filename = "h5ex_d_soint.h5"
CHARACTER(LEN=3) , PARAMETER :: dataset = "DS1"
INTEGER , PARAMETER :: dim0 = 32
INTEGER , PARAMETER :: dim1 = 64
INTEGER , PARAMETER :: chunk0 = 4
INTEGER , PARAMETER :: chunk1 = 8
INTEGER :: hdferr
LOGICAL :: avail
INTEGER(HID_T) :: file, space, dset, dtype, dcpl ! Handles
INTEGER(SIZE_T) :: nelmts = 50
INTEGER, DIMENSION(1:50) :: cd_values
INTEGER :: filter_id
INTEGER :: filter_info_both
INTEGER(HSIZE_T), DIMENSION(1:2) :: dims = (/dim0, dim1/), chunk =(/chunk0,chunk1/)
INTEGER :: flags, filter_info
INTEGER, DIMENSION(1:dim0, 1:dim1) :: wdata, & ! Write buffer
rdata ! Read buffer
INTEGER :: max, min
INTEGER :: i, j
INTEGER, PARAMETER :: MaxChrLen = 80
CHARACTER(LEN=MaxChrLen) :: name
!
! Initialize FORTRAN interface.
!
CALL h5open_f(hdferr)
!
! Check if Scale-Offset compression is available and can be used
! for both compression and decompression. Normally we do not
! perform error checking in these examples for the sake of
! clarity, but in this case we will make an exception because this
! filter is an optional part of the hdf5 library.
!
CALL h5zfilter_avail_f(H5Z_FILTER_SCALEOFFSET_F, avail, hdferr)
IF (.NOT.avail) THEN
WRITE(*,'("Scale-Offset filter not available.",/)')
STOP
ENDIF
CALL h5zget_filter_info_f(H5Z_FILTER_SCALEOFFSET_F, filter_info, hdferr)
filter_info_both=IOR(H5Z_FILTER_ENCODE_ENABLED_F,H5Z_FILTER_DECODE_ENABLED_F)
IF (filter_info .NE. filter_info_both) THEN
WRITE(*,'("Scale-Offset filter not available for encoding and decoding.",/)')
STOP
ENDIF
!
! Initialize data.
!
DO i = 1, dim0
DO j = 1, dim1
wdata(i,j) = (i-1)*(j-1)-(j-1)
ENDDO
ENDDO
!
! Find the maximum value in the dataset, to verify that it was
! read correctly.
!
max = MAXVAL(wdata)
min = MINVAL(wdata)
!
! Print the maximum value.
!
WRITE(*,'("Maximum value in write buffer is: ",i4)') max
WRITE(*,'("Minimum value in write buffer is: ",i4)') min
!
! Create a new file using the default properties.
!
CALL h5fcreate_f(filename, H5F_ACC_TRUNC_F, file, hdferr)
!
! Create dataspace. Setting size to be the current size.
!
CALL h5screate_simple_f(2, dims, space, hdferr)
!
! Create the dataset creation property list, add the Scale-Offset
! filter and set the chunk size.
!
CALL h5pcreate_f(H5P_DATASET_CREATE_F, dcpl, hdferr)
CALL h5pset_scaleoffset_f(dcpl, H5Z_SO_INT_F, H5Z_SO_INT_MINBITS_DEFAULT_F, hdferr)
CALL h5pset_chunk_f(dcpl, 2, chunk, hdferr)
!
! Create the dataset.
!
CALL h5dcreate_f(file, dataset, H5T_STD_I32LE, space, dset, hdferr, dcpl)
!
! Write the data to the dataset.
!
CALL h5dwrite_f(dset, H5T_NATIVE_INTEGER, wdata, dims, hdferr)
!
! Close and release resources.
!
CALL h5pclose_f(dcpl , hdferr)
CALL h5dclose_f(dset , hdferr)
CALL h5sclose_f(space, hdferr)
CALL h5fclose_f(file , hdferr)
!
! Now we begin the read section of this example.
!
!
! Open file and dataset using the default properties.
!
CALL h5fopen_f(filename, H5F_ACC_RDONLY_F, file, hdferr)
CALL h5dopen_f (file, dataset, dset, hdferr)
!
! Retrieve dataset creation property list.
!
CALL h5dget_create_plist_f(dset, dcpl, hdferr)
!
! Retrieve and print the filter type. Here we only retrieve the
! first filter because we know that we only added one filter.
!
nelmts = 1
CALL H5Pget_filter_f(dcpl, 0, flags, nelmts, cd_values, INT(MaxChrLen, SIZE_T), name, filter_id, hdferr)
WRITE(*,'(A,1X)', ADVANCE='NO') "Filter type is:"
IF(filter_id.EQ.H5Z_FILTER_DEFLATE_F)THEN
WRITE(*,'(A)') "H5Z_FILTER_DEFLATE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SHUFFLE_F)THEN
WRITE(*,'(A)') "H5Z_FILTER_SHUFFLE_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_FLETCHER32_F)THEN
WRITE(*,'(A)') "H5Z_FILTER_FLETCHER32_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SZIP_F)THEN
WRITE(*,'(A)') "H5Z_FILTER_SZIP_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_NBIT_F)THEN
WRITE(*,'(A)') "H5Z_FILTER_NBIT_F"
ELSE IF(filter_id.EQ.H5Z_FILTER_SCALEOFFSET_F)THEN
WRITE(*,'(A)') "H5Z_FILTER_SCALEOFFSET_F"
ELSE
WRITE(*,'(A)') "UNKNOWN"
ENDIF
!
! Read the data using the default properties.
!
CALL h5dread_f(dset, H5T_NATIVE_INTEGER, rdata, dims, hdferr)
!
!
! Find the maximum and minimum value in the dataset, to verify that it was
! read correctly.
!
max = MAXVAL(rdata)
min = MINVAL(rdata)
!
! Print the maximum value.
!
WRITE(*,'("Maximum value in ",A," is: ",i4)') dataset,max
WRITE(*,'("Minimum value in ",A," is: ",i4)') dataset,min
!
! Close and release resources.
!
CALL h5pclose_f(dcpl , hdferr)
CALL h5dclose_f(dset , hdferr)
CALL h5fclose_f(file , hdferr)
END PROGRAM main
|
