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
|
/* This is part of the netCDF package. Copyright 2019 University
Corporation for Atmospheric Research/Unidata See COPYRIGHT file for
conditions of user Kai Mühlbauer.
Test handling of anonymous dimensions when netCDF reads a HDF5
file. This test partially contributed by user
Ed Hartnett, 11/13/2019
*/
#include <config.h>
#include <nc_tests.h>
#include "err_macros.h"
#include <hdf5.h>
#include <H5DSpublic.h>
#define FILE_NAME "tst_interops_dims.h5"
#define DIM_LEN 100
int
main(int argc, char **argv)
{
printf("\n*** Testing HDF5/NetCDF-4 interoperability handling of HDF5 dimensions.\n");
printf("*** Checking handling of a HDF5 file with anon dims...");
{
hid_t file_id, dataset_id, dataspace_id; /* identifiers */
hsize_t dims[2];
/* Create a new file using default properties. */
if ((file_id = H5Fcreate(FILE_NAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
ERR;
/* Create the data space for the dataset. */
dims[0] = DIM_LEN;
dims[1] = DIM_LEN;
if ((dataspace_id = H5Screate_simple(2, dims, NULL)) < 0)
ERR;
/* Create the dataset. */
dataset_id = H5Dcreate2(file_id, "/dset", H5T_STD_I32BE, dataspace_id,
H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
/* End access to the dataset and release resources used by it. */
if (H5Dclose(dataset_id) < 0)
ERR;
/* Terminate access to the data space. */
if (H5Sclose(dataspace_id) < 0)
ERR;
/* Close the file. */
if (H5Fclose(file_id) < 0)
ERR;
/* Now open the file with netCDF. */
{
int ndims, nvars, ngatts, unlimdimid;
int ncid;
char dim_name[NC_MAX_NAME + 1];
size_t dim_len;
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid))
ERR;
if (nc_inq(ncid, &ndims, &nvars, &ngatts, &unlimdimid))
ERR;
if (ndims != 2 || nvars != 1 || ngatts != 0 || unlimdimid != -1)
ERR;
if (nc_inq_dim(ncid, 0, dim_name, &dim_len))
ERR;
if (strcmp(dim_name, "phony_dim_0") || dim_len != DIM_LEN)
ERR;
if (nc_inq_dim(ncid, 1, dim_name, &dim_len))
ERR;
if (strcmp(dim_name, "phony_dim_1") || dim_len != DIM_LEN)
ERR;
if (nc_close(ncid))
ERR;
}
}
SUMMARIZE_ERR;
printf("*** Checking handling of a HDF5 file with anon dims and two datasets...");
{
hid_t file_id, dataset_id, dataset_id_2, dataspace_id; /* identifiers */
hsize_t dims[2];
/* Create a new file using default properties. */
if ((file_id = H5Fcreate(FILE_NAME, H5F_ACC_TRUNC, H5P_DEFAULT,
H5P_DEFAULT)) < 0) ERR;
/* Create the data space for the dataset. */
dims[0] = DIM_LEN;
dims[1] = DIM_LEN;
if ((dataspace_id = H5Screate_simple(2, dims, NULL)) < 0) ERR;
/* Create the datasets. */
if ((dataset_id = H5Dcreate2(file_id, "/dset", H5T_STD_I32BE, dataspace_id,
H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) ERR;
if ((dataset_id_2 = H5Dcreate2(file_id, "/dset2", H5T_STD_I32BE, dataspace_id,
H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) ERR;
if (H5Dclose(dataset_id) < 0) ERR;
if (H5Dclose(dataset_id_2) < 0) ERR;
if (H5Sclose(dataspace_id) < 0) ERR;
if (H5Fclose(file_id) < 0) ERR;
/* Now open the file with netCDF. */
{
int ndims, nvars, ngatts, unlimdimid;
int ncid;
char dim_name[NC_MAX_NAME + 1];
size_t dim_len;
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid))
ERR;
if (nc_inq(ncid, &ndims, &nvars, &ngatts, &unlimdimid))
ERR;
if (ndims != 2 || nvars != 2 || ngatts != 0 || unlimdimid != -1)
ERR;
if (nc_inq_dim(ncid, 0, dim_name, &dim_len))
ERR;
if (strcmp(dim_name, "phony_dim_0") || dim_len != DIM_LEN)
ERR;
if (nc_inq_dim(ncid, 1, dim_name, &dim_len))
ERR;
if (strcmp(dim_name, "phony_dim_1") || dim_len != DIM_LEN)
ERR;
if (nc_close(ncid))
ERR;
}
}
SUMMARIZE_ERR;
FINAL_RESULTS;
}
|
