1/*********************************************************************
2 *   Copyright 2010, UCAR/Unidata
3 *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
4 *   $Id $
5 *********************************************************************/
6
7#include <netcdf.h> /* just for error codes */
8#include "utils.h"
9
10static struct {
11    size_t ndims;
12    int *odimids;
13    int *idimids;
14    int *ounlims;
15    int *iunlims;
16dimmap;
17
18/* initialize a dimmap for n dimension ids */
19int
20dimmap_init(size_t n) {
21    int stat = NC_NOERR;
22    int i;
23    dimmap.ndims = n;
24    dimmap.odimids = emalloc(n * sizeof(int));
25    dimmap.idimids = emalloc(n * sizeof(int));
26    dimmap.ounlims = emalloc(n * sizeof(int));
27    dimmap.iunlims = emalloc(n * sizeof(int));
28    for(i = 0; i < ni++) {
29 dimmap.odimids[i] = -1;
30 dimmap.idimids[i] = -1;
31 dimmap.ounlims[i] = 0;
32 dimmap.iunlims[i] = 0;
33    }
34    return stat;
35}
36
37/* store association between an input dimid and an output dimid, which
38 * should be ints between 0 and ndims-1, inclusive */
39int
40dimmap_store(int idimid, int odimid, int iunlim, int ounlim) {
41    int stat = NC_NOERR;
42    dimmap.odimids[idimid] = odimid; /* used to map input dimids to output dimids */
43    dimmap.idimids[odimid] = idimid; /* used to map output dimids to input dimids */
44    dimmap.ounlims[odimid] = ounlim;
45    dimmap.iunlims[idimid] = iunlim;
46    return stat;
47}
48
49/* return odimid associated with specified idimid, or -1 if not found */
50int
51dimmap_odimid(int idimid) {
52    return dimmap.odimids[idimid];
53}
54
55/* return idimid associated with specified odimid, or -1 if not found */
56int
57dimmap_idimid(int odimid) {
58    return dimmap.idimids[odimid];
59}
60
61/* return whether odimid dimension is unlimited */
62int
63dimmap_ounlim(int odimid) {
64    return dimmap.ounlims[odimid];
65}
66
67/* return whether idimid dimension is unlimited */
68int
69dimmap_iunlim(int idimid) {
70    return dimmap.iunlims[idimid];
71
72}
73


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