1/*********************************************************************
2 *   Copyright 1993, UCAR/Unidata
3 *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
4 *   $Header: /upc/share/CVS/netcdf-3/ncgen3/init.c,v 1.6 1997/05/23 11:41:14 russ Exp $
5 *********************************************************************/
6
7#include <stdio.h>
8#include <netcdf.h>
9#include "generic.h"
10#include "ncgen.h"
11#include "genlib.h"
12
13extern int netcdf_flag;
14extern int c_flag;
15extern int fortran_flag;
16
17struct dims *dims; /* table of netcdf dimensions */
18
19int ncid; /* handle for netCDF */
20int ndims; /* number of dimensions declared for netcdf */
21int nvars; /* number of variables declared for netcdf */
22int natts; /* number of attributes */
23int nvdims; /* number of dimensions for variables */
24int dimnum; /* dimension number index for variables */
25int varnum; /* variable number index for attributes */
26int valnum; /* value number index for attributes */
27int rec_dim; /* number of the unlimited dimension, if any */
28size_t var_len; /* variable length (product of dimensions) */
29size_t rec_len; /* number of elements for a record of data */
30size_t var_size; /* size of each element of variable */
31
32struct vars *vars; /* a malloc'ed list */
33
34struct atts *atts; /* table of variable and global attributes */
35
36void
37init_netcdf(void) { /* initialize global counts, flags */
38
39    clearout(); /* reset symbol table to empty */
40    ndims = 0;
41    nvars = 0;
42    rec_dim = -1; /* means no unlimited dimension (yet) */
43}


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