1/*
2 * Test contributed in support of netCDF issue
3 * https://github.com/Unidata/netcdf-c/issues/160
4 */
5
6#include "netcdf.h"
7
8#include <stdio.h>
9
10int main(int argc, char* argv[])
11{
12    int ret;
13    int ncid;
14    int dim1iddim2id;
15    int var1idvar2id;
16    size_t start = 0;
17    size_t count = 5;
18    double vals[] = { 1.0, 2.0, 3.0, 4.0, 5.0 };
19
20    if ((ret = nc_create("tst_put_vars_two_unlim_dim.nc", NC_NETCDF4 | NC_CLOBBER, &ncid))) {
21        printf("nc_create(...): error code = %d\n", ret);
22        return -1;
23    }
24
25    if ((ret = nc_def_dim(ncid, "dim1", NC_UNLIMITED, &dim1id))) {
26        printf("nc_def_dim(...\"dim1\"...): error code = %d\n", ret);
27        nc_close(ncid);
28        return -1;
29    }
30
31    if ((ret = nc_def_dim(ncid, "dim2", NC_UNLIMITED, &dim2id))) {
32        printf("nc_def_dim(...\"dim1\"...): error code = %d\n", ret);
33        nc_close(ncid);
34        return -1;
35    }
36
37    if ((ret = nc_def_var(ncid, "var1", NC_DOUBLE, 1, &dim1id, &var1id))) {
38        printf("nc_def_var(...\"var1\"...): error code = %d\n", ret);
39        nc_close(ncid);
40        return -1;
41    }
42
43    if ((ret = nc_def_var(ncid, "var2", NC_DOUBLE, 1, &dim2id, &var2id))) {
44        printf("nc_def_var(...\"var2\"...): error code = %d\n", ret);
45        nc_close(ncid);
46        return -1;
47    }
48
49    if ((ret = nc_put_vars_double(ncidvar1id, &start, &countNULL, &vals[0])))  {
50        printf("nc_put_var_double(...var1id...): error code = %d\n", ret);
51        nc_close(ncid);
52        return -1;
53    }
54
55    if ((ret = nc_put_vars_double(ncidvar2id, &start, &countNULL, &vals[0])))  {
56        printf("nc_put_var_double(...var2id...): error code = %d\n", ret);
57        nc_close(ncid);
58        return -1;
59    }
60
61    if ((ret = nc_close(ncid))) {
62        printf("nc_close(...): error code = %d\n", ret);
63        return -1;
64    }
65
66    return 0;
67}


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed