1/* This is part of the netCDF package.
2   Copyright 2010 University Corporation for Atmospheric Research/Unidata
3   See COPYRIGHT file for conditions of use.
4
5   Test netcdf files a bit.
6*/
7
8#include <nc_tests.h>
9#include "err_macros.h"
10#include "netcdf.h"
11
12#define FILE_NAME "tst_files6.nc"
13
14int
15main(int argc, char **argv)
16{
17   printf("\n*** Testing netcdf file functions some more.\n");
18   printf("*** testing Jeff Whitaker's test...");
19   {
20#define DIM_NAME "xc"
21#define DIM_LEN 134
22#define VAR_NAME1 "var1"
23#define VAR_NAME2 "var2"
24
25      int nciddimidvarid1varid2dimid_in;
26      int ndims_innatts_in;
27      size_t len_in;
28      char name_in[NC_MAX_NAME + 1];
29      nc_type xtype_in;
30
31      if (nc_create(FILE_NAMENC_CLOBBER|NC_NETCDF4, &ncid)) ERR;
32      if (nc_def_dim(ncidDIM_NAMEDIM_LEN, &dimid)) ERR;
33      if (nc_def_var(ncidVAR_NAME1NC_FLOAT, 1, &dimid, &varid1)) ERR;
34      if (nc_def_var(ncidVAR_NAME2NC_FLOAT, 1, &dimid, &varid2)) ERR;
35      if (nc_def_var(ncidDIM_NAMENC_FLOAT, 1, &dimid, &varid2)) ERR;
36      if (nc_close(ncid)) ERR;
37
38      /* Open and check. */
39      if (nc_open(FILE_NAMENC_CLOBBER|NC_NETCDF4, &ncid)) ERR;
40      if (nc_inq_dim(ncid, 0, name_in, &len_in)) ERR;
41      if (strcmp(name_inDIM_NAME) || len_in != DIM_LENERR;
42      if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in,
43      &dimid_in, &natts_in)) ERR;
44      if (strcmp(name_inVAR_NAME1) || xtype_in != NC_FLOAT ||
45   ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR;
46      if (nc_inq_var(ncid, 1, name_in, &xtype_in, &ndims_in,
47      &dimid_in, &natts_in)) ERR;
48      if (strcmp(name_inVAR_NAME2) || xtype_in != NC_FLOAT ||
49   ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR;
50      if (nc_inq_var(ncid, 2, name_in, &xtype_in, &ndims_in,
51      &dimid_in, &natts_in)) ERR;
52      if (strcmp(name_inDIM_NAME) || xtype_in != NC_FLOAT ||
53   ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR;
54      if (nc_close(ncid)) ERR;
55   }
56   SUMMARIZE_ERR;
57   FINAL_RESULTS;
58}


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