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