1#include <stdio.h>
2#include <stdlib.h>
3#include <netcdf.h>
4
5
6void
7check_err(const int stat, const int line, const char *file) {
8    if (stat != NC_NOERR) {
9        (void)fprintf(stderr,"line %d of %s: %s\n", linefilenc_strerror(stat));
10        fflush(stderr);
11        exit(1);
12    }
13}
14
15int
16main() {/* create ctest0_64.nc */
17
18    int  stat;  /* return status */
19    int  ncid;  /* netCDF id */
20
21    /* dimension ids */
22    int Dr_dim;
23    int D1_dim;
24    int D2_dim;
25    int D3_dim;
26    int dim_MINUS_name_MINUS_dashes_dim;
27    int dim_PERIOD_name_PERIOD_dots_dim;
28    int dim_PLUS_name_PLUS_plusses_dim;
29    int dim_ATSIGN_name_ATSIGN_ats_dim;
30
31    /* dimension lengths */
32    size_t Dr_len = NC_UNLIMITED;
33    size_t D1_len = 1;
34    size_t D2_len = 2;
35    size_t D3_len = 3;
36    size_t dim_MINUS_name_MINUS_dashes_len = 4;
37    size_t dim_PERIOD_name_PERIOD_dots_len = 5;
38    size_t dim_PLUS_name_PLUS_plusses_len = 6;
39    size_t dim_ATSIGN_name_ATSIGN_ats_len = 7;
40
41    /* variable ids */
42    int c_id;
43    int b_id;
44    int s_id;
45    int i_id;
46    int f_id;
47    int d_id;
48    int cr_id;
49    int br_id;
50    int sr_id;
51    int ir_id;
52    int fr_id;
53    int dr_id;
54    int c1_id;
55    int b1_id;
56    int s1_id;
57    int i1_id;
58    int f1_id;
59    int d1_id;
60    int c2_id;
61    int b2_id;
62    int s2_id;
63    int i2_id;
64    int f2_id;
65    int d2_id;
66    int c3_id;
67    int b3_id;
68    int s3_id;
69    int i3_id;
70    int f3_id;
71    int d3_id;
72    int cr1_id;
73    int br2_id;
74    int sr3_id;
75    int f11_id;
76    int d12_id;
77    int c13_id;
78    int s21_id;
79    int i22_id;
80    int f23_id;
81    int c31_id;
82    int b32_id;
83    int s33_id;
84    int sr11_id;
85    int ir12_id;
86    int fr13_id;
87    int cr21_id;
88    int br22_id;
89    int sr23_id;
90    int fr31_id;
91    int dr32_id;
92    int cr33_id;
93    int c111_id;
94    int b112_id;
95    int s113_id;
96    int f121_id;
97    int d122_id;
98    int c123_id;
99    int s131_id;
100    int i132_id;
101    int f133_id;
102    int f211_id;
103    int d212_id;
104    int c213_id;
105    int s221_id;
106    int i222_id;
107    int f223_id;
108    int c231_id;
109    int b232_id;
110    int s233_id;
111    int s311_id;
112    int i312_id;
113    int f313_id;
114    int var_MINUS_name_MINUS_dashes_id;
115    int var_PERIOD_name_PERIOD_dots_id;
116    int var_PLUS_name_PLUS_plusses_id;
117    int var_ATSIGN_name_ATSIGN_ats_id;
118
119    /* rank (number of dimensions) for each variable */
120#   define RANK_c 0
121#   define RANK_b 0
122#   define RANK_s 0
123#   define RANK_i 0
124#   define RANK_f 0
125#   define RANK_d 0
126#   define RANK_cr 1
127#   define RANK_br 1
128#   define RANK_sr 1
129#   define RANK_ir 1
130#   define RANK_fr 1
131#   define RANK_dr 1
132#   define RANK_c1 1
133#   define RANK_b1 1
134#   define RANK_s1 1
135#   define RANK_i1 1
136#   define RANK_f1 1
137#   define RANK_d1 1
138#   define RANK_c2 1
139#   define RANK_b2 1
140#   define RANK_s2 1
141#   define RANK_i2 1
142#   define RANK_f2 1
143#   define RANK_d2 1
144#   define RANK_c3 1
145#   define RANK_b3 1
146#   define RANK_s3 1
147#   define RANK_i3 1
148#   define RANK_f3 1
149#   define RANK_d3 1
150#   define RANK_cr1 2
151#   define RANK_br2 2
152#   define RANK_sr3 2
153#   define RANK_f11 2
154#   define RANK_d12 2
155#   define RANK_c13 2
156#   define RANK_s21 2
157#   define RANK_i22 2
158#   define RANK_f23 2
159#   define RANK_c31 2
160#   define RANK_b32 2
161#   define RANK_s33 2
162#   define RANK_sr11 3
163#   define RANK_ir12 3
164#   define RANK_fr13 3
165#   define RANK_cr21 3
166#   define RANK_br22 3
167#   define RANK_sr23 3
168#   define RANK_fr31 3
169#   define RANK_dr32 3
170#   define RANK_cr33 3
171#   define RANK_c111 3
172#   define RANK_b112 3
173#   define RANK_s113 3
174#   define RANK_f121 3
175#   define RANK_d122 3
176#   define RANK_c123 3
177#   define RANK_s131 3
178#   define RANK_i132 3
179#   define RANK_f133 3
180#   define RANK_f211 3
181#   define RANK_d212 3
182#   define RANK_c213 3
183#   define RANK_s221 3
184#   define RANK_i222 3
185#   define RANK_f223 3
186#   define RANK_c231 3
187#   define RANK_b232 3
188#   define RANK_s233 3
189#   define RANK_s311 3
190#   define RANK_i312 3
191#   define RANK_f313 3
192#   define RANK_var_MINUS_name_MINUS_dashes 0
193#   define RANK_var_PERIOD_name_PERIOD_dots 0
194#   define RANK_var_PLUS_name_PLUS_plusses 0
195#   define RANK_var_ATSIGN_name_ATSIGN_ats 0
196
197    /* variable shapes */
198    int cr_dims[RANK_cr];
199    int br_dims[RANK_br];
200    int sr_dims[RANK_sr];
201    int ir_dims[RANK_ir];
202    int fr_dims[RANK_fr];
203    int dr_dims[RANK_dr];
204    int c1_dims[RANK_c1];
205    int b1_dims[RANK_b1];
206    int s1_dims[RANK_s1];
207    int i1_dims[RANK_i1];
208    int f1_dims[RANK_f1];
209    int d1_dims[RANK_d1];
210    int c2_dims[RANK_c2];
211    int b2_dims[RANK_b2];
212    int s2_dims[RANK_s2];
213    int i2_dims[RANK_i2];
214    int f2_dims[RANK_f2];
215    int d2_dims[RANK_d2];
216    int c3_dims[RANK_c3];
217    int b3_dims[RANK_b3];
218    int s3_dims[RANK_s3];
219    int i3_dims[RANK_i3];
220    int f3_dims[RANK_f3];
221    int d3_dims[RANK_d3];
222    int cr1_dims[RANK_cr1];
223    int br2_dims[RANK_br2];
224    int sr3_dims[RANK_sr3];
225    int f11_dims[RANK_f11];
226    int d12_dims[RANK_d12];
227    int c13_dims[RANK_c13];
228    int s21_dims[RANK_s21];
229    int i22_dims[RANK_i22];
230    int f23_dims[RANK_f23];
231    int c31_dims[RANK_c31];
232    int b32_dims[RANK_b32];
233    int s33_dims[RANK_s33];
234    int sr11_dims[RANK_sr11];
235    int ir12_dims[RANK_ir12];
236    int fr13_dims[RANK_fr13];
237    int cr21_dims[RANK_cr21];
238    int br22_dims[RANK_br22];
239    int sr23_dims[RANK_sr23];
240    int fr31_dims[RANK_fr31];
241    int dr32_dims[RANK_dr32];
242    int cr33_dims[RANK_cr33];
243    int c111_dims[RANK_c111];
244    int b112_dims[RANK_b112];
245    int s113_dims[RANK_s113];
246    int f121_dims[RANK_f121];
247    int d122_dims[RANK_d122];
248    int c123_dims[RANK_c123];
249    int s131_dims[RANK_s131];
250    int i132_dims[RANK_i132];
251    int f133_dims[RANK_f133];
252    int f211_dims[RANK_f211];
253    int d212_dims[RANK_d212];
254    int c213_dims[RANK_c213];
255    int s221_dims[RANK_s221];
256    int i222_dims[RANK_i222];
257    int f223_dims[RANK_f223];
258    int c231_dims[RANK_c231];
259    int b232_dims[RANK_b232];
260    int s233_dims[RANK_s233];
261    int s311_dims[RANK_s311];
262    int i312_dims[RANK_i312];
263    int f313_dims[RANK_f313];
264
265    /* enter define mode */
266    stat = nc_create("ctest0_64.nc", NC_CLOBBER|NC_64BIT_OFFSET, &ncid);
267    check_err(stat,__LINE__,__FILE__);
268
269    /* define dimensions */
270    stat = nc_def_dim(ncid, "Dr", Dr_len, &Dr_dim);
271    check_err(stat,__LINE__,__FILE__);
272    stat = nc_def_dim(ncid, "D1", D1_len, &D1_dim);
273    check_err(stat,__LINE__,__FILE__);
274    stat = nc_def_dim(ncid, "D2", D2_len, &D2_dim);
275    check_err(stat,__LINE__,__FILE__);
276    stat = nc_def_dim(ncid, "D3", D3_len, &D3_dim);
277    check_err(stat,__LINE__,__FILE__);
278    stat = nc_def_dim(ncid, "dim-name-dashes", dim_MINUS_name_MINUS_dashes_len, &dim_MINUS_name_MINUS_dashes_dim);
279    check_err(stat,__LINE__,__FILE__);
280    stat = nc_def_dim(ncid, "dim.name.dots", dim_PERIOD_name_PERIOD_dots_len, &dim_PERIOD_name_PERIOD_dots_dim);
281    check_err(stat,__LINE__,__FILE__);
282    stat = nc_def_dim(ncid, "dim+name+plusses", dim_PLUS_name_PLUS_plusses_len, &dim_PLUS_name_PLUS_plusses_dim);
283    check_err(stat,__LINE__,__FILE__);
284    stat = nc_def_dim(ncid, "dim@name@ats", dim_ATSIGN_name_ATSIGN_ats_len, &dim_ATSIGN_name_ATSIGN_ats_dim);
285    check_err(stat,__LINE__,__FILE__);
286
287    /* define variables */
288
289    stat = nc_def_var(ncid, "c", NC_CHARRANK_c, 0, &c_id);
290    check_err(stat,__LINE__,__FILE__);
291
292    stat = nc_def_var(ncid, "b", NC_BYTERANK_b, 0, &b_id);
293    check_err(stat,__LINE__,__FILE__);
294
295    stat = nc_def_var(ncid, "s", NC_SHORTRANK_s, 0, &s_id);
296    check_err(stat,__LINE__,__FILE__);
297
298    stat = nc_def_var(ncid, "i", NC_INTRANK_i, 0, &i_id);
299    check_err(stat,__LINE__,__FILE__);
300
301    stat = nc_def_var(ncid, "f", NC_FLOATRANK_f, 0, &f_id);
302    check_err(stat,__LINE__,__FILE__);
303
304    stat = nc_def_var(ncid, "d", NC_DOUBLERANK_d, 0, &d_id);
305    check_err(stat,__LINE__,__FILE__);
306
307    cr_dims[0] = Dr_dim;
308    stat = nc_def_var(ncid, "cr", NC_CHARRANK_crcr_dims, &cr_id);
309    check_err(stat,__LINE__,__FILE__);
310
311    br_dims[0] = Dr_dim;
312    stat = nc_def_var(ncid, "br", NC_BYTERANK_brbr_dims, &br_id);
313    check_err(stat,__LINE__,__FILE__);
314
315    sr_dims[0] = Dr_dim;
316    stat = nc_def_var(ncid, "sr", NC_SHORTRANK_srsr_dims, &sr_id);
317    check_err(stat,__LINE__,__FILE__);
318
319    ir_dims[0] = Dr_dim;
320    stat = nc_def_var(ncid, "ir", NC_INTRANK_irir_dims, &ir_id);
321    check_err(stat,__LINE__,__FILE__);
322
323    fr_dims[0] = Dr_dim;
324    stat = nc_def_var(ncid, "fr", NC_FLOATRANK_frfr_dims, &fr_id);
325    check_err(stat,__LINE__,__FILE__);
326
327    dr_dims[0] = Dr_dim;
328    stat = nc_def_var(ncid, "dr", NC_DOUBLERANK_drdr_dims, &dr_id);
329    check_err(stat,__LINE__,__FILE__);
330
331    c1_dims[0] = D1_dim;
332    stat = nc_def_var(ncid, "c1", NC_CHARRANK_c1c1_dims, &c1_id);
333    check_err(stat,__LINE__,__FILE__);
334
335    b1_dims[0] = D1_dim;
336    stat = nc_def_var(ncid, "b1", NC_BYTERANK_b1b1_dims, &b1_id);
337    check_err(stat,__LINE__,__FILE__);
338
339    s1_dims[0] = D1_dim;
340    stat = nc_def_var(ncid, "s1", NC_SHORTRANK_s1s1_dims, &s1_id);
341    check_err(stat,__LINE__,__FILE__);
342
343    i1_dims[0] = D1_dim;
344    stat = nc_def_var(ncid, "i1", NC_INTRANK_i1i1_dims, &i1_id);
345    check_err(stat,__LINE__,__FILE__);
346
347    f1_dims[0] = D1_dim;
348    stat = nc_def_var(ncid, "f1", NC_FLOATRANK_f1f1_dims, &f1_id);
349    check_err(stat,__LINE__,__FILE__);
350
351    d1_dims[0] = D1_dim;
352    stat = nc_def_var(ncid, "d1", NC_DOUBLERANK_d1d1_dims, &d1_id);
353    check_err(stat,__LINE__,__FILE__);
354
355    c2_dims[0] = D2_dim;
356    stat = nc_def_var(ncid, "c2", NC_CHARRANK_c2c2_dims, &c2_id);
357    check_err(stat,__LINE__,__FILE__);
358
359    b2_dims[0] = D2_dim;
360    stat = nc_def_var(ncid, "b2", NC_BYTERANK_b2b2_dims, &b2_id);
361    check_err(stat,__LINE__,__FILE__);
362
363    s2_dims[0] = D2_dim;
364    stat = nc_def_var(ncid, "s2", NC_SHORTRANK_s2s2_dims, &s2_id);
365    check_err(stat,__LINE__,__FILE__);
366
367    i2_dims[0] = D2_dim;
368    stat = nc_def_var(ncid, "i2", NC_INTRANK_i2i2_dims, &i2_id);
369    check_err(stat,__LINE__,__FILE__);
370
371    f2_dims[0] = D2_dim;
372    stat = nc_def_var(ncid, "f2", NC_FLOATRANK_f2f2_dims, &f2_id);
373    check_err(stat,__LINE__,__FILE__);
374
375    d2_dims[0] = D2_dim;
376    stat = nc_def_var(ncid, "d2", NC_DOUBLERANK_d2d2_dims, &d2_id);
377    check_err(stat,__LINE__,__FILE__);
378
379    c3_dims[0] = D3_dim;
380    stat = nc_def_var(ncid, "c3", NC_CHARRANK_c3c3_dims, &c3_id);
381    check_err(stat,__LINE__,__FILE__);
382
383    b3_dims[0] = D3_dim;
384    stat = nc_def_var(ncid, "b3", NC_BYTERANK_b3b3_dims, &b3_id);
385    check_err(stat,__LINE__,__FILE__);
386
387    s3_dims[0] = D3_dim;
388    stat = nc_def_var(ncid, "s3", NC_SHORTRANK_s3s3_dims, &s3_id);
389    check_err(stat,__LINE__,__FILE__);
390
391    i3_dims[0] = D3_dim;
392    stat = nc_def_var(ncid, "i3", NC_INTRANK_i3i3_dims, &i3_id);
393    check_err(stat,__LINE__,__FILE__);
394
395    f3_dims[0] = D3_dim;
396    stat = nc_def_var(ncid, "f3", NC_FLOATRANK_f3f3_dims, &f3_id);
397    check_err(stat,__LINE__,__FILE__);
398
399    d3_dims[0] = D3_dim;
400    stat = nc_def_var(ncid, "d3", NC_DOUBLERANK_d3d3_dims, &d3_id);
401    check_err(stat,__LINE__,__FILE__);
402
403    cr1_dims[0] = Dr_dim;
404    cr1_dims[1] = D1_dim;
405    stat = nc_def_var(ncid, "cr1", NC_CHARRANK_cr1cr1_dims, &cr1_id);
406    check_err(stat,__LINE__,__FILE__);
407
408    br2_dims[0] = Dr_dim;
409    br2_dims[1] = D2_dim;
410    stat = nc_def_var(ncid, "br2", NC_BYTERANK_br2br2_dims, &br2_id);
411    check_err(stat,__LINE__,__FILE__);
412
413    sr3_dims[0] = Dr_dim;
414    sr3_dims[1] = D3_dim;
415    stat = nc_def_var(ncid, "sr3", NC_SHORTRANK_sr3sr3_dims, &sr3_id);
416    check_err(stat,__LINE__,__FILE__);
417
418    f11_dims[0] = D1_dim;
419    f11_dims[1] = D1_dim;
420    stat = nc_def_var(ncid, "f11", NC_FLOATRANK_f11f11_dims, &f11_id);
421    check_err(stat,__LINE__,__FILE__);
422
423    d12_dims[0] = D1_dim;
424    d12_dims[1] = D2_dim;
425    stat = nc_def_var(ncid, "d12", NC_DOUBLERANK_d12d12_dims, &d12_id);
426    check_err(stat,__LINE__,__FILE__);
427
428    c13_dims[0] = D1_dim;
429    c13_dims[1] = D3_dim;
430    stat = nc_def_var(ncid, "c13", NC_CHARRANK_c13c13_dims, &c13_id);
431    check_err(stat,__LINE__,__FILE__);
432
433    s21_dims[0] = D2_dim;
434    s21_dims[1] = D1_dim;
435    stat = nc_def_var(ncid, "s21", NC_SHORTRANK_s21s21_dims, &s21_id);
436    check_err(stat,__LINE__,__FILE__);
437
438    i22_dims[0] = D2_dim;
439    i22_dims[1] = D2_dim;
440    stat = nc_def_var(ncid, "i22", NC_INTRANK_i22i22_dims, &i22_id);
441    check_err(stat,__LINE__,__FILE__);
442
443    f23_dims[0] = D2_dim;
444    f23_dims[1] = D3_dim;
445    stat = nc_def_var(ncid, "f23", NC_FLOATRANK_f23f23_dims, &f23_id);
446    check_err(stat,__LINE__,__FILE__);
447
448    c31_dims[0] = D3_dim;
449    c31_dims[1] = D1_dim;
450    stat = nc_def_var(ncid, "c31", NC_CHARRANK_c31c31_dims, &c31_id);
451    check_err(stat,__LINE__,__FILE__);
452
453    b32_dims[0] = D3_dim;
454    b32_dims[1] = D2_dim;
455    stat = nc_def_var(ncid, "b32", NC_BYTERANK_b32b32_dims, &b32_id);
456    check_err(stat,__LINE__,__FILE__);
457
458    s33_dims[0] = D3_dim;
459    s33_dims[1] = D3_dim;
460    stat = nc_def_var(ncid, "s33", NC_SHORTRANK_s33s33_dims, &s33_id);
461    check_err(stat,__LINE__,__FILE__);
462
463    sr11_dims[0] = Dr_dim;
464    sr11_dims[1] = D1_dim;
465    sr11_dims[2] = D1_dim;
466    stat = nc_def_var(ncid, "sr11", NC_SHORTRANK_sr11sr11_dims, &sr11_id);
467    check_err(stat,__LINE__,__FILE__);
468
469    ir12_dims[0] = Dr_dim;
470    ir12_dims[1] = D1_dim;
471    ir12_dims[2] = D2_dim;
472    stat = nc_def_var(ncid, "ir12", NC_INTRANK_ir12ir12_dims, &ir12_id);
473    check_err(stat,__LINE__,__FILE__);
474
475    fr13_dims[0] = Dr_dim;
476    fr13_dims[1] = D1_dim;
477    fr13_dims[2] = D3_dim;
478    stat = nc_def_var(ncid, "fr13", NC_FLOATRANK_fr13fr13_dims, &fr13_id);
479    check_err(stat,__LINE__,__FILE__);
480
481    cr21_dims[0] = Dr_dim;
482    cr21_dims[1] = D2_dim;
483    cr21_dims[2] = D1_dim;
484    stat = nc_def_var(ncid, "cr21", NC_CHARRANK_cr21cr21_dims, &cr21_id);
485    check_err(stat,__LINE__,__FILE__);
486
487    br22_dims[0] = Dr_dim;
488    br22_dims[1] = D2_dim;
489    br22_dims[2] = D2_dim;
490    stat = nc_def_var(ncid, "br22", NC_BYTERANK_br22br22_dims, &br22_id);
491    check_err(stat,__LINE__,__FILE__);
492
493    sr23_dims[0] = Dr_dim;
494    sr23_dims[1] = D2_dim;
495    sr23_dims[2] = D3_dim;
496    stat = nc_def_var(ncid, "sr23", NC_SHORTRANK_sr23sr23_dims, &sr23_id);
497    check_err(stat,__LINE__,__FILE__);
498
499    fr31_dims[0] = Dr_dim;
500    fr31_dims[1] = D3_dim;
501    fr31_dims[2] = D1_dim;
502    stat = nc_def_var(ncid, "fr31", NC_FLOATRANK_fr31fr31_dims, &fr31_id);
503    check_err(stat,__LINE__,__FILE__);
504
505    dr32_dims[0] = Dr_dim;
506    dr32_dims[1] = D3_dim;
507    dr32_dims[2] = D2_dim;
508    stat = nc_def_var(ncid, "dr32", NC_DOUBLERANK_dr32dr32_dims, &dr32_id);
509    check_err(stat,__LINE__,__FILE__);
510
511    cr33_dims[0] = Dr_dim;
512    cr33_dims[1] = D3_dim;
513    cr33_dims[2] = D3_dim;
514    stat = nc_def_var(ncid, "cr33", NC_CHARRANK_cr33cr33_dims, &cr33_id);
515    check_err(stat,__LINE__,__FILE__);
516
517    c111_dims[0] = D1_dim;
518    c111_dims[1] = D1_dim;
519    c111_dims[2] = D1_dim;
520    stat = nc_def_var(ncid, "c111", NC_CHARRANK_c111c111_dims, &c111_id);
521    check_err(stat,__LINE__,__FILE__);
522
523    b112_dims[0] = D1_dim;
524    b112_dims[1] = D1_dim;
525    b112_dims[2] = D2_dim;
526    stat = nc_def_var(ncid, "b112", NC_BYTERANK_b112b112_dims, &b112_id);
527    check_err(stat,__LINE__,__FILE__);
528
529    s113_dims[0] = D1_dim;
530    s113_dims[1] = D1_dim;
531    s113_dims[2] = D3_dim;
532    stat = nc_def_var(ncid, "s113", NC_SHORTRANK_s113s113_dims, &s113_id);
533    check_err(stat,__LINE__,__FILE__);
534
535    f121_dims[0] = D1_dim;
536    f121_dims[1] = D2_dim;
537    f121_dims[2] = D1_dim;
538    stat = nc_def_var(ncid, "f121", NC_FLOATRANK_f121f121_dims, &f121_id);
539    check_err(stat,__LINE__,__FILE__);
540
541    d122_dims[0] = D1_dim;
542    d122_dims[1] = D2_dim;
543    d122_dims[2] = D2_dim;
544    stat = nc_def_var(ncid, "d122", NC_DOUBLERANK_d122d122_dims, &d122_id);
545    check_err(stat,__LINE__,__FILE__);
546
547    c123_dims[0] = D1_dim;
548    c123_dims[1] = D2_dim;
549    c123_dims[2] = D3_dim;
550    stat = nc_def_var(ncid, "c123", NC_CHARRANK_c123c123_dims, &c123_id);
551    check_err(stat,__LINE__,__FILE__);
552
553    s131_dims[0] = D1_dim;
554    s131_dims[1] = D3_dim;
555    s131_dims[2] = D1_dim;
556    stat = nc_def_var(ncid, "s131", NC_SHORTRANK_s131s131_dims, &s131_id);
557    check_err(stat,__LINE__,__FILE__);
558
559    i132_dims[0] = D1_dim;
560    i132_dims[1] = D3_dim;
561    i132_dims[2] = D2_dim;
562    stat = nc_def_var(ncid, "i132", NC_INTRANK_i132i132_dims, &i132_id);
563    check_err(stat,__LINE__,__FILE__);
564
565    f133_dims[0] = D1_dim;
566    f133_dims[1] = D3_dim;
567    f133_dims[2] = D3_dim;
568    stat = nc_def_var(ncid, "f133", NC_FLOATRANK_f133f133_dims, &f133_id);
569    check_err(stat,__LINE__,__FILE__);
570
571    f211_dims[0] = D2_dim;
572    f211_dims[1] = D1_dim;
573    f211_dims[2] = D1_dim;
574    stat = nc_def_var(ncid, "f211", NC_FLOATRANK_f211f211_dims, &f211_id);
575    check_err(stat,__LINE__,__FILE__);
576
577    d212_dims[0] = D2_dim;
578    d212_dims[1] = D1_dim;
579    d212_dims[2] = D2_dim;
580    stat = nc_def_var(ncid, "d212", NC_DOUBLERANK_d212d212_dims, &d212_id);
581    check_err(stat,__LINE__,__FILE__);
582
583    c213_dims[0] = D2_dim;
584    c213_dims[1] = D1_dim;
585    c213_dims[2] = D3_dim;
586    stat = nc_def_var(ncid, "c213", NC_CHARRANK_c213c213_dims, &c213_id);
587    check_err(stat,__LINE__,__FILE__);
588
589    s221_dims[0] = D2_dim;
590    s221_dims[1] = D2_dim;
591    s221_dims[2] = D1_dim;
592    stat = nc_def_var(ncid, "s221", NC_SHORTRANK_s221s221_dims, &s221_id);
593    check_err(stat,__LINE__,__FILE__);
594
595    i222_dims[0] = D2_dim;
596    i222_dims[1] = D2_dim;
597    i222_dims[2] = D2_dim;
598    stat = nc_def_var(ncid, "i222", NC_INTRANK_i222i222_dims, &i222_id);
599    check_err(stat,__LINE__,__FILE__);
600
601    f223_dims[0] = D2_dim;
602    f223_dims[1] = D2_dim;
603    f223_dims[2] = D3_dim;
604    stat = nc_def_var(ncid, "f223", NC_FLOATRANK_f223f223_dims, &f223_id);
605    check_err(stat,__LINE__,__FILE__);
606
607    c231_dims[0] = D2_dim;
608    c231_dims[1] = D3_dim;
609    c231_dims[2] = D1_dim;
610    stat = nc_def_var(ncid, "c231", NC_CHARRANK_c231c231_dims, &c231_id);
611    check_err(stat,__LINE__,__FILE__);
612
613    b232_dims[0] = D2_dim;
614    b232_dims[1] = D3_dim;
615    b232_dims[2] = D2_dim;
616    stat = nc_def_var(ncid, "b232", NC_BYTERANK_b232b232_dims, &b232_id);
617    check_err(stat,__LINE__,__FILE__);
618
619    s233_dims[0] = D2_dim;
620    s233_dims[1] = D3_dim;
621    s233_dims[2] = D3_dim;
622    stat = nc_def_var(ncid, "s233", NC_SHORTRANK_s233s233_dims, &s233_id);
623    check_err(stat,__LINE__,__FILE__);
624
625    s311_dims[0] = D3_dim;
626    s311_dims[1] = D1_dim;
627    s311_dims[2] = D1_dim;
628    stat = nc_def_var(ncid, "s311", NC_SHORTRANK_s311s311_dims, &s311_id);
629    check_err(stat,__LINE__,__FILE__);
630
631    i312_dims[0] = D3_dim;
632    i312_dims[1] = D1_dim;
633    i312_dims[2] = D2_dim;
634    stat = nc_def_var(ncid, "i312", NC_INTRANK_i312i312_dims, &i312_id);
635    check_err(stat,__LINE__,__FILE__);
636
637    f313_dims[0] = D3_dim;
638    f313_dims[1] = D1_dim;
639    f313_dims[2] = D3_dim;
640    stat = nc_def_var(ncid, "f313", NC_FLOATRANK_f313f313_dims, &f313_id);
641    check_err(stat,__LINE__,__FILE__);
642
643    stat = nc_def_var(ncid, "var-name-dashes", NC_DOUBLERANK_var_MINUS_name_MINUS_dashes, 0, &var_MINUS_name_MINUS_dashes_id);
644    check_err(stat,__LINE__,__FILE__);
645
646    stat = nc_def_var(ncid, "var.name.dots", NC_DOUBLERANK_var_PERIOD_name_PERIOD_dots, 0, &var_PERIOD_name_PERIOD_dots_id);
647    check_err(stat,__LINE__,__FILE__);
648
649    stat = nc_def_var(ncid, "var+name+plusses", NC_DOUBLERANK_var_PLUS_name_PLUS_plusses, 0, &var_PLUS_name_PLUS_plusses_id);
650    check_err(stat,__LINE__,__FILE__);
651
652    stat = nc_def_var(ncid, "var@name@ats", NC_DOUBLERANK_var_ATSIGN_name_ATSIGN_ats, 0, &var_ATSIGN_name_ATSIGN_ats_id);
653    check_err(stat,__LINE__,__FILE__);
654
655    /* assign global attributes */
656
657    {
658    stat = nc_put_att_text(ncidNC_GLOBAL, "Gc", 1, "");
659    check_err(stat,__LINE__,__FILE__);
660    }
661
662    {
663    static const signed char c0_Gb_att[2] = {-128, 127} ;
664    stat = nc_put_att_schar(ncidNC_GLOBAL, "Gb", NC_BYTE, 2, c0_Gb_att);
665    check_err(stat,__LINE__,__FILE__);
666    }
667
668    {
669    static const short c0_Gs_att[3] = {-32768, 0, 32767} ;
670    stat = nc_put_att_short(ncidNC_GLOBAL, "Gs", NC_SHORT, 3, c0_Gs_att);
671    check_err(stat,__LINE__,__FILE__);
672    }
673
674    {
675    static const int c0_Gi_att[3] = {-2147483647, 0, 2147483647} ;
676    stat = nc_put_att_int(ncidNC_GLOBAL, "Gi", NC_INT, 3, c0_Gi_att);
677    check_err(stat,__LINE__,__FILE__);
678    }
679
680    {
681    static const float c0_Gf_att[3] = {((float)-9.9999996e+35), ((float)0), ((float)9.9999996e+35)} ;
682    stat = nc_put_att_float(ncidNC_GLOBAL, "Gf", NC_FLOAT, 3, c0_Gf_att);
683    check_err(stat,__LINE__,__FILE__);
684    }
685
686    {
687    static const double c0_Gd_att[3] = {((double)-1e+308), ((double)0), ((double)1e+308)} ;
688    stat = nc_put_att_double(ncidNC_GLOBAL, "Gd", NC_DOUBLE, 3, c0_Gd_att);
689    check_err(stat,__LINE__,__FILE__);
690    }
691
692    {
693    static const int c0_Gatt_MINUS_name_MINUS_dashes_att[1] = {-1} ;
694    stat = nc_put_att_int(ncidNC_GLOBAL, "Gatt-name-dashes", NC_INT, 1, c0_Gatt_MINUS_name_MINUS_dashes_att);
695    check_err(stat,__LINE__,__FILE__);
696    }
697
698    {
699    static const int c0_Gatt_DOT_name_DOT_dots_att[1] = {-2} ;
700    stat = nc_put_att_int(ncidNC_GLOBAL, "Gatt.name.dots", NC_INT, 1, c0_Gatt_DOT_name_DOT_dots_att);
701    check_err(stat,__LINE__,__FILE__);
702    }
703
704    {
705    static const int c0_Gatt_PLUS_name_PLUS_plusses_att[1] = {-3} ;
706    stat = nc_put_att_int(ncidNC_GLOBAL, "Gatt+name+plusses", NC_INT, 1, c0_Gatt_PLUS_name_PLUS_plusses_att);
707    check_err(stat,__LINE__,__FILE__);
708    }
709
710    {
711    static const int c0_Gatt_ATSIGN_name_ATSIGN_ats_att[1] = {-4} ;
712    stat = nc_put_att_int(ncidNC_GLOBAL, "Gatt@name@ats", NC_INT, 1, c0_Gatt_ATSIGN_name_ATSIGN_ats_att);
713    check_err(stat,__LINE__,__FILE__);
714    }
715
716
717    /* assign per-variable attributes */
718
719    {
720    static const int c0_att_MINUS_name_MINUS_dashes_att[1] = {4} ;
721    stat = nc_put_att_int(ncidc_id, "att-name-dashes", NC_INT, 1, c0_att_MINUS_name_MINUS_dashes_att);
722    check_err(stat,__LINE__,__FILE__);
723    }
724
725    {
726    static const int c0_att_DOT_name_DOT_dots_att[1] = {5} ;
727    stat = nc_put_att_int(ncidc_id, "att.name.dots", NC_INT, 1, c0_att_DOT_name_DOT_dots_att);
728    check_err(stat,__LINE__,__FILE__);
729    }
730
731    {
732    static const int c0_att_PLUS_name_PLUS_plusses_att[1] = {6} ;
733    stat = nc_put_att_int(ncidc_id, "att+name+plusses", NC_INT, 1, c0_att_PLUS_name_PLUS_plusses_att);
734    check_err(stat,__LINE__,__FILE__);
735    }
736
737    {
738    static const int c0_att_ATSIGN_name_ATSIGN_ats_att[1] = {7} ;
739    stat = nc_put_att_int(ncidc_id, "att@name@ats", NC_INT, 1, c0_att_ATSIGN_name_ATSIGN_ats_att);
740    check_err(stat,__LINE__,__FILE__);
741    }
742
743    {
744    stat = nc_put_att_text(ncidb_id, "c", 1, "");
745    check_err(stat,__LINE__,__FILE__);
746    }
747
748    {
749    static const signed char c0_b_att[4] = {0, 127, -128, -1} ;
750    stat = nc_put_att_schar(ncids_id, "b", NC_BYTE, 4, c0_b_att);
751    check_err(stat,__LINE__,__FILE__);
752    }
753
754    {
755    static const short c0_s_att[3] = {-32768, 0, 32767} ;
756    stat = nc_put_att_short(ncids_id, "s", NC_SHORT, 3, c0_s_att);
757    check_err(stat,__LINE__,__FILE__);
758    }
759
760    {
761    static const int c0_i_att[3] = {-2147483647, 0, 2147483647} ;
762    stat = nc_put_att_int(ncidi_id, "i", NC_INT, 3, c0_i_att);
763    check_err(stat,__LINE__,__FILE__);
764    }
765
766    {
767    static const float c0_f_att[3] = {((float)-9.9999996e+35), ((float)0), ((float)9.9999996e+35)} ;
768    stat = nc_put_att_float(ncidi_id, "f", NC_FLOAT, 3, c0_f_att);
769    check_err(stat,__LINE__,__FILE__);
770    }
771
772    {
773    static const double c0_d_att[3] = {((double)-1e+308), ((double)0), ((double)1e+308)} ;
774    stat = nc_put_att_double(ncidi_id, "d", NC_DOUBLE, 3, c0_d_att);
775    check_err(stat,__LINE__,__FILE__);
776    }
777
778    {
779    stat = nc_put_att_text(ncidf_id, "c", 1, "x");
780    check_err(stat,__LINE__,__FILE__);
781    }
782
783    {
784    stat = nc_put_att_text(ncidd_id, "c", 8, "abcd\tZ$&");
785    check_err(stat,__LINE__,__FILE__);
786    }
787
788
789    /* leave define mode */
790    stat = nc_enddef (ncid);
791    check_err(stat,__LINE__,__FILE__);
792
793    /* assign variable data */
794
795    {
796    size_t count = 0;
797    static char c_data[1] = {'2'};
798    stat = nc_put_var1(ncidc_id, &countc_data);
799    check_err(stat,__LINE__,__FILE__);
800    }
801
802
803    {
804    size_t count = 0;
805    static signed char b_data[1] = {-2};
806    stat = nc_put_var1(ncidb_id, &countb_data);
807    check_err(stat,__LINE__,__FILE__);
808    }
809
810
811    {
812    size_t count = 0;
813    static short s_data[1] = {-5};
814    stat = nc_put_var1(ncids_id, &counts_data);
815    check_err(stat,__LINE__,__FILE__);
816    }
817
818
819    {
820    size_t count = 0;
821    static int i_data[1] = {-20};
822    stat = nc_put_var1(ncidi_id, &counti_data);
823    check_err(stat,__LINE__,__FILE__);
824    }
825
826
827    {
828    size_t count = 0;
829    static float f_data[1] = {((float)-9)};
830    stat = nc_put_var1(ncidf_id, &countf_data);
831    check_err(stat,__LINE__,__FILE__);
832    }
833
834
835    {
836    size_t count = 0;
837    static double d_data[1] = {((double)-10)};
838    stat = nc_put_var1(ncidd_id, &countd_data);
839    check_err(stat,__LINE__,__FILE__);
840    }
841
842
843    {
844    char* cr_data = "ab" ;
845    size_t cr_startset[1] = {0} ;
846    size_t cr_countset[1] = {2};
847    stat = nc_put_vara(ncidcr_idcr_startsetcr_countsetcr_data);
848    check_err(stat,__LINE__,__FILE__);
849    }
850
851
852    {
853    signed char br_data[2] = {-128, 127} ;
854    size_t br_startset[1] = {0} ;
855    size_t br_countset[1] = {2};
856    stat = nc_put_vara(ncidbr_idbr_startsetbr_countsetbr_data);
857    check_err(stat,__LINE__,__FILE__);
858    }
859
860
861    {
862    short sr_data[2] = {-32768, 32767} ;
863    size_t sr_startset[1] = {0} ;
864    size_t sr_countset[1] = {2};
865    stat = nc_put_vara(ncidsr_idsr_startsetsr_countsetsr_data);
866    check_err(stat,__LINE__,__FILE__);
867    }
868
869
870    {
871    int ir_data[2] = {-2147483646, 2147483647} ;
872    size_t ir_startset[1] = {0} ;
873    size_t ir_countset[1] = {2};
874    stat = nc_put_vara(ncidir_idir_startsetir_countsetir_data);
875    check_err(stat,__LINE__,__FILE__);
876    }
877
878
879    {
880    float fr_data[2] = {((float)-9.9999996e+35), ((float)9.9999996e+35)} ;
881    size_t fr_startset[1] = {0} ;
882    size_t fr_countset[1] = {2};
883    stat = nc_put_vara(ncidfr_idfr_startsetfr_countsetfr_data);
884    check_err(stat,__LINE__,__FILE__);
885    }
886
887
888    {
889    double dr_data[2] = {((double)-1e+308), ((double)1e+308)} ;
890    size_t dr_startset[1] = {0} ;
891    size_t dr_countset[1] = {2};
892    stat = nc_put_vara(nciddr_iddr_startsetdr_countsetdr_data);
893    check_err(stat,__LINE__,__FILE__);
894    }
895
896
897    {
898    char* c1_data = "\000" ;
899    size_t c1_startset[1] = {0} ;
900    size_t c1_countset[1] = {1};
901    stat = nc_put_vara(ncidc1_idc1_startsetc1_countsetc1_data);
902    check_err(stat,__LINE__,__FILE__);
903    }
904
905
906    {
907    signed char b1_data[1] = {-128} ;
908    size_t b1_startset[1] = {0} ;
909    size_t b1_countset[1] = {1};
910    stat = nc_put_vara(ncidb1_idb1_startsetb1_countsetb1_data);
911    check_err(stat,__LINE__,__FILE__);
912    }
913
914
915    {
916    short s1_data[1] = {-32768} ;
917    size_t s1_startset[1] = {0} ;
918    size_t s1_countset[1] = {1};
919    stat = nc_put_vara(ncids1_ids1_startsets1_countsets1_data);
920    check_err(stat,__LINE__,__FILE__);
921    }
922
923
924    {
925    int i1_data[1] = {-2147483646} ;
926    size_t i1_startset[1] = {0} ;
927    size_t i1_countset[1] = {1};
928    stat = nc_put_vara(ncidi1_idi1_startseti1_countseti1_data);
929    check_err(stat,__LINE__,__FILE__);
930    }
931
932
933    {
934    float f1_data[1] = {((float)-9.9999996e+35)} ;
935    size_t f1_startset[1] = {0} ;
936    size_t f1_countset[1] = {1};
937    stat = nc_put_vara(ncidf1_idf1_startsetf1_countsetf1_data);
938    check_err(stat,__LINE__,__FILE__);
939    }
940
941
942    {
943    double d1_data[1] = {((double)-1e+308)} ;
944    size_t d1_startset[1] = {0} ;
945    size_t d1_countset[1] = {1};
946    stat = nc_put_vara(ncidd1_idd1_startsetd1_countsetd1_data);
947    check_err(stat,__LINE__,__FILE__);
948    }
949
950
951    {
952    char* c2_data = "ab" ;
953    size_t c2_startset[1] = {0} ;
954    size_t c2_countset[1] = {2};
955    stat = nc_put_vara(ncidc2_idc2_startsetc2_countsetc2_data);
956    check_err(stat,__LINE__,__FILE__);
957    }
958
959
960    {
961    signed char b2_data[2] = {-128, 127} ;
962    size_t b2_startset[1] = {0} ;
963    size_t b2_countset[1] = {2};
964    stat = nc_put_vara(ncidb2_idb2_startsetb2_countsetb2_data);
965    check_err(stat,__LINE__,__FILE__);
966    }
967
968
969    {
970    short s2_data[2] = {-32768, 32767} ;
971    size_t s2_startset[1] = {0} ;
972    size_t s2_countset[1] = {2};
973    stat = nc_put_vara(ncids2_ids2_startsets2_countsets2_data);
974    check_err(stat,__LINE__,__FILE__);
975    }
976
977
978    {
979    int i2_data[2] = {-2147483646, 2147483647} ;
980    size_t i2_startset[1] = {0} ;
981    size_t i2_countset[1] = {2};
982    stat = nc_put_vara(ncidi2_idi2_startseti2_countseti2_data);
983    check_err(stat,__LINE__,__FILE__);
984    }
985
986
987    {
988    float f2_data[2] = {((float)-9.9999996e+35), ((float)9.9999996e+35)} ;
989    size_t f2_startset[1] = {0} ;
990    size_t f2_countset[1] = {2};
991    stat = nc_put_vara(ncidf2_idf2_startsetf2_countsetf2_data);
992    check_err(stat,__LINE__,__FILE__);
993    }
994
995
996    {
997    double d2_data[2] = {((double)-1e+308), ((double)1e+308)} ;
998    size_t d2_startset[1] = {0} ;
999    size_t d2_countset[1] = {2};
1000    stat = nc_put_vara(ncidd2_idd2_startsetd2_countsetd2_data);
1001    check_err(stat,__LINE__,__FILE__);
1002    }
1003
1004
1005    {
1006    char* c3_data = "\001\177." ;
1007    size_t c3_startset[1] = {0} ;
1008    size_t c3_countset[1] = {3};
1009    stat = nc_put_vara(ncidc3_idc3_startsetc3_countsetc3_data);
1010    check_err(stat,__LINE__,__FILE__);
1011    }
1012
1013
1014    {
1015    signed char b3_data[3] = {-128, 127, -1} ;
1016    size_t b3_startset[1] = {0} ;
1017    size_t b3_countset[1] = {3};
1018    stat = nc_put_vara(ncidb3_idb3_startsetb3_countsetb3_data);
1019    check_err(stat,__LINE__,__FILE__);
1020    }
1021
1022
1023    {
1024    short s3_data[3] = {-32768, 0, 32767} ;
1025    size_t s3_startset[1] = {0} ;
1026    size_t s3_countset[1] = {3};
1027    stat = nc_put_vara(ncids3_ids3_startsets3_countsets3_data);
1028    check_err(stat,__LINE__,__FILE__);
1029    }
1030
1031
1032    {
1033    int i3_data[3] = {-2147483646, 0, 2147483647} ;
1034    size_t i3_startset[1] = {0} ;
1035    size_t i3_countset[1] = {3};
1036    stat = nc_put_vara(ncidi3_idi3_startseti3_countseti3_data);
1037    check_err(stat,__LINE__,__FILE__);
1038    }
1039
1040
1041    {
1042    float f3_data[3] = {((float)-9.9999996e+35), ((float)0), ((float)9.9999996e+35)} ;
1043    size_t f3_startset[1] = {0} ;
1044    size_t f3_countset[1] = {3};
1045    stat = nc_put_vara(ncidf3_idf3_startsetf3_countsetf3_data);
1046    check_err(stat,__LINE__,__FILE__);
1047    }
1048
1049
1050    {
1051    double d3_data[3] = {((double)-1e+308), ((double)0), ((double)1e+308)} ;
1052    size_t d3_startset[1] = {0} ;
1053    size_t d3_countset[1] = {3};
1054    stat = nc_put_vara(ncidd3_idd3_startsetd3_countsetd3_data);
1055    check_err(stat,__LINE__,__FILE__);
1056    }
1057
1058
1059    {
1060    char* cr1_data = "xy" ;
1061    size_t cr1_startset[2] = {0, 0} ;
1062    size_t cr1_countset[2] = {2, 1};
1063    stat = nc_put_vara(ncidcr1_idcr1_startsetcr1_countsetcr1_data);
1064    check_err(stat,__LINE__,__FILE__);
1065    }
1066
1067
1068    {
1069    signed char br2_data[4] = {-24, -26, -20, -22} ;
1070    size_t br2_startset[2] = {0, 0} ;
1071    size_t br2_countset[2] = {2, 2};
1072    stat = nc_put_vara(ncidbr2_idbr2_startsetbr2_countsetbr2_data);
1073    check_err(stat,__LINE__,__FILE__);
1074    }
1075
1076
1077    {
1078    short sr3_data[6] = {-375, -380, -385, -350, -355, -360} ;
1079    size_t sr3_startset[2] = {0, 0} ;
1080    size_t sr3_countset[2] = {2, 3};
1081    stat = nc_put_vara(ncidsr3_idsr3_startsetsr3_countsetsr3_data);
1082    check_err(stat,__LINE__,__FILE__);
1083    }
1084
1085
1086    {
1087    float f11_data[1] = {((float)-2187)} ;
1088    size_t f11_startset[2] = {0, 0} ;
1089    size_t f11_countset[2] = {1, 1};
1090    stat = nc_put_vara(ncidf11_idf11_startsetf11_countsetf11_data);
1091    check_err(stat,__LINE__,__FILE__);
1092    }
1093
1094
1095    {
1096    double d12_data[2] = {((double)-3000), ((double)-3010)} ;
1097    size_t d12_startset[2] = {0, 0} ;
1098    size_t d12_countset[2] = {1, 2};
1099    stat = nc_put_vara(ncidd12_idd12_startsetd12_countsetd12_data);
1100    check_err(stat,__LINE__,__FILE__);
1101    }
1102
1103
1104    {
1105    char* c13_data = "\tb\177" ;
1106    size_t c13_startset[2] = {0, 0} ;
1107    size_t c13_countset[2] = {1, 3};
1108    stat = nc_put_vara(ncidc13_idc13_startsetc13_countsetc13_data);
1109    check_err(stat,__LINE__,__FILE__);
1110    }
1111
1112
1113    {
1114    short s21_data[2] = {-375, -350} ;
1115    size_t s21_startset[2] = {0, 0} ;
1116    size_t s21_countset[2] = {2, 1};
1117    stat = nc_put_vara(ncids21_ids21_startsets21_countsets21_data);
1118    check_err(stat,__LINE__,__FILE__);
1119    }
1120
1121
1122    {
1123    int i22_data[4] = {-24000, -24020, -23600, -23620} ;
1124    size_t i22_startset[2] = {0, 0} ;
1125    size_t i22_countset[2] = {2, 2};
1126    stat = nc_put_vara(ncidi22_idi22_startseti22_countseti22_data);
1127    check_err(stat,__LINE__,__FILE__);
1128    }
1129
1130
1131    {
1132    float f23_data[6] = {((float)-2187), ((float)-2196), ((float)-2205), ((float)-2106), ((float)-2115), ((float)-2124)} ;
1133    size_t f23_startset[2] = {0, 0} ;
1134    size_t f23_countset[2] = {2, 3};
1135    stat = nc_put_vara(ncidf23_idf23_startsetf23_countsetf23_data);
1136    check_err(stat,__LINE__,__FILE__);
1137    }
1138
1139
1140    {
1141    char* c31_data = "+- " ;
1142    size_t c31_startset[2] = {0, 0} ;
1143    size_t c31_countset[2] = {3, 1};
1144    stat = nc_put_vara(ncidc31_idc31_startsetc31_countsetc31_data);
1145    check_err(stat,__LINE__,__FILE__);
1146    }
1147
1148
1149    {
1150    signed char b32_data[6] = {-24, -26, -20, -22, -16, -18} ;
1151    size_t b32_startset[2] = {0, 0} ;
1152    size_t b32_countset[2] = {3, 2};
1153    stat = nc_put_vara(ncidb32_idb32_startsetb32_countsetb32_data);
1154    check_err(stat,__LINE__,__FILE__);
1155    }
1156
1157
1158    {
1159    short s33_data[9] = {-375, -380, -385, -350, -355, -360, -325, -330, -335} ;
1160    size_t s33_startset[2] = {0, 0} ;
1161    size_t s33_countset[2] = {3, 3};
1162    stat = nc_put_vara(ncids33_ids33_startsets33_countsets33_data);
1163    check_err(stat,__LINE__,__FILE__);
1164    }
1165
1166
1167    {
1168    short sr11_data[2] = {2500, 2375} ;
1169    size_t sr11_startset[3] = {0, 0, 0} ;
1170    size_t sr11_countset[3] = {2, 1, 1};
1171    stat = nc_put_vara(ncidsr11_idsr11_startsetsr11_countsetsr11_data);
1172    check_err(stat,__LINE__,__FILE__);
1173    }
1174
1175
1176    {
1177    int ir12_data[4] = {640000, 639980, 632000, 631980} ;
1178    size_t ir12_startset[3] = {0, 0, 0} ;
1179    size_t ir12_countset[3] = {2, 1, 2};
1180    stat = nc_put_vara(ncidir12_idir12_startsetir12_countsetir12_data);
1181    check_err(stat,__LINE__,__FILE__);
1182    }
1183
1184
1185    {
1186    float fr13_data[6] = {((float)26244), ((float)26235), ((float)26226), ((float)25515), ((float)25506), ((float)25497)} ;
1187    size_t fr13_startset[3] = {0, 0, 0} ;
1188    size_t fr13_countset[3] = {2, 1, 3};
1189    stat = nc_put_vara(ncidfr13_idfr13_startsetfr13_countsetfr13_data);
1190    check_err(stat,__LINE__,__FILE__);
1191    }
1192
1193
1194    {
1195    char* cr21_data = "@DHL" ;
1196    size_t cr21_startset[3] = {0, 0, 0} ;
1197    size_t cr21_countset[3] = {2, 2, 1};
1198    stat = nc_put_vara(ncidcr21_idcr21_startsetcr21_countsetcr21_data);
1199    check_err(stat,__LINE__,__FILE__);
1200    }
1201
1202
1203    {
1204    signed char br22_data[8] = {64, 62, 68, 66, 56, 54, 60, 58} ;
1205    size_t br22_startset[3] = {0, 0, 0} ;
1206    size_t br22_countset[3] = {2, 2, 2};
1207    stat = nc_put_vara(ncidbr22_idbr22_startsetbr22_countsetbr22_data);
1208    check_err(stat,__LINE__,__FILE__);
1209    }
1210
1211
1212    {
1213    short sr23_data[12] = {2500, 2495, 2490, 2525, 2520, 2515, 2375, 2370, 2365, 2400, 2395, 2390} ;
1214    size_t sr23_startset[3] = {0, 0, 0} ;
1215    size_t sr23_countset[3] = {2, 2, 3};
1216    stat = nc_put_vara(ncidsr23_idsr23_startsetsr23_countsetsr23_data);
1217    check_err(stat,__LINE__,__FILE__);
1218    }
1219
1220
1221    {
1222    float fr31_data[6] = {((float)26244), ((float)26325), ((float)26406), ((float)25515), ((float)25596), ((float)25677)} ;
1223    size_t fr31_startset[3] = {0, 0, 0} ;
1224    size_t fr31_countset[3] = {2, 3, 1};
1225    stat = nc_put_vara(ncidfr31_idfr31_startsetfr31_countsetfr31_data);
1226    check_err(stat,__LINE__,__FILE__);
1227    }
1228
1229
1230    {
1231    double dr32_data[12] = {((double)40000), ((double)39990), ((double)40100), ((double)40090), ((double)40200), ((double)40190), ((double)39000), ((double)38990), ((double)39100), ((double)39090), ((double)39200), ((double)39190)} ;
1232    size_t dr32_startset[3] = {0, 0, 0} ;
1233    size_t dr32_countset[3] = {2, 3, 2};
1234    stat = nc_put_vara(nciddr32_iddr32_startsetdr32_countsetdr32_data);
1235    check_err(stat,__LINE__,__FILE__);
1236    }
1237
1238
1239    {
1240    char* cr33_data = "1\000\000two3\000\0004\000\0005\000\000six" ;
1241    size_t cr33_startset[3] = {0, 0, 0} ;
1242    size_t cr33_countset[3] = {2, 3, 3};
1243    stat = nc_put_vara(ncidcr33_idcr33_startsetcr33_countsetcr33_data);
1244    check_err(stat,__LINE__,__FILE__);
1245    }
1246
1247
1248    {
1249    char* c111_data = "@" ;
1250    size_t c111_startset[3] = {0, 0, 0} ;
1251    size_t c111_countset[3] = {1, 1, 1};
1252    stat = nc_put_vara(ncidc111_idc111_startsetc111_countsetc111_data);
1253    check_err(stat,__LINE__,__FILE__);
1254    }
1255
1256
1257    {
1258    signed char b112_data[2] = {64, 62} ;
1259    size_t b112_startset[3] = {0, 0, 0} ;
1260    size_t b112_countset[3] = {1, 1, 2};
1261    stat = nc_put_vara(ncidb112_idb112_startsetb112_countsetb112_data);
1262    check_err(stat,__LINE__,__FILE__);
1263    }
1264
1265
1266    {
1267    short s113_data[3] = {2500, 2495, 2490} ;
1268    size_t s113_startset[3] = {0, 0, 0} ;
1269    size_t s113_countset[3] = {1, 1, 3};
1270    stat = nc_put_vara(ncids113_ids113_startsets113_countsets113_data);
1271    check_err(stat,__LINE__,__FILE__);
1272    }
1273
1274
1275    {
1276    float f121_data[2] = {((float)26244), ((float)26325)} ;
1277    size_t f121_startset[3] = {0, 0, 0} ;
1278    size_t f121_countset[3] = {1, 2, 1};
1279    stat = nc_put_vara(ncidf121_idf121_startsetf121_countsetf121_data);
1280    check_err(stat,__LINE__,__FILE__);
1281    }
1282
1283
1284    {
1285    double d122_data[4] = {((double)40000), ((double)39990), ((double)40100), ((double)40090)} ;
1286    size_t d122_startset[3] = {0, 0, 0} ;
1287    size_t d122_countset[3] = {1, 2, 2};
1288    stat = nc_put_vara(ncidd122_idd122_startsetd122_countsetd122_data);
1289    check_err(stat,__LINE__,__FILE__);
1290    }
1291
1292
1293    {
1294    char* c123_data = "one2\000\000" ;
1295    size_t c123_startset[3] = {0, 0, 0} ;
1296    size_t c123_countset[3] = {1, 2, 3};
1297    stat = nc_put_vara(ncidc123_idc123_startsetc123_countsetc123_data);
1298    check_err(stat,__LINE__,__FILE__);
1299    }
1300
1301
1302    {
1303    short s131_data[3] = {2500, 2525, 2550} ;
1304    size_t s131_startset[3] = {0, 0, 0} ;
1305    size_t s131_countset[3] = {1, 3, 1};
1306    stat = nc_put_vara(ncids131_ids131_startsets131_countsets131_data);
1307    check_err(stat,__LINE__,__FILE__);
1308    }
1309
1310
1311    {
1312    int i132_data[6] = {640000, 639980, 640400, 640380, 640800, 640780} ;
1313    size_t i132_startset[3] = {0, 0, 0} ;
1314    size_t i132_countset[3] = {1, 3, 2};
1315    stat = nc_put_vara(ncidi132_idi132_startseti132_countseti132_data);
1316    check_err(stat,__LINE__,__FILE__);
1317    }
1318
1319
1320    {
1321    float f133_data[9] = {((float)26244), ((float)26235), ((float)26226), ((float)26325), ((float)26316), ((float)26307), ((float)26406), ((float)26397), ((float)26388)} ;
1322    size_t f133_startset[3] = {0, 0, 0} ;
1323    size_t f133_countset[3] = {1, 3, 3};
1324    stat = nc_put_vara(ncidf133_idf133_startsetf133_countsetf133_data);
1325    check_err(stat,__LINE__,__FILE__);
1326    }
1327
1328
1329    {
1330    float f211_data[2] = {((float)26244), ((float)25515)} ;
1331    size_t f211_startset[3] = {0, 0, 0} ;
1332    size_t f211_countset[3] = {2, 1, 1};
1333    stat = nc_put_vara(ncidf211_idf211_startsetf211_countsetf211_data);
1334    check_err(stat,__LINE__,__FILE__);
1335    }
1336
1337
1338    {
1339    double d212_data[4] = {((double)40000), ((double)39990), ((double)39000), ((double)38990)} ;
1340    size_t d212_startset[3] = {0, 0, 0} ;
1341    size_t d212_countset[3] = {2, 1, 2};
1342    stat = nc_put_vara(ncidd212_idd212_startsetd212_countsetd212_data);
1343    check_err(stat,__LINE__,__FILE__);
1344    }
1345
1346
1347    {
1348    char* c213_data = "\000\000\000\000\000\000" ;
1349    size_t c213_startset[3] = {0, 0, 0} ;
1350    size_t c213_countset[3] = {2, 1, 3};
1351    stat = nc_put_vara(ncidc213_idc213_startsetc213_countsetc213_data);
1352    check_err(stat,__LINE__,__FILE__);
1353    }
1354
1355
1356    {
1357    short s221_data[4] = {2500, 2525, 2375, 2400} ;
1358    size_t s221_startset[3] = {0, 0, 0} ;
1359    size_t s221_countset[3] = {2, 2, 1};
1360    stat = nc_put_vara(ncids221_ids221_startsets221_countsets221_data);
1361    check_err(stat,__LINE__,__FILE__);
1362    }
1363
1364
1365    {
1366    int i222_data[8] = {640000, 639980, 640400, 640380, 632000, 631980, 632400, 632380} ;
1367    size_t i222_startset[3] = {0, 0, 0} ;
1368    size_t i222_countset[3] = {2, 2, 2};
1369    stat = nc_put_vara(ncidi222_idi222_startseti222_countseti222_data);
1370    check_err(stat,__LINE__,__FILE__);
1371    }
1372
1373
1374    {
1375    float f223_data[12] = {((float)26244), ((float)26235), ((float)26226), ((float)26325), ((float)26316), ((float)26307), ((float)25515), ((float)25506), ((float)25497), ((float)25596), ((float)25587), ((float)25578)} ;
1376    size_t f223_startset[3] = {0, 0, 0} ;
1377    size_t f223_countset[3] = {2, 2, 3};
1378    stat = nc_put_vara(ncidf223_idf223_startsetf223_countsetf223_data);
1379    check_err(stat,__LINE__,__FILE__);
1380    }
1381
1382
1383    {
1384    char* c231_data = "@DHHLP" ;
1385    size_t c231_startset[3] = {0, 0, 0} ;
1386    size_t c231_countset[3] = {2, 3, 1};
1387    stat = nc_put_vara(ncidc231_idc231_startsetc231_countsetc231_data);
1388    check_err(stat,__LINE__,__FILE__);
1389    }
1390
1391
1392    {
1393    signed char b232_data[12] = {64, 62, 68, 66, 72, 70, 56, 54, 60, 58, 64, 62} ;
1394    size_t b232_startset[3] = {0, 0, 0} ;
1395    size_t b232_countset[3] = {2, 3, 2};
1396    stat = nc_put_vara(ncidb232_idb232_startsetb232_countsetb232_data);
1397    check_err(stat,__LINE__,__FILE__);
1398    }
1399
1400
1401    {
1402    short s233_data[18] = {2500, 2495, 2490, 2525, 2520, 2515, 2550, 2545, 2540, 2375, 2370, 2365, 2400, 2395, 2390, 2425, 2420, 2415} ;
1403    size_t s233_startset[3] = {0, 0, 0} ;
1404    size_t s233_countset[3] = {2, 3, 3};
1405    stat = nc_put_vara(ncids233_ids233_startsets233_countsets233_data);
1406    check_err(stat,__LINE__,__FILE__);
1407    }
1408
1409
1410    {
1411    short s311_data[3] = {2500, 2375, 2250} ;
1412    size_t s311_startset[3] = {0, 0, 0} ;
1413    size_t s311_countset[3] = {3, 1, 1};
1414    stat = nc_put_vara(ncids311_ids311_startsets311_countsets311_data);
1415    check_err(stat,__LINE__,__FILE__);
1416    }
1417
1418
1419    {
1420    int i312_data[6] = {640000, 639980, 632000, 631980, 624000, 623980} ;
1421    size_t i312_startset[3] = {0, 0, 0} ;
1422    size_t i312_countset[3] = {3, 1, 2};
1423    stat = nc_put_vara(ncidi312_idi312_startseti312_countseti312_data);
1424    check_err(stat,__LINE__,__FILE__);
1425    }
1426
1427
1428    {
1429    float f313_data[9] = {((float)26244), ((float)26235), ((float)26226), ((float)25515), ((float)25506), ((float)25497), ((float)24786), ((float)24777), ((float)24768)} ;
1430    size_t f313_startset[3] = {0, 0, 0} ;
1431    size_t f313_countset[3] = {3, 1, 3};
1432    stat = nc_put_vara(ncidf313_idf313_startsetf313_countsetf313_data);
1433    check_err(stat,__LINE__,__FILE__);
1434    }
1435
1436
1437    {
1438    size_t count = 0;
1439    static double var_MINUS_name_MINUS_dashes_data[1] = {((double)-1)};
1440    stat = nc_put_var1(ncidvar_MINUS_name_MINUS_dashes_id, &countvar_MINUS_name_MINUS_dashes_data);
1441    check_err(stat,__LINE__,__FILE__);
1442    }
1443
1444
1445    {
1446    size_t count = 0;
1447    static double var_PERIOD_name_PERIOD_dots_data[1] = {((double)-2)};
1448    stat = nc_put_var1(ncidvar_PERIOD_name_PERIOD_dots_id, &countvar_PERIOD_name_PERIOD_dots_data);
1449    check_err(stat,__LINE__,__FILE__);
1450    }
1451
1452
1453    stat = nc_close(ncid);
1454    check_err(stat,__LINE__,__FILE__);
1455    return 0;
1456}


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