1 #include <stdio.h>
2 #include <stdlib.h>
3 #include <netcdf.h>
4 
5 
6 void
check_err(const int stat,const int line,const char * file)7 check_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", line, file, nc_strerror(stat));
10         fflush(stderr);
11         exit(1);
12     }
13 }
14 
15 int
main()16 main() {/* 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_CHAR, RANK_c, 0, &c_id);
290     check_err(stat,__LINE__,__FILE__);
291 
292     stat = nc_def_var(ncid, "b", NC_BYTE, RANK_b, 0, &b_id);
293     check_err(stat,__LINE__,__FILE__);
294 
295     stat = nc_def_var(ncid, "s", NC_SHORT, RANK_s, 0, &s_id);
296     check_err(stat,__LINE__,__FILE__);
297 
298     stat = nc_def_var(ncid, "i", NC_INT, RANK_i, 0, &i_id);
299     check_err(stat,__LINE__,__FILE__);
300 
301     stat = nc_def_var(ncid, "f", NC_FLOAT, RANK_f, 0, &f_id);
302     check_err(stat,__LINE__,__FILE__);
303 
304     stat = nc_def_var(ncid, "d", NC_DOUBLE, RANK_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_CHAR, RANK_cr, cr_dims, &cr_id);
309     check_err(stat,__LINE__,__FILE__);
310 
311     br_dims[0] = Dr_dim;
312     stat = nc_def_var(ncid, "br", NC_BYTE, RANK_br, br_dims, &br_id);
313     check_err(stat,__LINE__,__FILE__);
314 
315     sr_dims[0] = Dr_dim;
316     stat = nc_def_var(ncid, "sr", NC_SHORT, RANK_sr, sr_dims, &sr_id);
317     check_err(stat,__LINE__,__FILE__);
318 
319     ir_dims[0] = Dr_dim;
320     stat = nc_def_var(ncid, "ir", NC_INT, RANK_ir, ir_dims, &ir_id);
321     check_err(stat,__LINE__,__FILE__);
322 
323     fr_dims[0] = Dr_dim;
324     stat = nc_def_var(ncid, "fr", NC_FLOAT, RANK_fr, fr_dims, &fr_id);
325     check_err(stat,__LINE__,__FILE__);
326 
327     dr_dims[0] = Dr_dim;
328     stat = nc_def_var(ncid, "dr", NC_DOUBLE, RANK_dr, dr_dims, &dr_id);
329     check_err(stat,__LINE__,__FILE__);
330 
331     c1_dims[0] = D1_dim;
332     stat = nc_def_var(ncid, "c1", NC_CHAR, RANK_c1, c1_dims, &c1_id);
333     check_err(stat,__LINE__,__FILE__);
334 
335     b1_dims[0] = D1_dim;
336     stat = nc_def_var(ncid, "b1", NC_BYTE, RANK_b1, b1_dims, &b1_id);
337     check_err(stat,__LINE__,__FILE__);
338 
339     s1_dims[0] = D1_dim;
340     stat = nc_def_var(ncid, "s1", NC_SHORT, RANK_s1, s1_dims, &s1_id);
341     check_err(stat,__LINE__,__FILE__);
342 
343     i1_dims[0] = D1_dim;
344     stat = nc_def_var(ncid, "i1", NC_INT, RANK_i1, i1_dims, &i1_id);
345     check_err(stat,__LINE__,__FILE__);
346 
347     f1_dims[0] = D1_dim;
348     stat = nc_def_var(ncid, "f1", NC_FLOAT, RANK_f1, f1_dims, &f1_id);
349     check_err(stat,__LINE__,__FILE__);
350 
351     d1_dims[0] = D1_dim;
352     stat = nc_def_var(ncid, "d1", NC_DOUBLE, RANK_d1, d1_dims, &d1_id);
353     check_err(stat,__LINE__,__FILE__);
354 
355     c2_dims[0] = D2_dim;
356     stat = nc_def_var(ncid, "c2", NC_CHAR, RANK_c2, c2_dims, &c2_id);
357     check_err(stat,__LINE__,__FILE__);
358 
359     b2_dims[0] = D2_dim;
360     stat = nc_def_var(ncid, "b2", NC_BYTE, RANK_b2, b2_dims, &b2_id);
361     check_err(stat,__LINE__,__FILE__);
362 
363     s2_dims[0] = D2_dim;
364     stat = nc_def_var(ncid, "s2", NC_SHORT, RANK_s2, s2_dims, &s2_id);
365     check_err(stat,__LINE__,__FILE__);
366 
367     i2_dims[0] = D2_dim;
368     stat = nc_def_var(ncid, "i2", NC_INT, RANK_i2, i2_dims, &i2_id);
369     check_err(stat,__LINE__,__FILE__);
370 
371     f2_dims[0] = D2_dim;
372     stat = nc_def_var(ncid, "f2", NC_FLOAT, RANK_f2, f2_dims, &f2_id);
373     check_err(stat,__LINE__,__FILE__);
374 
375     d2_dims[0] = D2_dim;
376     stat = nc_def_var(ncid, "d2", NC_DOUBLE, RANK_d2, d2_dims, &d2_id);
377     check_err(stat,__LINE__,__FILE__);
378 
379     c3_dims[0] = D3_dim;
380     stat = nc_def_var(ncid, "c3", NC_CHAR, RANK_c3, c3_dims, &c3_id);
381     check_err(stat,__LINE__,__FILE__);
382 
383     b3_dims[0] = D3_dim;
384     stat = nc_def_var(ncid, "b3", NC_BYTE, RANK_b3, b3_dims, &b3_id);
385     check_err(stat,__LINE__,__FILE__);
386 
387     s3_dims[0] = D3_dim;
388     stat = nc_def_var(ncid, "s3", NC_SHORT, RANK_s3, s3_dims, &s3_id);
389     check_err(stat,__LINE__,__FILE__);
390 
391     i3_dims[0] = D3_dim;
392     stat = nc_def_var(ncid, "i3", NC_INT, RANK_i3, i3_dims, &i3_id);
393     check_err(stat,__LINE__,__FILE__);
394 
395     f3_dims[0] = D3_dim;
396     stat = nc_def_var(ncid, "f3", NC_FLOAT, RANK_f3, f3_dims, &f3_id);
397     check_err(stat,__LINE__,__FILE__);
398 
399     d3_dims[0] = D3_dim;
400     stat = nc_def_var(ncid, "d3", NC_DOUBLE, RANK_d3, d3_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_CHAR, RANK_cr1, cr1_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_BYTE, RANK_br2, br2_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_SHORT, RANK_sr3, sr3_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_FLOAT, RANK_f11, f11_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_DOUBLE, RANK_d12, d12_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_CHAR, RANK_c13, c13_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_SHORT, RANK_s21, s21_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_INT, RANK_i22, i22_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_FLOAT, RANK_f23, f23_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_CHAR, RANK_c31, c31_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_BYTE, RANK_b32, b32_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_SHORT, RANK_s33, s33_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_SHORT, RANK_sr11, sr11_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_INT, RANK_ir12, ir12_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_FLOAT, RANK_fr13, fr13_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_CHAR, RANK_cr21, cr21_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_BYTE, RANK_br22, br22_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_SHORT, RANK_sr23, sr23_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_FLOAT, RANK_fr31, fr31_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_DOUBLE, RANK_dr32, dr32_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_CHAR, RANK_cr33, cr33_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_CHAR, RANK_c111, c111_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_BYTE, RANK_b112, b112_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_SHORT, RANK_s113, s113_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_FLOAT, RANK_f121, f121_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_DOUBLE, RANK_d122, d122_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_CHAR, RANK_c123, c123_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_SHORT, RANK_s131, s131_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_INT, RANK_i132, i132_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_FLOAT, RANK_f133, f133_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_FLOAT, RANK_f211, f211_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_DOUBLE, RANK_d212, d212_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_CHAR, RANK_c213, c213_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_SHORT, RANK_s221, s221_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_INT, RANK_i222, i222_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_FLOAT, RANK_f223, f223_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_CHAR, RANK_c231, c231_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_BYTE, RANK_b232, b232_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_SHORT, RANK_s233, s233_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_SHORT, RANK_s311, s311_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_INT, RANK_i312, i312_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_FLOAT, RANK_f313, f313_dims, &f313_id);
641     check_err(stat,__LINE__,__FILE__);
642 
643     stat = nc_def_var(ncid, "var-name-dashes", NC_DOUBLE, RANK_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_DOUBLE, RANK_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_DOUBLE, RANK_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_DOUBLE, RANK_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(ncid, NC_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(ncid, NC_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(ncid, NC_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(ncid, NC_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(ncid, NC_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(ncid, NC_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(ncid, NC_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(ncid, NC_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(ncid, NC_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(ncid, NC_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(ncid, c_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(ncid, c_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(ncid, c_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(ncid, c_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(ncid, b_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(ncid, s_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(ncid, s_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(ncid, i_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(ncid, i_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(ncid, i_id, "d", NC_DOUBLE, 3, c0_d_att);
775     check_err(stat,__LINE__,__FILE__);
776     }
777 
778     {
779     stat = nc_put_att_text(ncid, f_id, "c", 1, "x");
780     check_err(stat,__LINE__,__FILE__);
781     }
782 
783     {
784     stat = nc_put_att_text(ncid, d_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(ncid, c_id, &count, c_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(ncid, b_id, &count, b_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(ncid, s_id, &count, s_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(ncid, i_id, &count, i_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(ncid, f_id, &count, f_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(ncid, d_id, &count, d_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(ncid, cr_id, cr_startset, cr_countset, cr_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(ncid, br_id, br_startset, br_countset, br_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(ncid, sr_id, sr_startset, sr_countset, sr_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(ncid, ir_id, ir_startset, ir_countset, ir_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(ncid, fr_id, fr_startset, fr_countset, fr_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(ncid, dr_id, dr_startset, dr_countset, dr_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(ncid, c1_id, c1_startset, c1_countset, c1_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(ncid, b1_id, b1_startset, b1_countset, b1_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(ncid, s1_id, s1_startset, s1_countset, s1_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(ncid, i1_id, i1_startset, i1_countset, i1_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(ncid, f1_id, f1_startset, f1_countset, f1_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(ncid, d1_id, d1_startset, d1_countset, d1_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(ncid, c2_id, c2_startset, c2_countset, c2_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(ncid, b2_id, b2_startset, b2_countset, b2_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(ncid, s2_id, s2_startset, s2_countset, s2_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(ncid, i2_id, i2_startset, i2_countset, i2_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(ncid, f2_id, f2_startset, f2_countset, f2_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(ncid, d2_id, d2_startset, d2_countset, d2_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(ncid, c3_id, c3_startset, c3_countset, c3_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(ncid, b3_id, b3_startset, b3_countset, b3_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(ncid, s3_id, s3_startset, s3_countset, s3_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(ncid, i3_id, i3_startset, i3_countset, i3_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(ncid, f3_id, f3_startset, f3_countset, f3_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(ncid, d3_id, d3_startset, d3_countset, d3_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(ncid, cr1_id, cr1_startset, cr1_countset, cr1_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(ncid, br2_id, br2_startset, br2_countset, br2_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(ncid, sr3_id, sr3_startset, sr3_countset, sr3_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(ncid, f11_id, f11_startset, f11_countset, f11_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(ncid, d12_id, d12_startset, d12_countset, d12_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(ncid, c13_id, c13_startset, c13_countset, c13_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(ncid, s21_id, s21_startset, s21_countset, s21_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(ncid, i22_id, i22_startset, i22_countset, i22_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(ncid, f23_id, f23_startset, f23_countset, f23_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(ncid, c31_id, c31_startset, c31_countset, c31_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(ncid, b32_id, b32_startset, b32_countset, b32_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(ncid, s33_id, s33_startset, s33_countset, s33_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(ncid, sr11_id, sr11_startset, sr11_countset, sr11_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(ncid, ir12_id, ir12_startset, ir12_countset, ir12_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(ncid, fr13_id, fr13_startset, fr13_countset, fr13_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(ncid, cr21_id, cr21_startset, cr21_countset, cr21_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(ncid, br22_id, br22_startset, br22_countset, br22_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(ncid, sr23_id, sr23_startset, sr23_countset, sr23_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(ncid, fr31_id, fr31_startset, fr31_countset, fr31_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(ncid, dr32_id, dr32_startset, dr32_countset, dr32_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(ncid, cr33_id, cr33_startset, cr33_countset, cr33_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(ncid, c111_id, c111_startset, c111_countset, c111_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(ncid, b112_id, b112_startset, b112_countset, b112_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(ncid, s113_id, s113_startset, s113_countset, s113_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(ncid, f121_id, f121_startset, f121_countset, f121_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(ncid, d122_id, d122_startset, d122_countset, d122_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(ncid, c123_id, c123_startset, c123_countset, c123_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(ncid, s131_id, s131_startset, s131_countset, s131_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(ncid, i132_id, i132_startset, i132_countset, i132_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(ncid, f133_id, f133_startset, f133_countset, f133_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(ncid, f211_id, f211_startset, f211_countset, f211_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(ncid, d212_id, d212_startset, d212_countset, d212_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(ncid, c213_id, c213_startset, c213_countset, c213_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(ncid, s221_id, s221_startset, s221_countset, s221_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(ncid, i222_id, i222_startset, i222_countset, i222_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(ncid, f223_id, f223_startset, f223_countset, f223_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(ncid, c231_id, c231_startset, c231_countset, c231_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(ncid, b232_id, b232_startset, b232_countset, b232_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(ncid, s233_id, s233_startset, s233_countset, s233_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(ncid, s311_id, s311_startset, s311_countset, s311_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(ncid, i312_id, i312_startset, i312_countset, i312_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(ncid, f313_id, f313_startset, f313_countset, f313_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(ncid, var_MINUS_name_MINUS_dashes_id, &count, var_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(ncid, var_PERIOD_name_PERIOD_dots_id, &count, var_PERIOD_name_PERIOD_dots_data);
1449     check_err(stat,__LINE__,__FILE__);
1450     }
1451 
1452 
1453     {
1454     size_t count = 0;
1455     static double var_PLUS_name_PLUS_plusses_data[1] = {((double)9.969209968386869e+36)};
1456     stat = nc_put_var1(ncid, var_PLUS_name_PLUS_plusses_id, &count, var_PLUS_name_PLUS_plusses_data);
1457     check_err(stat,__LINE__,__FILE__);
1458     }
1459 
1460 
1461     {
1462     size_t count = 0;
1463     static double var_ATSIGN_name_ATSIGN_ats_data[1] = {((double)9.969209968386869e+36)};
1464     stat = nc_put_var1(ncid, var_ATSIGN_name_ATSIGN_ats_id, &count, var_ATSIGN_name_ATSIGN_ats_data);
1465     check_err(stat,__LINE__,__FILE__);
1466     }
1467 
1468 
1469     stat = nc_close(ncid);
1470     check_err(stat,__LINE__,__FILE__);
1471     return 0;
1472 }
1473