1#include <stdio.h>
2#include <stdlib.h>
3#include <netcdf.h>
4
5void
6check_err(const int stat, const int line, const char *file) {
7    if (stat != NC_NOERR) {
8    (void) fprintf(stderr, "line %d of %s: %s\n", linefilenc_strerror(stat));
9        exit(1);
10    }
11}
12
13int
14main() { /* create ctest0_64.nc */
15
16   int  stat; /* return status */
17   int  ncid; /* netCDF id */
18
19   /* dimension ids */
20   int Dr_dim;
21   int D1_dim;
22   int D2_dim;
23   int D3_dim;
24   int dim_MINUS_name_MINUS_dashes_dim;
25   int dim_PERIOD_name_PERIOD_dots_dim;
26   int dim_PLUS_name_PLUS_plusses_dim;
27   int dim_ATSIGN_name_ATSIGN_ats_dim;
28
29   /* dimension lengths */
30   size_t Dr_len = NC_UNLIMITED;
31   size_t D1_len = 1;
32   size_t D2_len = 2;
33   size_t D3_len = 3;
34   size_t dim_MINUS_name_MINUS_dashes_len = 4;
35   size_t dim_PERIOD_name_PERIOD_dots_len = 5;
36   size_t dim_PLUS_name_PLUS_plusses_len = 6;
37   size_t dim_ATSIGN_name_ATSIGN_ats_len = 7;
38
39   /* variable ids */
40   int c_id;
41   int b_id;
42   int s_id;
43   int i_id;
44   int f_id;
45   int d_id;
46   int cr_id;
47   int br_id;
48   int sr_id;
49   int ir_id;
50   int fr_id;
51   int dr_id;
52   int c1_id;
53   int b1_id;
54   int s1_id;
55   int i1_id;
56   int f1_id;
57   int d1_id;
58   int c2_id;
59   int b2_id;
60   int s2_id;
61   int i2_id;
62   int f2_id;
63   int d2_id;
64   int c3_id;
65   int b3_id;
66   int s3_id;
67   int i3_id;
68   int f3_id;
69   int d3_id;
70   int cr1_id;
71   int br2_id;
72   int sr3_id;
73   int f11_id;
74   int d12_id;
75   int c13_id;
76   int s21_id;
77   int i22_id;
78   int f23_id;
79   int c31_id;
80   int b32_id;
81   int s33_id;
82   int sr11_id;
83   int ir12_id;
84   int fr13_id;
85   int cr21_id;
86   int br22_id;
87   int sr23_id;
88   int fr31_id;
89   int dr32_id;
90   int cr33_id;
91   int c111_id;
92   int b112_id;
93   int s113_id;
94   int f121_id;
95   int d122_id;
96   int c123_id;
97   int s131_id;
98   int i132_id;
99   int f133_id;
100   int f211_id;
101   int d212_id;
102   int c213_id;
103   int s221_id;
104   int i222_id;
105   int f223_id;
106   int c231_id;
107   int b232_id;
108   int s233_id;
109   int s311_id;
110   int i312_id;
111   int f313_id;
112   int var_MINUS_name_MINUS_dashes_id;
113   int var_PERIOD_name_PERIOD_dots_id;
114   int var_PLUS_name_PLUS_plusses_id;
115   int var_ATSIGN_name_ATSIGN_ats_id;
116
117   /* rank (number of dimensions) for each variable */
118#  define RANK_c 0
119#  define RANK_b 0
120#  define RANK_s 0
121#  define RANK_i 0
122#  define RANK_f 0
123#  define RANK_d 0
124#  define RANK_cr 1
125#  define RANK_br 1
126#  define RANK_sr 1
127#  define RANK_ir 1
128#  define RANK_fr 1
129#  define RANK_dr 1
130#  define RANK_c1 1
131#  define RANK_b1 1
132#  define RANK_s1 1
133#  define RANK_i1 1
134#  define RANK_f1 1
135#  define RANK_d1 1
136#  define RANK_c2 1
137#  define RANK_b2 1
138#  define RANK_s2 1
139#  define RANK_i2 1
140#  define RANK_f2 1
141#  define RANK_d2 1
142#  define RANK_c3 1
143#  define RANK_b3 1
144#  define RANK_s3 1
145#  define RANK_i3 1
146#  define RANK_f3 1
147#  define RANK_d3 1
148#  define RANK_cr1 2
149#  define RANK_br2 2
150#  define RANK_sr3 2
151#  define RANK_f11 2
152#  define RANK_d12 2
153#  define RANK_c13 2
154#  define RANK_s21 2
155#  define RANK_i22 2
156#  define RANK_f23 2
157#  define RANK_c31 2
158#  define RANK_b32 2
159#  define RANK_s33 2
160#  define RANK_sr11 3
161#  define RANK_ir12 3
162#  define RANK_fr13 3
163#  define RANK_cr21 3
164#  define RANK_br22 3
165#  define RANK_sr23 3
166#  define RANK_fr31 3
167#  define RANK_dr32 3
168#  define RANK_cr33 3
169#  define RANK_c111 3
170#  define RANK_b112 3
171#  define RANK_s113 3
172#  define RANK_f121 3
173#  define RANK_d122 3
174#  define RANK_c123 3
175#  define RANK_s131 3
176#  define RANK_i132 3
177#  define RANK_f133 3
178#  define RANK_f211 3
179#  define RANK_d212 3
180#  define RANK_c213 3
181#  define RANK_s221 3
182#  define RANK_i222 3
183#  define RANK_f223 3
184#  define RANK_c231 3
185#  define RANK_b232 3
186#  define RANK_s233 3
187#  define RANK_s311 3
188#  define RANK_i312 3
189#  define RANK_f313 3
190#  define RANK_var_MINUS_name_MINUS_dashes 0
191#  define RANK_var_PERIOD_name_PERIOD_dots 0
192#  define RANK_var_PLUS_name_PLUS_plusses 0
193#  define RANK_var_ATSIGN_name_ATSIGN_ats 0
194
195   /* variable shapes */
196   int cr_dims[RANK_cr];
197   int br_dims[RANK_br];
198   int sr_dims[RANK_sr];
199   int ir_dims[RANK_ir];
200   int fr_dims[RANK_fr];
201   int dr_dims[RANK_dr];
202   int c1_dims[RANK_c1];
203   int b1_dims[RANK_b1];
204   int s1_dims[RANK_s1];
205   int i1_dims[RANK_i1];
206   int f1_dims[RANK_f1];
207   int d1_dims[RANK_d1];
208   int c2_dims[RANK_c2];
209   int b2_dims[RANK_b2];
210   int s2_dims[RANK_s2];
211   int i2_dims[RANK_i2];
212   int f2_dims[RANK_f2];
213   int d2_dims[RANK_d2];
214   int c3_dims[RANK_c3];
215   int b3_dims[RANK_b3];
216   int s3_dims[RANK_s3];
217   int i3_dims[RANK_i3];
218   int f3_dims[RANK_f3];
219   int d3_dims[RANK_d3];
220   int cr1_dims[RANK_cr1];
221   int br2_dims[RANK_br2];
222   int sr3_dims[RANK_sr3];
223   int f11_dims[RANK_f11];
224   int d12_dims[RANK_d12];
225   int c13_dims[RANK_c13];
226   int s21_dims[RANK_s21];
227   int i22_dims[RANK_i22];
228   int f23_dims[RANK_f23];
229   int c31_dims[RANK_c31];
230   int b32_dims[RANK_b32];
231   int s33_dims[RANK_s33];
232   int sr11_dims[RANK_sr11];
233   int ir12_dims[RANK_ir12];
234   int fr13_dims[RANK_fr13];
235   int cr21_dims[RANK_cr21];
236   int br22_dims[RANK_br22];
237   int sr23_dims[RANK_sr23];
238   int fr31_dims[RANK_fr31];
239   int dr32_dims[RANK_dr32];
240   int cr33_dims[RANK_cr33];
241   int c111_dims[RANK_c111];
242   int b112_dims[RANK_b112];
243   int s113_dims[RANK_s113];
244   int f121_dims[RANK_f121];
245   int d122_dims[RANK_d122];
246   int c123_dims[RANK_c123];
247   int s131_dims[RANK_s131];
248   int i132_dims[RANK_i132];
249   int f133_dims[RANK_f133];
250   int f211_dims[RANK_f211];
251   int d212_dims[RANK_d212];
252   int c213_dims[RANK_c213];
253   int s221_dims[RANK_s221];
254   int i222_dims[RANK_i222];
255   int f223_dims[RANK_f223];
256   int c231_dims[RANK_c231];
257   int b232_dims[RANK_b232];
258   int s233_dims[RANK_s233];
259   int s311_dims[RANK_s311];
260   int i312_dims[RANK_i312];
261   int f313_dims[RANK_f313];
262
263   /* attribute vectors */
264   int c_att_MINUS_name_MINUS_dashes[1];
265   int c_att_PERIOD_name_PERIOD_dots[1];
266   int c_att_PLUS_name_PLUS_plusses[1];
267   int c_att_ATSIGN_name_ATSIGN_ats[1];
268   int s_b[4];
269   short s_s[3];
270   int i_i[3];
271   float i_f[3];
272   double i_d[3];
273   int cdf_Gb[2];
274   short cdf_Gs[3];
275   int cdf_Gi[3];
276   float cdf_Gf[3];
277   double cdf_Gd[3];
278   int cdf_Gatt_MINUS_name_MINUS_dashes[1];
279   int cdf_Gatt_PERIOD_name_PERIOD_dots[1];
280   int cdf_Gatt_PLUS_name_PLUS_plusses[1];
281   int cdf_Gatt_ATSIGN_name_ATSIGN_ats[1];
282
283   /* enter define mode */
284   stat = nc_create("ctest0_64.nc", NC_CLOBBER|NC_64BIT_OFFSET, &ncid);
285   check_err(stat,__LINE__,__FILE__);
286
287   /* define dimensions */
288   stat = nc_def_dim(ncid, "Dr", Dr_len, &Dr_dim);
289   check_err(stat,__LINE__,__FILE__);
290   stat = nc_def_dim(ncid, "D1", D1_len, &D1_dim);
291   check_err(stat,__LINE__,__FILE__);
292   stat = nc_def_dim(ncid, "D2", D2_len, &D2_dim);
293   check_err(stat,__LINE__,__FILE__);
294   stat = nc_def_dim(ncid, "D3", D3_len, &D3_dim);
295   check_err(stat,__LINE__,__FILE__);
296   stat = nc_def_dim(ncid, "dim-name-dashes", dim_MINUS_name_MINUS_dashes_len, &dim_MINUS_name_MINUS_dashes_dim);
297   check_err(stat,__LINE__,__FILE__);
298   stat = nc_def_dim(ncid, "dim.name.dots", dim_PERIOD_name_PERIOD_dots_len, &dim_PERIOD_name_PERIOD_dots_dim);
299   check_err(stat,__LINE__,__FILE__);
300   stat = nc_def_dim(ncid, "dim+name+plusses", dim_PLUS_name_PLUS_plusses_len, &dim_PLUS_name_PLUS_plusses_dim);
301   check_err(stat,__LINE__,__FILE__);
302   stat = nc_def_dim(ncid, "dim@name@ats", dim_ATSIGN_name_ATSIGN_ats_len, &dim_ATSIGN_name_ATSIGN_ats_dim);
303   check_err(stat,__LINE__,__FILE__);
304
305   /* define variables */
306
307   stat = nc_def_var(ncid, "c", NC_CHARRANK_c, 0, &c_id);
308   check_err(stat,__LINE__,__FILE__);
309
310   stat = nc_def_var(ncid, "b", NC_BYTERANK_b, 0, &b_id);
311   check_err(stat,__LINE__,__FILE__);
312
313   stat = nc_def_var(ncid, "s", NC_SHORTRANK_s, 0, &s_id);
314   check_err(stat,__LINE__,__FILE__);
315
316   stat = nc_def_var(ncid, "i", NC_INTRANK_i, 0, &i_id);
317   check_err(stat,__LINE__,__FILE__);
318
319   stat = nc_def_var(ncid, "f", NC_FLOATRANK_f, 0, &f_id);
320   check_err(stat,__LINE__,__FILE__);
321
322   stat = nc_def_var(ncid, "d", NC_DOUBLERANK_d, 0, &d_id);
323   check_err(stat,__LINE__,__FILE__);
324
325   cr_dims[0] = Dr_dim;
326   stat = nc_def_var(ncid, "cr", NC_CHARRANK_crcr_dims, &cr_id);
327   check_err(stat,__LINE__,__FILE__);
328
329   br_dims[0] = Dr_dim;
330   stat = nc_def_var(ncid, "br", NC_BYTERANK_brbr_dims, &br_id);
331   check_err(stat,__LINE__,__FILE__);
332
333   sr_dims[0] = Dr_dim;
334   stat = nc_def_var(ncid, "sr", NC_SHORTRANK_srsr_dims, &sr_id);
335   check_err(stat,__LINE__,__FILE__);
336
337   ir_dims[0] = Dr_dim;
338   stat = nc_def_var(ncid, "ir", NC_INTRANK_irir_dims, &ir_id);
339   check_err(stat,__LINE__,__FILE__);
340
341   fr_dims[0] = Dr_dim;
342   stat = nc_def_var(ncid, "fr", NC_FLOATRANK_frfr_dims, &fr_id);
343   check_err(stat,__LINE__,__FILE__);
344
345   dr_dims[0] = Dr_dim;
346   stat = nc_def_var(ncid, "dr", NC_DOUBLERANK_drdr_dims, &dr_id);
347   check_err(stat,__LINE__,__FILE__);
348
349   c1_dims[0] = D1_dim;
350   stat = nc_def_var(ncid, "c1", NC_CHARRANK_c1c1_dims, &c1_id);
351   check_err(stat,__LINE__,__FILE__);
352
353   b1_dims[0] = D1_dim;
354   stat = nc_def_var(ncid, "b1", NC_BYTERANK_b1b1_dims, &b1_id);
355   check_err(stat,__LINE__,__FILE__);
356
357   s1_dims[0] = D1_dim;
358   stat = nc_def_var(ncid, "s1", NC_SHORTRANK_s1s1_dims, &s1_id);
359   check_err(stat,__LINE__,__FILE__);
360
361   i1_dims[0] = D1_dim;
362   stat = nc_def_var(ncid, "i1", NC_INTRANK_i1i1_dims, &i1_id);
363   check_err(stat,__LINE__,__FILE__);
364
365   f1_dims[0] = D1_dim;
366   stat = nc_def_var(ncid, "f1", NC_FLOATRANK_f1f1_dims, &f1_id);
367   check_err(stat,__LINE__,__FILE__);
368
369   d1_dims[0] = D1_dim;
370   stat = nc_def_var(ncid, "d1", NC_DOUBLERANK_d1d1_dims, &d1_id);
371   check_err(stat,__LINE__,__FILE__);
372
373   c2_dims[0] = D2_dim;
374   stat = nc_def_var(ncid, "c2", NC_CHARRANK_c2c2_dims, &c2_id);
375   check_err(stat,__LINE__,__FILE__);
376
377   b2_dims[0] = D2_dim;
378   stat = nc_def_var(ncid, "b2", NC_BYTERANK_b2b2_dims, &b2_id);
379   check_err(stat,__LINE__,__FILE__);
380
381   s2_dims[0] = D2_dim;
382   stat = nc_def_var(ncid, "s2", NC_SHORTRANK_s2s2_dims, &s2_id);
383   check_err(stat,__LINE__,__FILE__);
384
385   i2_dims[0] = D2_dim;
386   stat = nc_def_var(ncid, "i2", NC_INTRANK_i2i2_dims, &i2_id);
387   check_err(stat,__LINE__,__FILE__);
388
389   f2_dims[0] = D2_dim;
390   stat = nc_def_var(ncid, "f2", NC_FLOATRANK_f2f2_dims, &f2_id);
391   check_err(stat,__LINE__,__FILE__);
392
393   d2_dims[0] = D2_dim;
394   stat = nc_def_var(ncid, "d2", NC_DOUBLERANK_d2d2_dims, &d2_id);
395   check_err(stat,__LINE__,__FILE__);
396
397   c3_dims[0] = D3_dim;
398   stat = nc_def_var(ncid, "c3", NC_CHARRANK_c3c3_dims, &c3_id);
399   check_err(stat,__LINE__,__FILE__);
400
401   b3_dims[0] = D3_dim;
402   stat = nc_def_var(ncid, "b3", NC_BYTERANK_b3b3_dims, &b3_id);
403   check_err(stat,__LINE__,__FILE__);
404
405   s3_dims[0] = D3_dim;
406   stat = nc_def_var(ncid, "s3", NC_SHORTRANK_s3s3_dims, &s3_id);
407   check_err(stat,__LINE__,__FILE__);
408
409   i3_dims[0] = D3_dim;
410   stat = nc_def_var(ncid, "i3", NC_INTRANK_i3i3_dims, &i3_id);
411   check_err(stat,__LINE__,__FILE__);
412
413   f3_dims[0] = D3_dim;
414   stat = nc_def_var(ncid, "f3", NC_FLOATRANK_f3f3_dims, &f3_id);
415   check_err(stat,__LINE__,__FILE__);
416
417   d3_dims[0] = D3_dim;
418   stat = nc_def_var(ncid, "d3", NC_DOUBLERANK_d3d3_dims, &d3_id);
419   check_err(stat,__LINE__,__FILE__);
420
421   cr1_dims[0] = Dr_dim;
422   cr1_dims[1] = D1_dim;
423   stat = nc_def_var(ncid, "cr1", NC_CHARRANK_cr1cr1_dims, &cr1_id);
424   check_err(stat,__LINE__,__FILE__);
425
426   br2_dims[0] = Dr_dim;
427   br2_dims[1] = D2_dim;
428   stat = nc_def_var(ncid, "br2", NC_BYTERANK_br2br2_dims, &br2_id);
429   check_err(stat,__LINE__,__FILE__);
430
431   sr3_dims[0] = Dr_dim;
432   sr3_dims[1] = D3_dim;
433   stat = nc_def_var(ncid, "sr3", NC_SHORTRANK_sr3sr3_dims, &sr3_id);
434   check_err(stat,__LINE__,__FILE__);
435
436   f11_dims[0] = D1_dim;
437   f11_dims[1] = D1_dim;
438   stat = nc_def_var(ncid, "f11", NC_FLOATRANK_f11f11_dims, &f11_id);
439   check_err(stat,__LINE__,__FILE__);
440
441   d12_dims[0] = D1_dim;
442   d12_dims[1] = D2_dim;
443   stat = nc_def_var(ncid, "d12", NC_DOUBLERANK_d12d12_dims, &d12_id);
444   check_err(stat,__LINE__,__FILE__);
445
446   c13_dims[0] = D1_dim;
447   c13_dims[1] = D3_dim;
448   stat = nc_def_var(ncid, "c13", NC_CHARRANK_c13c13_dims, &c13_id);
449   check_err(stat,__LINE__,__FILE__);
450
451   s21_dims[0] = D2_dim;
452   s21_dims[1] = D1_dim;
453   stat = nc_def_var(ncid, "s21", NC_SHORTRANK_s21s21_dims, &s21_id);
454   check_err(stat,__LINE__,__FILE__);
455
456   i22_dims[0] = D2_dim;
457   i22_dims[1] = D2_dim;
458   stat = nc_def_var(ncid, "i22", NC_INTRANK_i22i22_dims, &i22_id);
459   check_err(stat,__LINE__,__FILE__);
460
461   f23_dims[0] = D2_dim;
462   f23_dims[1] = D3_dim;
463   stat = nc_def_var(ncid, "f23", NC_FLOATRANK_f23f23_dims, &f23_id);
464   check_err(stat,__LINE__,__FILE__);
465
466   c31_dims[0] = D3_dim;
467   c31_dims[1] = D1_dim;
468   stat = nc_def_var(ncid, "c31", NC_CHARRANK_c31c31_dims, &c31_id);
469   check_err(stat,__LINE__,__FILE__);
470
471   b32_dims[0] = D3_dim;
472   b32_dims[1] = D2_dim;
473   stat = nc_def_var(ncid, "b32", NC_BYTERANK_b32b32_dims, &b32_id);
474   check_err(stat,__LINE__,__FILE__);
475
476   s33_dims[0] = D3_dim;
477   s33_dims[1] = D3_dim;
478   stat = nc_def_var(ncid, "s33", NC_SHORTRANK_s33s33_dims, &s33_id);
479   check_err(stat,__LINE__,__FILE__);
480
481   sr11_dims[0] = Dr_dim;
482   sr11_dims[1] = D1_dim;
483   sr11_dims[2] = D1_dim;
484   stat = nc_def_var(ncid, "sr11", NC_SHORTRANK_sr11sr11_dims, &sr11_id);
485   check_err(stat,__LINE__,__FILE__);
486
487   ir12_dims[0] = Dr_dim;
488   ir12_dims[1] = D1_dim;
489   ir12_dims[2] = D2_dim;
490   stat = nc_def_var(ncid, "ir12", NC_INTRANK_ir12ir12_dims, &ir12_id);
491   check_err(stat,__LINE__,__FILE__);
492
493   fr13_dims[0] = Dr_dim;
494   fr13_dims[1] = D1_dim;
495   fr13_dims[2] = D3_dim;
496   stat = nc_def_var(ncid, "fr13", NC_FLOATRANK_fr13fr13_dims, &fr13_id);
497   check_err(stat,__LINE__,__FILE__);
498
499   cr21_dims[0] = Dr_dim;
500   cr21_dims[1] = D2_dim;
501   cr21_dims[2] = D1_dim;
502   stat = nc_def_var(ncid, "cr21", NC_CHARRANK_cr21cr21_dims, &cr21_id);
503   check_err(stat,__LINE__,__FILE__);
504
505   br22_dims[0] = Dr_dim;
506   br22_dims[1] = D2_dim;
507   br22_dims[2] = D2_dim;
508   stat = nc_def_var(ncid, "br22", NC_BYTERANK_br22br22_dims, &br22_id);
509   check_err(stat,__LINE__,__FILE__);
510
511   sr23_dims[0] = Dr_dim;
512   sr23_dims[1] = D2_dim;
513   sr23_dims[2] = D3_dim;
514   stat = nc_def_var(ncid, "sr23", NC_SHORTRANK_sr23sr23_dims, &sr23_id);
515   check_err(stat,__LINE__,__FILE__);
516
517   fr31_dims[0] = Dr_dim;
518   fr31_dims[1] = D3_dim;
519   fr31_dims[2] = D1_dim;
520   stat = nc_def_var(ncid, "fr31", NC_FLOATRANK_fr31fr31_dims, &fr31_id);
521   check_err(stat,__LINE__,__FILE__);
522
523   dr32_dims[0] = Dr_dim;
524   dr32_dims[1] = D3_dim;
525   dr32_dims[2] = D2_dim;
526   stat = nc_def_var(ncid, "dr32", NC_DOUBLERANK_dr32dr32_dims, &dr32_id);
527   check_err(stat,__LINE__,__FILE__);
528
529   cr33_dims[0] = Dr_dim;
530   cr33_dims[1] = D3_dim;
531   cr33_dims[2] = D3_dim;
532   stat = nc_def_var(ncid, "cr33", NC_CHARRANK_cr33cr33_dims, &cr33_id);
533   check_err(stat,__LINE__,__FILE__);
534
535   c111_dims[0] = D1_dim;
536   c111_dims[1] = D1_dim;
537   c111_dims[2] = D1_dim;
538   stat = nc_def_var(ncid, "c111", NC_CHARRANK_c111c111_dims, &c111_id);
539   check_err(stat,__LINE__,__FILE__);
540
541   b112_dims[0] = D1_dim;
542   b112_dims[1] = D1_dim;
543   b112_dims[2] = D2_dim;
544   stat = nc_def_var(ncid, "b112", NC_BYTERANK_b112b112_dims, &b112_id);
545   check_err(stat,__LINE__,__FILE__);
546
547   s113_dims[0] = D1_dim;
548   s113_dims[1] = D1_dim;
549   s113_dims[2] = D3_dim;
550   stat = nc_def_var(ncid, "s113", NC_SHORTRANK_s113s113_dims, &s113_id);
551   check_err(stat,__LINE__,__FILE__);
552
553   f121_dims[0] = D1_dim;
554   f121_dims[1] = D2_dim;
555   f121_dims[2] = D1_dim;
556   stat = nc_def_var(ncid, "f121", NC_FLOATRANK_f121f121_dims, &f121_id);
557   check_err(stat,__LINE__,__FILE__);
558
559   d122_dims[0] = D1_dim;
560   d122_dims[1] = D2_dim;
561   d122_dims[2] = D2_dim;
562   stat = nc_def_var(ncid, "d122", NC_DOUBLERANK_d122d122_dims, &d122_id);
563   check_err(stat,__LINE__,__FILE__);
564
565   c123_dims[0] = D1_dim;
566   c123_dims[1] = D2_dim;
567   c123_dims[2] = D3_dim;
568   stat = nc_def_var(ncid, "c123", NC_CHARRANK_c123c123_dims, &c123_id);
569   check_err(stat,__LINE__,__FILE__);
570
571   s131_dims[0] = D1_dim;
572   s131_dims[1] = D3_dim;
573   s131_dims[2] = D1_dim;
574   stat = nc_def_var(ncid, "s131", NC_SHORTRANK_s131s131_dims, &s131_id);
575   check_err(stat,__LINE__,__FILE__);
576
577   i132_dims[0] = D1_dim;
578   i132_dims[1] = D3_dim;
579   i132_dims[2] = D2_dim;
580   stat = nc_def_var(ncid, "i132", NC_INTRANK_i132i132_dims, &i132_id);
581   check_err(stat,__LINE__,__FILE__);
582
583   f133_dims[0] = D1_dim;
584   f133_dims[1] = D3_dim;
585   f133_dims[2] = D3_dim;
586   stat = nc_def_var(ncid, "f133", NC_FLOATRANK_f133f133_dims, &f133_id);
587   check_err(stat,__LINE__,__FILE__);
588
589   f211_dims[0] = D2_dim;
590   f211_dims[1] = D1_dim;
591   f211_dims[2] = D1_dim;
592   stat = nc_def_var(ncid, "f211", NC_FLOATRANK_f211f211_dims, &f211_id);
593   check_err(stat,__LINE__,__FILE__);
594
595   d212_dims[0] = D2_dim;
596   d212_dims[1] = D1_dim;
597   d212_dims[2] = D2_dim;
598   stat = nc_def_var(ncid, "d212", NC_DOUBLERANK_d212d212_dims, &d212_id);
599   check_err(stat,__LINE__,__FILE__);
600
601   c213_dims[0] = D2_dim;
602   c213_dims[1] = D1_dim;
603   c213_dims[2] = D3_dim;
604   stat = nc_def_var(ncid, "c213", NC_CHARRANK_c213c213_dims, &c213_id);
605   check_err(stat,__LINE__,__FILE__);
606
607   s221_dims[0] = D2_dim;
608   s221_dims[1] = D2_dim;
609   s221_dims[2] = D1_dim;
610   stat = nc_def_var(ncid, "s221", NC_SHORTRANK_s221s221_dims, &s221_id);
611   check_err(stat,__LINE__,__FILE__);
612
613   i222_dims[0] = D2_dim;
614   i222_dims[1] = D2_dim;
615   i222_dims[2] = D2_dim;
616   stat = nc_def_var(ncid, "i222", NC_INTRANK_i222i222_dims, &i222_id);
617   check_err(stat,__LINE__,__FILE__);
618
619   f223_dims[0] = D2_dim;
620   f223_dims[1] = D2_dim;
621   f223_dims[2] = D3_dim;
622   stat = nc_def_var(ncid, "f223", NC_FLOATRANK_f223f223_dims, &f223_id);
623   check_err(stat,__LINE__,__FILE__);
624
625   c231_dims[0] = D2_dim;
626   c231_dims[1] = D3_dim;
627   c231_dims[2] = D1_dim;
628   stat = nc_def_var(ncid, "c231", NC_CHARRANK_c231c231_dims, &c231_id);
629   check_err(stat,__LINE__,__FILE__);
630
631   b232_dims[0] = D2_dim;
632   b232_dims[1] = D3_dim;
633   b232_dims[2] = D2_dim;
634   stat = nc_def_var(ncid, "b232", NC_BYTERANK_b232b232_dims, &b232_id);
635   check_err(stat,__LINE__,__FILE__);
636
637   s233_dims[0] = D2_dim;
638   s233_dims[1] = D3_dim;
639   s233_dims[2] = D3_dim;
640   stat = nc_def_var(ncid, "s233", NC_SHORTRANK_s233s233_dims, &s233_id);
641   check_err(stat,__LINE__,__FILE__);
642
643   s311_dims[0] = D3_dim;
644   s311_dims[1] = D1_dim;
645   s311_dims[2] = D1_dim;
646   stat = nc_def_var(ncid, "s311", NC_SHORTRANK_s311s311_dims, &s311_id);
647   check_err(stat,__LINE__,__FILE__);
648
649   i312_dims[0] = D3_dim;
650   i312_dims[1] = D1_dim;
651   i312_dims[2] = D2_dim;
652   stat = nc_def_var(ncid, "i312", NC_INTRANK_i312i312_dims, &i312_id);
653   check_err(stat,__LINE__,__FILE__);
654
655   f313_dims[0] = D3_dim;
656   f313_dims[1] = D1_dim;
657   f313_dims[2] = D3_dim;
658   stat = nc_def_var(ncid, "f313", NC_FLOATRANK_f313f313_dims, &f313_id);
659   check_err(stat,__LINE__,__FILE__);
660
661   stat = nc_def_var(ncid, "var-name-dashes", NC_DOUBLERANK_var_MINUS_name_MINUS_dashes, 0, &var_MINUS_name_MINUS_dashes_id);
662   check_err(stat,__LINE__,__FILE__);
663
664   stat = nc_def_var(ncid, "var.name.dots", NC_DOUBLERANK_var_PERIOD_name_PERIOD_dots, 0, &var_PERIOD_name_PERIOD_dots_id);
665   check_err(stat,__LINE__,__FILE__);
666
667   stat = nc_def_var(ncid, "var+name+plusses", NC_DOUBLERANK_var_PLUS_name_PLUS_plusses, 0, &var_PLUS_name_PLUS_plusses_id);
668   check_err(stat,__LINE__,__FILE__);
669
670   stat = nc_def_var(ncid, "var@name@ats", NC_DOUBLERANK_var_ATSIGN_name_ATSIGN_ats, 0, &var_ATSIGN_name_ATSIGN_ats_id);
671   check_err(stat,__LINE__,__FILE__);
672
673   /* assign attributes */
674   c_att_MINUS_name_MINUS_dashes[0] = 4;
675   stat = nc_put_att_int(ncidc_id, "att-name-dashes", NC_INT, 1, c_att_MINUS_name_MINUS_dashes);
676   check_err(stat,__LINE__,__FILE__);
677   c_att_PERIOD_name_PERIOD_dots[0] = 5;
678   stat = nc_put_att_int(ncidc_id, "att.name.dots", NC_INT, 1, c_att_PERIOD_name_PERIOD_dots);
679   check_err(stat,__LINE__,__FILE__);
680   c_att_PLUS_name_PLUS_plusses[0] = 6;
681   stat = nc_put_att_int(ncidc_id, "att+name+plusses", NC_INT, 1, c_att_PLUS_name_PLUS_plusses);
682   check_err(stat,__LINE__,__FILE__);
683   c_att_ATSIGN_name_ATSIGN_ats[0] = 7;
684   stat = nc_put_att_int(ncidc_id, "att@name@ats", NC_INT, 1, c_att_ATSIGN_name_ATSIGN_ats);
685   check_err(stat,__LINE__,__FILE__);
686   stat = nc_put_att_text(ncidb_id, "c", 1, "");
687   check_err(stat,__LINE__,__FILE__);
688   s_b[0] = 0;
689   s_b[1] = 127;
690   s_b[2] = -128;
691   s_b[3] = -1;
692   stat = nc_put_att_int(ncids_id, "b", NC_BYTE, 4, s_b);
693   check_err(stat,__LINE__,__FILE__);
694   s_s[0] = -32768;
695   s_s[1] = 0;
696   s_s[2] = 32767;
697   stat = nc_put_att_short(ncids_id, "s", NC_SHORT, 3, s_s);
698   check_err(stat,__LINE__,__FILE__);
699   i_i[0] = -2147483647;
700   i_i[1] = 0;
701   i_i[2] = 2147483647;
702   stat = nc_put_att_int(ncidi_id, "i", NC_INT, 3, i_i);
703   check_err(stat,__LINE__,__FILE__);
704   i_f[0] = -9.9999996e+35;
705   i_f[1] = 0;
706   i_f[2] = 9.9999996e+35;
707   stat = nc_put_att_float(ncidi_id, "f", NC_FLOAT, 3, i_f);
708   check_err(stat,__LINE__,__FILE__);
709   i_d[0] = -1e+308;
710   i_d[1] = 0;
711   i_d[2] = 1e+308;
712   stat = nc_put_att_double(ncidi_id, "d", NC_DOUBLE, 3, i_d);
713   check_err(stat,__LINE__,__FILE__);
714   stat = nc_put_att_text(ncidf_id, "c", 1, "x");
715   check_err(stat,__LINE__,__FILE__);
716   stat = nc_put_att_text(ncidd_id, "c", 8, "abcd\tZ$&");
717   check_err(stat,__LINE__,__FILE__);
718   stat = nc_put_att_text(ncidNC_GLOBAL, "Gc", 1, "");
719   check_err(stat,__LINE__,__FILE__);
720   cdf_Gb[0] = -128;
721   cdf_Gb[1] = 127;
722   stat = nc_put_att_int(ncidNC_GLOBAL, "Gb", NC_BYTE, 2, cdf_Gb);
723   check_err(stat,__LINE__,__FILE__);
724   cdf_Gs[0] = -32768;
725   cdf_Gs[1] = 0;
726   cdf_Gs[2] = 32767;
727   stat = nc_put_att_short(ncidNC_GLOBAL, "Gs", NC_SHORT, 3, cdf_Gs);
728   check_err(stat,__LINE__,__FILE__);
729   cdf_Gi[0] = -2147483647;
730   cdf_Gi[1] = 0;
731   cdf_Gi[2] = 2147483647;
732   stat = nc_put_att_int(ncidNC_GLOBAL, "Gi", NC_INT, 3, cdf_Gi);
733   check_err(stat,__LINE__,__FILE__);
734   cdf_Gf[0] = -9.9999996e+35;
735   cdf_Gf[1] = 0;
736   cdf_Gf[2] = 9.9999996e+35;
737   stat = nc_put_att_float(ncidNC_GLOBAL, "Gf", NC_FLOAT, 3, cdf_Gf);
738   check_err(stat,__LINE__,__FILE__);
739   cdf_Gd[0] = -1e+308;
740   cdf_Gd[1] = 0;
741   cdf_Gd[2] = 1e+308;
742   stat = nc_put_att_double(ncidNC_GLOBAL, "Gd", NC_DOUBLE, 3, cdf_Gd);
743   check_err(stat,__LINE__,__FILE__);
744   cdf_Gatt_MINUS_name_MINUS_dashes[0] = -1;
745   stat = nc_put_att_int(ncidNC_GLOBAL, "Gatt-name-dashes", NC_INT, 1, cdf_Gatt_MINUS_name_MINUS_dashes);
746   check_err(stat,__LINE__,__FILE__);
747   cdf_Gatt_PERIOD_name_PERIOD_dots[0] = -2;
748   stat = nc_put_att_int(ncidNC_GLOBAL, "Gatt.name.dots", NC_INT, 1, cdf_Gatt_PERIOD_name_PERIOD_dots);
749   check_err(stat,__LINE__,__FILE__);
750   cdf_Gatt_PLUS_name_PLUS_plusses[0] = -3;
751   stat = nc_put_att_int(ncidNC_GLOBAL, "Gatt+name+plusses", NC_INT, 1, cdf_Gatt_PLUS_name_PLUS_plusses);
752   check_err(stat,__LINE__,__FILE__);
753   cdf_Gatt_ATSIGN_name_ATSIGN_ats[0] = -4;
754   stat = nc_put_att_int(ncidNC_GLOBAL, "Gatt@name@ats", NC_INT, 1, cdf_Gatt_ATSIGN_name_ATSIGN_ats);
755   check_err(stat,__LINE__,__FILE__);
756
757   /* leave define mode */
758   stat = nc_enddef (ncid);
759   check_err(stat,__LINE__,__FILE__);
760
761   { /* store c */
762    static char c = '2';
763    stat = nc_put_var_text(ncidc_id, &c);
764    check_err(stat,__LINE__,__FILE__);
765   }
766
767   { /* store b */
768    static signed char b = -2;
769    stat = nc_put_var_schar(ncidb_id, &b);
770    check_err(stat,__LINE__,__FILE__);
771   }
772
773   { /* store s */
774    static short s = -5;
775    stat = nc_put_var_short(ncids_id, &s);
776    check_err(stat,__LINE__,__FILE__);
777   }
778
779   { /* store i */
780    static int i = -20;
781    stat = nc_put_var_int(ncidi_id, &i);
782    check_err(stat,__LINE__,__FILE__);
783   }
784
785   { /* store f */
786    static float f = -9;
787    stat = nc_put_var_float(ncidf_id, &f);
788    check_err(stat,__LINE__,__FILE__);
789   }
790
791   { /* store d */
792    static double d = -10.;
793    stat = nc_put_var_double(ncidd_id, &d);
794    check_err(stat,__LINE__,__FILE__);
795   }
796
797   { /* store cr */
798    static size_t cr_start[RANK_cr];
799    static size_t cr_count[RANK_cr];
800    static char cr[] = {"ab"};
801    Dr_len = 2; /* number of records of cr data */
802    cr_start[0] = 0;
803    cr_count[0] = Dr_len;
804    stat = nc_put_vara_text(ncidcr_idcr_startcr_countcr);
805    check_err(stat,__LINE__,__FILE__);
806   }
807
808   { /* store br */
809    static size_t br_start[RANK_br];
810    static size_t br_count[RANK_br];
811    static signed char br[] = {-128, 127};
812    Dr_len = 2; /* number of records of br data */
813    br_start[0] = 0;
814    br_count[0] = Dr_len;
815    stat = nc_put_vara_schar(ncidbr_idbr_startbr_countbr);
816    check_err(stat,__LINE__,__FILE__);
817   }
818
819   { /* store sr */
820    static size_t sr_start[RANK_sr];
821    static size_t sr_count[RANK_sr];
822    static short sr[] = {-32768, 32767};
823    Dr_len = 2; /* number of records of sr data */
824    sr_start[0] = 0;
825    sr_count[0] = Dr_len;
826    stat = nc_put_vara_short(ncidsr_idsr_startsr_countsr);
827    check_err(stat,__LINE__,__FILE__);
828   }
829
830   { /* store ir */
831    static size_t ir_start[RANK_ir];
832    static size_t ir_count[RANK_ir];
833    static int ir[] = {-2147483646, 2147483647};
834    Dr_len = 2; /* number of records of ir data */
835    ir_start[0] = 0;
836    ir_count[0] = Dr_len;
837    stat = nc_put_vara_int(ncidir_idir_startir_countir);
838    check_err(stat,__LINE__,__FILE__);
839   }
840
841   { /* store fr */
842    static size_t fr_start[RANK_fr];
843    static size_t fr_count[RANK_fr];
844    static float fr[] = {-9.9999996e+35, 9.9999996e+35};
845    Dr_len = 2; /* number of records of fr data */
846    fr_start[0] = 0;
847    fr_count[0] = Dr_len;
848    stat = nc_put_vara_float(ncidfr_idfr_startfr_countfr);
849    check_err(stat,__LINE__,__FILE__);
850   }
851
852   { /* store dr */
853    static size_t dr_start[RANK_dr];
854    static size_t dr_count[RANK_dr];
855    static double dr[] = {-1.e+308, 1.e+308};
856    Dr_len = 2; /* number of records of dr data */
857    dr_start[0] = 0;
858    dr_count[0] = Dr_len;
859    stat = nc_put_vara_double(nciddr_iddr_startdr_countdr);
860    check_err(stat,__LINE__,__FILE__);
861   }
862
863   { /* store c1 */
864    static char c1[] = {""};
865    stat = nc_put_var_text(ncidc1_idc1);
866    check_err(stat,__LINE__,__FILE__);
867   }
868
869   { /* store b1 */
870    static signed char b1[] = {-128};
871    stat = nc_put_var_schar(ncidb1_idb1);
872    check_err(stat,__LINE__,__FILE__);
873   }
874
875   { /* store s1 */
876    static short s1[] = {-32768};
877    stat = nc_put_var_short(ncids1_ids1);
878    check_err(stat,__LINE__,__FILE__);
879   }
880
881   { /* store i1 */
882    static int i1[] = {-2147483646};
883    stat = nc_put_var_int(ncidi1_idi1);
884    check_err(stat,__LINE__,__FILE__);
885   }
886
887   { /* store f1 */
888    static float f1[] = {-9.9999996e+35};
889    stat = nc_put_var_float(ncidf1_idf1);
890    check_err(stat,__LINE__,__FILE__);
891   }
892
893   { /* store d1 */
894    static double d1[] = {-1.e+308};
895    stat = nc_put_var_double(ncidd1_idd1);
896    check_err(stat,__LINE__,__FILE__);
897   }
898
899   { /* store c2 */
900    static char c2[] = {"ab"};
901    stat = nc_put_var_text(ncidc2_idc2);
902    check_err(stat,__LINE__,__FILE__);
903   }
904
905   { /* store b2 */
906    static signed char b2[] = {-128, 127};
907    stat = nc_put_var_schar(ncidb2_idb2);
908    check_err(stat,__LINE__,__FILE__);
909   }
910
911   { /* store s2 */
912    static short s2[] = {-32768, 32767};
913    stat = nc_put_var_short(ncids2_ids2);
914    check_err(stat,__LINE__,__FILE__);
915   }
916
917   { /* store i2 */
918    static int i2[] = {-2147483646, 2147483647};
919    stat = nc_put_var_int(ncidi2_idi2);
920    check_err(stat,__LINE__,__FILE__);
921   }
922
923   { /* store f2 */
924    static float f2[] = {-9.9999996e+35, 9.9999996e+35};
925    stat = nc_put_var_float(ncidf2_idf2);
926    check_err(stat,__LINE__,__FILE__);
927   }
928
929   { /* store d2 */
930    static double d2[] = {-1.e+308, 1.e+308};
931    stat = nc_put_var_double(ncidd2_idd2);
932    check_err(stat,__LINE__,__FILE__);
933   }
934
935   { /* store c3 */
936    static char c3[] = {"\001\177."};
937    stat = nc_put_var_text(ncidc3_idc3);
938    check_err(stat,__LINE__,__FILE__);
939   }
940
941   { /* store b3 */
942    static signed char b3[] = {-128, 127, -1};
943    stat = nc_put_var_schar(ncidb3_idb3);
944    check_err(stat,__LINE__,__FILE__);
945   }
946
947   { /* store s3 */
948    static short s3[] = {-32768, 0, 32767};
949    stat = nc_put_var_short(ncids3_ids3);
950    check_err(stat,__LINE__,__FILE__);
951   }
952
953   { /* store i3 */
954    static int i3[] = {-2147483646, 0, 2147483647};
955    stat = nc_put_var_int(ncidi3_idi3);
956    check_err(stat,__LINE__,__FILE__);
957   }
958
959   { /* store f3 */
960    static float f3[] = {-9.9999996e+35, 0, 9.9999996e+35};
961    stat = nc_put_var_float(ncidf3_idf3);
962    check_err(stat,__LINE__,__FILE__);
963   }
964
965   { /* store d3 */
966    static double d3[] = {-1.e+308, 0., 1.e+308};
967    stat = nc_put_var_double(ncidd3_idd3);
968    check_err(stat,__LINE__,__FILE__);
969   }
970
971   { /* store cr1 */
972    static size_t cr1_start[RANK_cr1];
973    static size_t cr1_count[RANK_cr1];
974    static char cr1[] = {"xy"};
975    Dr_len = 2; /* number of records of cr1 data */
976    cr1_start[0] = 0;
977    cr1_start[1] = 0;
978    cr1_count[0] = Dr_len;
979    cr1_count[1] = D1_len;
980    stat = nc_put_vara_text(ncidcr1_idcr1_startcr1_countcr1);
981    check_err(stat,__LINE__,__FILE__);
982   }
983
984   { /* store br2 */
985    static size_t br2_start[RANK_br2];
986    static size_t br2_count[RANK_br2];
987    static signed char br2[] = {-24, -26, -20, -22};
988    Dr_len = 2; /* number of records of br2 data */
989    br2_start[0] = 0;
990    br2_start[1] = 0;
991    br2_count[0] = Dr_len;
992    br2_count[1] = D2_len;
993    stat = nc_put_vara_schar(ncidbr2_idbr2_startbr2_countbr2);
994    check_err(stat,__LINE__,__FILE__);
995   }
996
997   { /* store sr3 */
998    static size_t sr3_start[RANK_sr3];
999    static size_t sr3_count[RANK_sr3];
1000    static short sr3[] = {-375, -380, -385, -350, -355, -360};
1001    Dr_len = 2; /* number of records of sr3 data */
1002    sr3_start[0] = 0;
1003    sr3_start[1] = 0;
1004    sr3_count[0] = Dr_len;
1005    sr3_count[1] = D3_len;
1006    stat = nc_put_vara_short(ncidsr3_idsr3_startsr3_countsr3);
1007    check_err(stat,__LINE__,__FILE__);
1008   }
1009
1010   { /* store f11 */
1011    static float f11[] = {-2187};
1012    stat = nc_put_var_float(ncidf11_idf11);
1013    check_err(stat,__LINE__,__FILE__);
1014   }
1015
1016   { /* store d12 */
1017    static double d12[] = {-3000., -3010.};
1018    stat = nc_put_var_double(ncidd12_idd12);
1019    check_err(stat,__LINE__,__FILE__);
1020   }
1021
1022   { /* store c13 */
1023    static char c13[] = {"\tb\177"};
1024    stat = nc_put_var_text(ncidc13_idc13);
1025    check_err(stat,__LINE__,__FILE__);
1026   }
1027
1028   { /* store s21 */
1029    static short s21[] = {-375, -350};
1030    stat = nc_put_var_short(ncids21_ids21);
1031    check_err(stat,__LINE__,__FILE__);
1032   }
1033
1034   { /* store i22 */
1035    static int i22[] = {-24000, -24020, -23600, -23620};
1036    stat = nc_put_var_int(ncidi22_idi22);
1037    check_err(stat,__LINE__,__FILE__);
1038   }
1039
1040   { /* store f23 */
1041    static float f23[] = {-2187, -2196, -2205, -2106, -2115, -2124};
1042    stat = nc_put_var_float(ncidf23_idf23);
1043    check_err(stat,__LINE__,__FILE__);
1044   }
1045
1046   { /* store c31 */
1047    static char c31[] = {"+- "};
1048    stat = nc_put_var_text(ncidc31_idc31);
1049    check_err(stat,__LINE__,__FILE__);
1050   }
1051
1052   { /* store b32 */
1053    static signed char b32[] = {-24, -26, -20, -22, -16, -18};
1054    stat = nc_put_var_schar(ncidb32_idb32);
1055    check_err(stat,__LINE__,__FILE__);
1056   }
1057
1058   { /* store s33 */
1059    static short s33[] = {-375, -380, -385, -350, -355, -360, -325, -330, -335};
1060    stat = nc_put_var_short(ncids33_ids33);
1061    check_err(stat,__LINE__,__FILE__);
1062   }
1063
1064   { /* store sr11 */
1065    static size_t sr11_start[RANK_sr11];
1066    static size_t sr11_count[RANK_sr11];
1067    static short sr11[] = {2500, 2375};
1068    Dr_len = 2; /* number of records of sr11 data */
1069    sr11_start[0] = 0;
1070    sr11_start[1] = 0;
1071    sr11_start[2] = 0;
1072    sr11_count[0] = Dr_len;
1073    sr11_count[1] = D1_len;
1074    sr11_count[2] = D1_len;
1075    stat = nc_put_vara_short(ncidsr11_idsr11_startsr11_countsr11);
1076    check_err(stat,__LINE__,__FILE__);
1077   }
1078
1079   { /* store ir12 */
1080    static size_t ir12_start[RANK_ir12];
1081    static size_t ir12_count[RANK_ir12];
1082    static int ir12[] = {640000, 639980, 632000, 631980};
1083    Dr_len = 2; /* number of records of ir12 data */
1084    ir12_start[0] = 0;
1085    ir12_start[1] = 0;
1086    ir12_start[2] = 0;
1087    ir12_count[0] = Dr_len;
1088    ir12_count[1] = D1_len;
1089    ir12_count[2] = D2_len;
1090    stat = nc_put_vara_int(ncidir12_idir12_startir12_countir12);
1091    check_err(stat,__LINE__,__FILE__);
1092   }
1093
1094   { /* store fr13 */
1095    static size_t fr13_start[RANK_fr13];
1096    static size_t fr13_count[RANK_fr13];
1097    static float fr13[] = {26244, 26235, 26226, 25515, 25506, 25497};
1098    Dr_len = 2; /* number of records of fr13 data */
1099    fr13_start[0] = 0;
1100    fr13_start[1] = 0;
1101    fr13_start[2] = 0;
1102    fr13_count[0] = Dr_len;
1103    fr13_count[1] = D1_len;
1104    fr13_count[2] = D3_len;
1105    stat = nc_put_vara_float(ncidfr13_idfr13_startfr13_countfr13);
1106    check_err(stat,__LINE__,__FILE__);
1107   }
1108
1109   { /* store cr21 */
1110    static size_t cr21_start[RANK_cr21];
1111    static size_t cr21_count[RANK_cr21];
1112    static char cr21[] = {"@DHL"};
1113    Dr_len = 2; /* number of records of cr21 data */
1114    cr21_start[0] = 0;
1115    cr21_start[1] = 0;
1116    cr21_start[2] = 0;
1117    cr21_count[0] = Dr_len;
1118    cr21_count[1] = D2_len;
1119    cr21_count[2] = D1_len;
1120    stat = nc_put_vara_text(ncidcr21_idcr21_startcr21_countcr21);
1121    check_err(stat,__LINE__,__FILE__);
1122   }
1123
1124   { /* store br22 */
1125    static size_t br22_start[RANK_br22];
1126    static size_t br22_count[RANK_br22];
1127    static signed char br22[] = {64, 62, 68, 66, 56, 54, 60, 58};
1128    Dr_len = 2; /* number of records of br22 data */
1129    br22_start[0] = 0;
1130    br22_start[1] = 0;
1131    br22_start[2] = 0;
1132    br22_count[0] = Dr_len;
1133    br22_count[1] = D2_len;
1134    br22_count[2] = D2_len;
1135    stat = nc_put_vara_schar(ncidbr22_idbr22_startbr22_countbr22);
1136    check_err(stat,__LINE__,__FILE__);
1137   }
1138
1139   { /* store sr23 */
1140    static size_t sr23_start[RANK_sr23];
1141    static size_t sr23_count[RANK_sr23];
1142    static short sr23[] = {2500, 2495, 2490, 2525, 2520, 2515, 2375, 2370, 2365, 2400, 2395, 2390};
1143    Dr_len = 2; /* number of records of sr23 data */
1144    sr23_start[0] = 0;
1145    sr23_start[1] = 0;
1146    sr23_start[2] = 0;
1147    sr23_count[0] = Dr_len;
1148    sr23_count[1] = D2_len;
1149    sr23_count[2] = D3_len;
1150    stat = nc_put_vara_short(ncidsr23_idsr23_startsr23_countsr23);
1151    check_err(stat,__LINE__,__FILE__);
1152   }
1153
1154   { /* store fr31 */
1155    static size_t fr31_start[RANK_fr31];
1156    static size_t fr31_count[RANK_fr31];
1157    static float fr31[] = {26244, 26325, 26406, 25515, 25596, 25677};
1158    Dr_len = 2; /* number of records of fr31 data */
1159    fr31_start[0] = 0;
1160    fr31_start[1] = 0;
1161    fr31_start[2] = 0;
1162    fr31_count[0] = Dr_len;
1163    fr31_count[1] = D3_len;
1164    fr31_count[2] = D1_len;
1165    stat = nc_put_vara_float(ncidfr31_idfr31_startfr31_countfr31);
1166    check_err(stat,__LINE__,__FILE__);
1167   }
1168
1169   { /* store dr32 */
1170    static size_t dr32_start[RANK_dr32];
1171    static size_t dr32_count[RANK_dr32];
1172    static double dr32[] = {40000., 39990., 40100., 40090., 40200., 40190., 39000., 38990., 39100., 39090., 39200., 39190.};
1173    Dr_len = 2; /* number of records of dr32 data */
1174    dr32_start[0] = 0;
1175    dr32_start[1] = 0;
1176    dr32_start[2] = 0;
1177    dr32_count[0] = Dr_len;
1178    dr32_count[1] = D3_len;
1179    dr32_count[2] = D2_len;
1180    stat = nc_put_vara_double(nciddr32_iddr32_startdr32_countdr32);
1181    check_err(stat,__LINE__,__FILE__);
1182   }
1183
1184   { /* store cr33 */
1185    static size_t cr33_start[RANK_cr33];
1186    static size_t cr33_count[RANK_cr33];
1187    static char cr33[] = {"1\000\000two3\000\0004\000\0005\000\000six"};
1188    Dr_len = 2; /* number of records of cr33 data */
1189    cr33_start[0] = 0;
1190    cr33_start[1] = 0;
1191    cr33_start[2] = 0;
1192    cr33_count[0] = Dr_len;
1193    cr33_count[1] = D3_len;
1194    cr33_count[2] = D3_len;
1195    stat = nc_put_vara_text(ncidcr33_idcr33_startcr33_countcr33);
1196    check_err(stat,__LINE__,__FILE__);
1197   }
1198
1199   { /* store c111 */
1200    static char c111[] = {"@"};
1201    stat = nc_put_var_text(ncidc111_idc111);
1202    check_err(stat,__LINE__,__FILE__);
1203   }
1204
1205   { /* store b112 */
1206    static signed char b112[] = {64, 62};
1207    stat = nc_put_var_schar(ncidb112_idb112);
1208    check_err(stat,__LINE__,__FILE__);
1209   }
1210
1211   { /* store s113 */
1212    static short s113[] = {2500, 2495, 2490};
1213    stat = nc_put_var_short(ncids113_ids113);
1214    check_err(stat,__LINE__,__FILE__);
1215   }
1216
1217   { /* store f121 */
1218    static float f121[] = {26244, 26325};
1219    stat = nc_put_var_float(ncidf121_idf121);
1220    check_err(stat,__LINE__,__FILE__);
1221   }
1222
1223   { /* store d122 */
1224    static double d122[] = {40000., 39990., 40100., 40090.};
1225    stat = nc_put_var_double(ncidd122_idd122);
1226    check_err(stat,__LINE__,__FILE__);
1227   }
1228
1229   { /* store c123 */
1230    static char c123[] = {"one2\000\000"};
1231    stat = nc_put_var_text(ncidc123_idc123);
1232    check_err(stat,__LINE__,__FILE__);
1233   }
1234
1235   { /* store s131 */
1236    static short s131[] = {2500, 2525, 2550};
1237    stat = nc_put_var_short(ncids131_ids131);
1238    check_err(stat,__LINE__,__FILE__);
1239   }
1240
1241   { /* store i132 */
1242    static int i132[] = {640000, 639980, 640400, 640380, 640800, 640780};
1243    stat = nc_put_var_int(ncidi132_idi132);
1244    check_err(stat,__LINE__,__FILE__);
1245   }
1246
1247   { /* store f133 */
1248    static float f133[] = {26244, 26235, 26226, 26325, 26316, 26307, 26406, 26397, 26388};
1249    stat = nc_put_var_float(ncidf133_idf133);
1250    check_err(stat,__LINE__,__FILE__);
1251   }
1252
1253   { /* store f211 */
1254    static float f211[] = {26244, 25515};
1255    stat = nc_put_var_float(ncidf211_idf211);
1256    check_err(stat,__LINE__,__FILE__);
1257   }
1258
1259   { /* store d212 */
1260    static double d212[] = {40000., 39990., 39000., 38990.};
1261    stat = nc_put_var_double(ncidd212_idd212);
1262    check_err(stat,__LINE__,__FILE__);
1263   }
1264
1265   { /* store s221 */
1266    static short s221[] = {2500, 2525, 2375, 2400};
1267    stat = nc_put_var_short(ncids221_ids221);
1268    check_err(stat,__LINE__,__FILE__);
1269   }
1270
1271   { /* store i222 */
1272    static int i222[] = {640000, 639980, 640400, 640380, 632000, 631980, 632400, 632380};
1273    stat = nc_put_var_int(ncidi222_idi222);
1274    check_err(stat,__LINE__,__FILE__);
1275   }
1276
1277   { /* store f223 */
1278    static float f223[] = {26244, 26235, 26226, 26325, 26316, 26307, 25515, 25506, 25497, 25596, 25587, 25578};
1279    stat = nc_put_var_float(ncidf223_idf223);
1280    check_err(stat,__LINE__,__FILE__);
1281   }
1282
1283   { /* store c231 */
1284    static char c231[] = {"@DHHLP"};
1285    stat = nc_put_var_text(ncidc231_idc231);
1286    check_err(stat,__LINE__,__FILE__);
1287   }
1288
1289   { /* store b232 */
1290    static signed char b232[] = {64, 62, 68, 66, 72, 70, 56, 54, 60, 58, 64, 62};
1291    stat = nc_put_var_schar(ncidb232_idb232);
1292    check_err(stat,__LINE__,__FILE__);
1293   }
1294
1295   { /* store s233 */
1296    static short s233[] = {2500, 2495, 2490, 2525, 2520, 2515, 2550, 2545, 2540, 2375, 2370, 2365, 2400, 2395, 2390, 2425, 2420, 2415};
1297    stat = nc_put_var_short(ncids233_ids233);
1298    check_err(stat,__LINE__,__FILE__);
1299   }
1300
1301   { /* store s311 */
1302    static short s311[] = {2500, 2375, 2250};
1303    stat = nc_put_var_short(ncids311_ids311);
1304    check_err(stat,__LINE__,__FILE__);
1305   }
1306
1307   { /* store i312 */
1308    static int i312[] = {640000, 639980, 632000, 631980, 624000, 623980};
1309    stat = nc_put_var_int(ncidi312_idi312);
1310    check_err(stat,__LINE__,__FILE__);
1311   }
1312
1313   { /* store f313 */
1314    static float f313[] = {26244, 26235, 26226, 25515, 25506, 25497, 24786, 24777, 24768};
1315    stat = nc_put_var_float(ncidf313_idf313);
1316    check_err(stat,__LINE__,__FILE__);
1317   }
1318
1319   { /* store var-name-dashes */
1320    static double var_MINUS_name_MINUS_dashes = -1.;
1321    stat = nc_put_var_double(ncidvar_MINUS_name_MINUS_dashes_id, &var_MINUS_name_MINUS_dashes);
1322    check_err(stat,__LINE__,__FILE__);
1323   }
1324
1325   { /* store var.name.dots */
1326    static double var_PERIOD_name_PERIOD_dots = -2.;
1327    stat = nc_put_var_double(ncidvar_PERIOD_name_PERIOD_dots_id, &var_PERIOD_name_PERIOD_dots);
1328    check_err(stat,__LINE__,__FILE__);
1329   }
1330   stat = nc_close(ncid);
1331   check_err(stat,__LINE__,__FILE__);
1332   return 0;
1333}


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