Lines Matching refs:va
115 static struct cdfvar va[] = { /* variables of all shapes and sizes */ local
124 int nv = LEN_OF(va); /* number of variables to define */
125 int va_id[LEN_OF(va)]; /* variable ids */
142 if (ncvardef(cdfid, va[0].name, va[0].type, va[0].ndims, va[0].dims)
169 va[iv].dims = (int *) emalloc(sizeof(int) * va[iv].ndims);
170 for (id = 0; id < va[iv].ndims; id++)
171 va[iv].dims[id] = di_id[id];
172 if ((va_id[iv] = ncvardef(cdfid, va[iv].name, va[iv].type,
173 va[iv].ndims, va[iv].dims)) == -1) {
175 errvar(&test,&va[iv]); /* prints details about variable */
178 add_var(&test, &va[iv]); /* keep in-memory netcdf in sync */
189 errvar(&test,&va[iv]); /* prints details about variable */
192 if (strcmp(tmp.name, va[iv].name) != 0 ||
193 tmp.type != va[iv].type ||
194 tmp.ndims != va[iv].ndims ||
195 tmp.natts != va[iv].natts) {
197 pname, va[iv].name);
199 errvar(&test,&va[iv]);
202 for (id = 0; id < va[iv].ndims; id++) {
203 if (tmp.dims[id] != va[iv].dims[id]) {
205 pname, va[iv].name);
207 errvar(&test,&va[iv]);
213 if (ncvardef(cdfid, va[0].name, va[0].type,
214 va[0].ndims, va[0].dims) != -1) {
219 if (ncvardef(cdfid, "badtype", BAD_TYPE, va[0].ndims, va[0].dims) != -1) {
224 if (ncvardef(cdfid, "badndims", va[0].type, -1, va[0].dims) != -1) {
229 va[0].dims[va[0].ndims-1] = -1;
230 if (ncvardef(cdfid, "baddims", va[0].type, va[0].ndims, va[0].dims)
245 switch(va[iv].type) {
344 if (va[iv].dims)
345 free(va[iv].dims);