1/* This is part of the netCDF package. Copyright 2010 University
2   Corporation for Atmospheric Research/Unidata.  See COPYRIGHT file for
3   conditions of use. See www.unidata.ucar.edu for more info.
4
5   Create a compressible test file for nccopy to compress.
6
7   $Id$
8*/
9
10#include <config.h>
11#include <nc_tests.h>
12#include "err_macros.h"
13#include <stdlib.h>
14#include <netcdf.h>
15
16#define FILENAME "tst_inflated.nc"
17#define FILENAME2 "tst_inflated4.nc"
18#define DIM_NAME "dim1"
19#define DIM1_LEN 10000
20#define VAR1_RANK 1
21#define VAR_NAME "var"
22
23int
24main(int argc, char **argv) { /* create a compressible file, for testing */
25
26    int ncid;
27    int dimidvarid;
28    int var1_dims[VAR1_RANK]; /* variable shapes */
29    int var1_data[DIM1_LEN]; /* data to write */
30    int i;
31
32    printf("*** Creating compressible test files %s, %s...", FILENAMEFILENAME2);
33    if (nc_create(FILENAMENC_CLOBBER, &ncid)) ERR;
34    if (nc_def_dim(ncid, "dim1", DIM1_LEN, &dimid)) ERR;
35    var1_dims[0] = dimid;
36    if (nc_def_var(ncid, "var1", NC_INTVAR1_RANKvar1_dims, &varid)) ERR;
37    if (nc_enddef (ncid)) ERR;
38    for(i=0; i < DIM1_LENi++) {
39 var1_data[i] = i;
40    }
41    if (nc_put_var(ncidvaridvar1_data)) ERR;
42    if (nc_close(ncid)) ERR;
43
44    if (nc_create(FILENAME2NC_CLOBBER|NC_NETCDF4, &ncid)) ERR;
45    if (nc_def_dim(ncid, "dim1", DIM1_LEN, &dimid)) ERR;
46    var1_dims[0] = dimid;
47    if (nc_def_var(ncid, "var1", NC_INTVAR1_RANKvar1_dims, &varid)) ERR;
48    if (nc_enddef (ncid)) ERR;
49    for(i=0; i < DIM1_LENi++) {
50 var1_data[i] = i;
51    }
52    if (nc_put_var(ncidvaridvar1_data)) ERR;
53    if (nc_close(ncid)) ERR;
54
55    SUMMARIZE_ERR;
56    FINAL_RESULTS;
57}


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