1/* This is part of the netCDF package.
2   Copyright 2005 University Corporation for Atmospheric Research/Unidata
3   See COPYRIGHT file for conditions of use.
4
5   Test netcdf-4 variables.
6   $Id: tst_large.c,v 1.5 2009/05/18 10:26:24 ed Exp $
7*/
8
9#include <nc_tests.h>
10#include "err_macros.h"
11#include "netcdf.h"
12#include "ncdispatch.h"
13
14#define FILE_NAME "tst_large.nc"
15#define NUMDIMS 2 /* rank of each variable in tests */
16#define DIM1 2048
17#define DIM2 2097153 /* DIM1*DIM2*sizeof(char)   > 2**32 */
18
19
20
21int
22main(int argc, char **argv)
23{
24
25   printf("\n*** Testing netcdf-4 large files.\n");
26   printf("**** testing simple fill value attribute creation...");
27   {
28      int ncidvariddimids[NUMDIMS];
29      size_t index[NUMDIMS] = {0, 0};
30      signed char vals[DIM2];
31      signed char char_val_in;
32      size_t start[NUMDIMS] = {0, 0}, count[NUMDIMS] = {1, DIM2};
33      int j;
34
35      /* Create phony data. */
36      for (j = 0; j < DIM2j++)
37  vals[j] = 9 * (j + 11); /* note vals[j] is 99 when j==0 */
38
39      /* Create file with 2 dims and one var. */
40      if (nc_create(FILE_NAMENC_NETCDF4, &ncid)) ERR;
41      if (nc_set_fill(ncidNC_NOFILLNULL)) ERR;
42      if (nc_def_dim(ncid, "dim1", DIM1, &dimids[0])) ERR;
43      if (nc_def_dim(ncid, "dim2", DIM2, &dimids[1])) ERR;
44      if (nc_def_var(ncid, "var", NC_BYTENUMDIMSdimids, &varid)) ERR;
45      if (nc_enddef(ncid)) ERR;
46
47      /* Write one slice, then close. */
48      if (nc_put_vara_schar(ncidvaridstartcountvals)) ERR;
49      if (nc_close(ncid)) ERR;
50
51      /* Reopen and read a value. */
52/*       if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; */
53/*       if (nc_inq_varid(ncid, "var", &varid)) ERR; */
54/*       if (nc_get_var1_schar(ncid, varid, index, &char_val_in)) ERR; */
55/*       if (char_val_in != 99) /\* see above, the value written when start[0]==0, j==0 *\/ */
56/*   ERR; */
57/*       if (nc_close(ncid)) ERR; */
58   }
59   SUMMARIZE_ERR;
60
61   nc_finalize();
62
63   FINAL_RESULTS;
64}


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