mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2024-12-27 08:49:16 +08:00
Code Issues Packages Projects Releases Wiki Activity
00eaa53e0b
netcdf-c/ncdump/ref_ctest.c
Dennis Heimbigner 554034b712 1. Added temporary work-around for cygwin where 
AC_CHECK_SIZEOF is not working because anti-virus
   will not allow very rapid creation/deletion of a
   file with same name.
2. modified some test baselines to attempt to fix
   Ward's issue
2015-10-09 10:33:40 -06:00

1334 lines
40 KiB
C
Raw Blame History

#include <stdio.h>
#include <stdlib.h>
#include <netcdf.h>
void
check_err(const int stat, const int line, const char *file) {
if (stat != NC_NOERR) {
(void) fprintf(stderr, "line %d of %s: %s\n", line, file, nc_strerror(stat));
exit(1);
}
}
int
main() { /* create ctest0.nc */
int stat; /* return status */
int ncid; /* netCDF id */
/* dimension ids */
int Dr_dim;
int D1_dim;
int D2_dim;
int D3_dim;
int dim_MINUS_name_MINUS_dashes_dim;
int dim_PERIOD_name_PERIOD_dots_dim;
int dim_PLUS_name_PLUS_plusses_dim;
int dim_ATSIGN_name_ATSIGN_ats_dim;
/* dimension lengths */
size_t Dr_len = NC_UNLIMITED;
size_t D1_len = 1;
size_t D2_len = 2;
size_t D3_len = 3;
size_t dim_MINUS_name_MINUS_dashes_len = 4;
size_t dim_PERIOD_name_PERIOD_dots_len = 5;
size_t dim_PLUS_name_PLUS_plusses_len = 6;
size_t dim_ATSIGN_name_ATSIGN_ats_len = 7;
/* variable ids */
int c_id;
int b_id;
int s_id;
int i_id;
int f_id;
int d_id;
int cr_id;
int br_id;
int sr_id;
int ir_id;
int fr_id;
int dr_id;
int c1_id;
int b1_id;
int s1_id;
int i1_id;
int f1_id;
int d1_id;
int c2_id;
int b2_id;
int s2_id;
int i2_id;
int f2_id;
int d2_id;
int c3_id;
int b3_id;
int s3_id;
int i3_id;
int f3_id;
int d3_id;
int cr1_id;
int br2_id;
int sr3_id;
int f11_id;
int d12_id;
int c13_id;
int s21_id;
int i22_id;
int f23_id;
int c31_id;
int b32_id;
int s33_id;
int sr11_id;
int ir12_id;
int fr13_id;
int cr21_id;
int br22_id;
int sr23_id;
int fr31_id;
int dr32_id;
int cr33_id;
int c111_id;
int b112_id;
int s113_id;
int f121_id;
int d122_id;
int c123_id;
int s131_id;
int i132_id;
int f133_id;
int f211_id;
int d212_id;
int c213_id;
int s221_id;
int i222_id;
int f223_id;
int c231_id;
int b232_id;
int s233_id;
int s311_id;
int i312_id;
int f313_id;
int var_MINUS_name_MINUS_dashes_id;
int var_PERIOD_name_PERIOD_dots_id;
int var_PLUS_name_PLUS_plusses_id;
int var_ATSIGN_name_ATSIGN_ats_id;
/* rank (number of dimensions) for each variable */
# define RANK_c 0
# define RANK_b 0
# define RANK_s 0
# define RANK_i 0
# define RANK_f 0
# define RANK_d 0
# define RANK_cr 1
# define RANK_br 1
# define RANK_sr 1
# define RANK_ir 1
# define RANK_fr 1
# define RANK_dr 1
# define RANK_c1 1
# define RANK_b1 1
# define RANK_s1 1
# define RANK_i1 1
# define RANK_f1 1
# define RANK_d1 1
# define RANK_c2 1
# define RANK_b2 1
# define RANK_s2 1
# define RANK_i2 1
# define RANK_f2 1
# define RANK_d2 1
# define RANK_c3 1
# define RANK_b3 1
# define RANK_s3 1
# define RANK_i3 1
# define RANK_f3 1
# define RANK_d3 1
# define RANK_cr1 2
# define RANK_br2 2
# define RANK_sr3 2
# define RANK_f11 2
# define RANK_d12 2
# define RANK_c13 2
# define RANK_s21 2
# define RANK_i22 2
# define RANK_f23 2
# define RANK_c31 2
# define RANK_b32 2
# define RANK_s33 2
# define RANK_sr11 3
# define RANK_ir12 3
# define RANK_fr13 3
# define RANK_cr21 3
# define RANK_br22 3
# define RANK_sr23 3
# define RANK_fr31 3
# define RANK_dr32 3
# define RANK_cr33 3
# define RANK_c111 3
# define RANK_b112 3
# define RANK_s113 3
# define RANK_f121 3
# define RANK_d122 3
# define RANK_c123 3
# define RANK_s131 3
# define RANK_i132 3
# define RANK_f133 3
# define RANK_f211 3
# define RANK_d212 3
# define RANK_c213 3
# define RANK_s221 3
# define RANK_i222 3
# define RANK_f223 3
# define RANK_c231 3
# define RANK_b232 3
# define RANK_s233 3
# define RANK_s311 3
# define RANK_i312 3
# define RANK_f313 3
# define RANK_var_MINUS_name_MINUS_dashes 0
# define RANK_var_PERIOD_name_PERIOD_dots 0
# define RANK_var_PLUS_name_PLUS_plusses 0
# define RANK_var_ATSIGN_name_ATSIGN_ats 0
/* variable shapes */
int cr_dims[RANK_cr];
int br_dims[RANK_br];
int sr_dims[RANK_sr];
int ir_dims[RANK_ir];
int fr_dims[RANK_fr];
int dr_dims[RANK_dr];
int c1_dims[RANK_c1];
int b1_dims[RANK_b1];
int s1_dims[RANK_s1];
int i1_dims[RANK_i1];
int f1_dims[RANK_f1];
int d1_dims[RANK_d1];
int c2_dims[RANK_c2];
int b2_dims[RANK_b2];
int s2_dims[RANK_s2];
int i2_dims[RANK_i2];
int f2_dims[RANK_f2];
int d2_dims[RANK_d2];
int c3_dims[RANK_c3];
int b3_dims[RANK_b3];
int s3_dims[RANK_s3];
int i3_dims[RANK_i3];
int f3_dims[RANK_f3];
int d3_dims[RANK_d3];
int cr1_dims[RANK_cr1];
int br2_dims[RANK_br2];
int sr3_dims[RANK_sr3];
int f11_dims[RANK_f11];
int d12_dims[RANK_d12];
int c13_dims[RANK_c13];
int s21_dims[RANK_s21];
int i22_dims[RANK_i22];
int f23_dims[RANK_f23];
int c31_dims[RANK_c31];
int b32_dims[RANK_b32];
int s33_dims[RANK_s33];
int sr11_dims[RANK_sr11];
int ir12_dims[RANK_ir12];
int fr13_dims[RANK_fr13];
int cr21_dims[RANK_cr21];
int br22_dims[RANK_br22];
int sr23_dims[RANK_sr23];
int fr31_dims[RANK_fr31];
int dr32_dims[RANK_dr32];
int cr33_dims[RANK_cr33];
int c111_dims[RANK_c111];
int b112_dims[RANK_b112];
int s113_dims[RANK_s113];
int f121_dims[RANK_f121];
int d122_dims[RANK_d122];
int c123_dims[RANK_c123];
int s131_dims[RANK_s131];
int i132_dims[RANK_i132];
int f133_dims[RANK_f133];
int f211_dims[RANK_f211];
int d212_dims[RANK_d212];
int c213_dims[RANK_c213];
int s221_dims[RANK_s221];
int i222_dims[RANK_i222];
int f223_dims[RANK_f223];
int c231_dims[RANK_c231];
int b232_dims[RANK_b232];
int s233_dims[RANK_s233];
int s311_dims[RANK_s311];
int i312_dims[RANK_i312];
int f313_dims[RANK_f313];
/* attribute vectors */
int c_att_MINUS_name_MINUS_dashes[1];
int c_att_PERIOD_name_PERIOD_dots[1];
int c_att_PLUS_name_PLUS_plusses[1];
int c_att_ATSIGN_name_ATSIGN_ats[1];
int s_b[4];
short s_s[3];
int i_i[3];
float i_f[3];
double i_d[3];
int cdf_Gb[2];
short cdf_Gs[3];
int cdf_Gi[3];
float cdf_Gf[3];
double cdf_Gd[3];
int cdf_Gatt_MINUS_name_MINUS_dashes[1];
int cdf_Gatt_PERIOD_name_PERIOD_dots[1];
int cdf_Gatt_PLUS_name_PLUS_plusses[1];
int cdf_Gatt_ATSIGN_name_ATSIGN_ats[1];
/* enter define mode */
stat = nc_create("ctest0.nc", NC_CLOBBER, &ncid);
check_err(stat,__LINE__,__FILE__);
/* define dimensions */
stat = nc_def_dim(ncid, "Dr", Dr_len, &Dr_dim);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_dim(ncid, "D1", D1_len, &D1_dim);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_dim(ncid, "D2", D2_len, &D2_dim);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_dim(ncid, "D3", D3_len, &D3_dim);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_dim(ncid, "dim-name-dashes", dim_MINUS_name_MINUS_dashes_len, &dim_MINUS_name_MINUS_dashes_dim);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_dim(ncid, "dim.name.dots", dim_PERIOD_name_PERIOD_dots_len, &dim_PERIOD_name_PERIOD_dots_dim);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_dim(ncid, "dim+name+plusses", dim_PLUS_name_PLUS_plusses_len, &dim_PLUS_name_PLUS_plusses_dim);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_dim(ncid, "dim@name@ats", dim_ATSIGN_name_ATSIGN_ats_len, &dim_ATSIGN_name_ATSIGN_ats_dim);
check_err(stat,__LINE__,__FILE__);
/* define variables */
stat = nc_def_var(ncid, "c", NC_CHAR, RANK_c, 0, &c_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "b", NC_BYTE, RANK_b, 0, &b_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "s", NC_SHORT, RANK_s, 0, &s_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "i", NC_INT, RANK_i, 0, &i_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "f", NC_FLOAT, RANK_f, 0, &f_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "d", NC_DOUBLE, RANK_d, 0, &d_id);
check_err(stat,__LINE__,__FILE__);
cr_dims[0] = Dr_dim;
stat = nc_def_var(ncid, "cr", NC_CHAR, RANK_cr, cr_dims, &cr_id);
check_err(stat,__LINE__,__FILE__);
br_dims[0] = Dr_dim;
stat = nc_def_var(ncid, "br", NC_BYTE, RANK_br, br_dims, &br_id);
check_err(stat,__LINE__,__FILE__);
sr_dims[0] = Dr_dim;
stat = nc_def_var(ncid, "sr", NC_SHORT, RANK_sr, sr_dims, &sr_id);
check_err(stat,__LINE__,__FILE__);
ir_dims[0] = Dr_dim;
stat = nc_def_var(ncid, "ir", NC_INT, RANK_ir, ir_dims, &ir_id);
check_err(stat,__LINE__,__FILE__);
fr_dims[0] = Dr_dim;
stat = nc_def_var(ncid, "fr", NC_FLOAT, RANK_fr, fr_dims, &fr_id);
check_err(stat,__LINE__,__FILE__);
dr_dims[0] = Dr_dim;
stat = nc_def_var(ncid, "dr", NC_DOUBLE, RANK_dr, dr_dims, &dr_id);
check_err(stat,__LINE__,__FILE__);
c1_dims[0] = D1_dim;
stat = nc_def_var(ncid, "c1", NC_CHAR, RANK_c1, c1_dims, &c1_id);
check_err(stat,__LINE__,__FILE__);
b1_dims[0] = D1_dim;
stat = nc_def_var(ncid, "b1", NC_BYTE, RANK_b1, b1_dims, &b1_id);
check_err(stat,__LINE__,__FILE__);
s1_dims[0] = D1_dim;
stat = nc_def_var(ncid, "s1", NC_SHORT, RANK_s1, s1_dims, &s1_id);
check_err(stat,__LINE__,__FILE__);
i1_dims[0] = D1_dim;
stat = nc_def_var(ncid, "i1", NC_INT, RANK_i1, i1_dims, &i1_id);
check_err(stat,__LINE__,__FILE__);
f1_dims[0] = D1_dim;
stat = nc_def_var(ncid, "f1", NC_FLOAT, RANK_f1, f1_dims, &f1_id);
check_err(stat,__LINE__,__FILE__);
d1_dims[0] = D1_dim;
stat = nc_def_var(ncid, "d1", NC_DOUBLE, RANK_d1, d1_dims, &d1_id);
check_err(stat,__LINE__,__FILE__);
c2_dims[0] = D2_dim;
stat = nc_def_var(ncid, "c2", NC_CHAR, RANK_c2, c2_dims, &c2_id);
check_err(stat,__LINE__,__FILE__);
b2_dims[0] = D2_dim;
stat = nc_def_var(ncid, "b2", NC_BYTE, RANK_b2, b2_dims, &b2_id);
check_err(stat,__LINE__,__FILE__);
s2_dims[0] = D2_dim;
stat = nc_def_var(ncid, "s2", NC_SHORT, RANK_s2, s2_dims, &s2_id);
check_err(stat,__LINE__,__FILE__);
i2_dims[0] = D2_dim;
stat = nc_def_var(ncid, "i2", NC_INT, RANK_i2, i2_dims, &i2_id);
check_err(stat,__LINE__,__FILE__);
f2_dims[0] = D2_dim;
stat = nc_def_var(ncid, "f2", NC_FLOAT, RANK_f2, f2_dims, &f2_id);
check_err(stat,__LINE__,__FILE__);
d2_dims[0] = D2_dim;
stat = nc_def_var(ncid, "d2", NC_DOUBLE, RANK_d2, d2_dims, &d2_id);
check_err(stat,__LINE__,__FILE__);
c3_dims[0] = D3_dim;
stat = nc_def_var(ncid, "c3", NC_CHAR, RANK_c3, c3_dims, &c3_id);
check_err(stat,__LINE__,__FILE__);
b3_dims[0] = D3_dim;
stat = nc_def_var(ncid, "b3", NC_BYTE, RANK_b3, b3_dims, &b3_id);
check_err(stat,__LINE__,__FILE__);
s3_dims[0] = D3_dim;
stat = nc_def_var(ncid, "s3", NC_SHORT, RANK_s3, s3_dims, &s3_id);
check_err(stat,__LINE__,__FILE__);
i3_dims[0] = D3_dim;
stat = nc_def_var(ncid, "i3", NC_INT, RANK_i3, i3_dims, &i3_id);
check_err(stat,__LINE__,__FILE__);
f3_dims[0] = D3_dim;
stat = nc_def_var(ncid, "f3", NC_FLOAT, RANK_f3, f3_dims, &f3_id);
check_err(stat,__LINE__,__FILE__);
d3_dims[0] = D3_dim;
stat = nc_def_var(ncid, "d3", NC_DOUBLE, RANK_d3, d3_dims, &d3_id);
check_err(stat,__LINE__,__FILE__);
cr1_dims[0] = Dr_dim;
cr1_dims[1] = D1_dim;
stat = nc_def_var(ncid, "cr1", NC_CHAR, RANK_cr1, cr1_dims, &cr1_id);
check_err(stat,__LINE__,__FILE__);
br2_dims[0] = Dr_dim;
br2_dims[1] = D2_dim;
stat = nc_def_var(ncid, "br2", NC_BYTE, RANK_br2, br2_dims, &br2_id);
check_err(stat,__LINE__,__FILE__);
sr3_dims[0] = Dr_dim;
sr3_dims[1] = D3_dim;
stat = nc_def_var(ncid, "sr3", NC_SHORT, RANK_sr3, sr3_dims, &sr3_id);
check_err(stat,__LINE__,__FILE__);
f11_dims[0] = D1_dim;
f11_dims[1] = D1_dim;
stat = nc_def_var(ncid, "f11", NC_FLOAT, RANK_f11, f11_dims, &f11_id);
check_err(stat,__LINE__,__FILE__);
d12_dims[0] = D1_dim;
d12_dims[1] = D2_dim;
stat = nc_def_var(ncid, "d12", NC_DOUBLE, RANK_d12, d12_dims, &d12_id);
check_err(stat,__LINE__,__FILE__);
c13_dims[0] = D1_dim;
c13_dims[1] = D3_dim;
stat = nc_def_var(ncid, "c13", NC_CHAR, RANK_c13, c13_dims, &c13_id);
check_err(stat,__LINE__,__FILE__);
s21_dims[0] = D2_dim;
s21_dims[1] = D1_dim;
stat = nc_def_var(ncid, "s21", NC_SHORT, RANK_s21, s21_dims, &s21_id);
check_err(stat,__LINE__,__FILE__);
i22_dims[0] = D2_dim;
i22_dims[1] = D2_dim;
stat = nc_def_var(ncid, "i22", NC_INT, RANK_i22, i22_dims, &i22_id);
check_err(stat,__LINE__,__FILE__);
f23_dims[0] = D2_dim;
f23_dims[1] = D3_dim;
stat = nc_def_var(ncid, "f23", NC_FLOAT, RANK_f23, f23_dims, &f23_id);
check_err(stat,__LINE__,__FILE__);
c31_dims[0] = D3_dim;
c31_dims[1] = D1_dim;
stat = nc_def_var(ncid, "c31", NC_CHAR, RANK_c31, c31_dims, &c31_id);
check_err(stat,__LINE__,__FILE__);
b32_dims[0] = D3_dim;
b32_dims[1] = D2_dim;
stat = nc_def_var(ncid, "b32", NC_BYTE, RANK_b32, b32_dims, &b32_id);
check_err(stat,__LINE__,__FILE__);
s33_dims[0] = D3_dim;
s33_dims[1] = D3_dim;
stat = nc_def_var(ncid, "s33", NC_SHORT, RANK_s33, s33_dims, &s33_id);
check_err(stat,__LINE__,__FILE__);
sr11_dims[0] = Dr_dim;
sr11_dims[1] = D1_dim;
sr11_dims[2] = D1_dim;
stat = nc_def_var(ncid, "sr11", NC_SHORT, RANK_sr11, sr11_dims, &sr11_id);
check_err(stat,__LINE__,__FILE__);
ir12_dims[0] = Dr_dim;
ir12_dims[1] = D1_dim;
ir12_dims[2] = D2_dim;
stat = nc_def_var(ncid, "ir12", NC_INT, RANK_ir12, ir12_dims, &ir12_id);
check_err(stat,__LINE__,__FILE__);
fr13_dims[0] = Dr_dim;
fr13_dims[1] = D1_dim;
fr13_dims[2] = D3_dim;
stat = nc_def_var(ncid, "fr13", NC_FLOAT, RANK_fr13, fr13_dims, &fr13_id);
check_err(stat,__LINE__,__FILE__);
cr21_dims[0] = Dr_dim;
cr21_dims[1] = D2_dim;
cr21_dims[2] = D1_dim;
stat = nc_def_var(ncid, "cr21", NC_CHAR, RANK_cr21, cr21_dims, &cr21_id);
check_err(stat,__LINE__,__FILE__);
br22_dims[0] = Dr_dim;
br22_dims[1] = D2_dim;
br22_dims[2] = D2_dim;
stat = nc_def_var(ncid, "br22", NC_BYTE, RANK_br22, br22_dims, &br22_id);
check_err(stat,__LINE__,__FILE__);
sr23_dims[0] = Dr_dim;
sr23_dims[1] = D2_dim;
sr23_dims[2] = D3_dim;
stat = nc_def_var(ncid, "sr23", NC_SHORT, RANK_sr23, sr23_dims, &sr23_id);
check_err(stat,__LINE__,__FILE__);
fr31_dims[0] = Dr_dim;
fr31_dims[1] = D3_dim;
fr31_dims[2] = D1_dim;
stat = nc_def_var(ncid, "fr31", NC_FLOAT, RANK_fr31, fr31_dims, &fr31_id);
check_err(stat,__LINE__,__FILE__);
dr32_dims[0] = Dr_dim;
dr32_dims[1] = D3_dim;
dr32_dims[2] = D2_dim;
stat = nc_def_var(ncid, "dr32", NC_DOUBLE, RANK_dr32, dr32_dims, &dr32_id);
check_err(stat,__LINE__,__FILE__);
cr33_dims[0] = Dr_dim;
cr33_dims[1] = D3_dim;
cr33_dims[2] = D3_dim;
stat = nc_def_var(ncid, "cr33", NC_CHAR, RANK_cr33, cr33_dims, &cr33_id);
check_err(stat,__LINE__,__FILE__);
c111_dims[0] = D1_dim;
c111_dims[1] = D1_dim;
c111_dims[2] = D1_dim;
stat = nc_def_var(ncid, "c111", NC_CHAR, RANK_c111, c111_dims, &c111_id);
check_err(stat,__LINE__,__FILE__);
b112_dims[0] = D1_dim;
b112_dims[1] = D1_dim;
b112_dims[2] = D2_dim;
stat = nc_def_var(ncid, "b112", NC_BYTE, RANK_b112, b112_dims, &b112_id);
check_err(stat,__LINE__,__FILE__);
s113_dims[0] = D1_dim;
s113_dims[1] = D1_dim;
s113_dims[2] = D3_dim;
stat = nc_def_var(ncid, "s113", NC_SHORT, RANK_s113, s113_dims, &s113_id);
check_err(stat,__LINE__,__FILE__);
f121_dims[0] = D1_dim;
f121_dims[1] = D2_dim;
f121_dims[2] = D1_dim;
stat = nc_def_var(ncid, "f121", NC_FLOAT, RANK_f121, f121_dims, &f121_id);
check_err(stat,__LINE__,__FILE__);
d122_dims[0] = D1_dim;
d122_dims[1] = D2_dim;
d122_dims[2] = D2_dim;
stat = nc_def_var(ncid, "d122", NC_DOUBLE, RANK_d122, d122_dims, &d122_id);
check_err(stat,__LINE__,__FILE__);
c123_dims[0] = D1_dim;
c123_dims[1] = D2_dim;
c123_dims[2] = D3_dim;
stat = nc_def_var(ncid, "c123", NC_CHAR, RANK_c123, c123_dims, &c123_id);
check_err(stat,__LINE__,__FILE__);
s131_dims[0] = D1_dim;
s131_dims[1] = D3_dim;
s131_dims[2] = D1_dim;
stat = nc_def_var(ncid, "s131", NC_SHORT, RANK_s131, s131_dims, &s131_id);
check_err(stat,__LINE__,__FILE__);
i132_dims[0] = D1_dim;
i132_dims[1] = D3_dim;
i132_dims[2] = D2_dim;
stat = nc_def_var(ncid, "i132", NC_INT, RANK_i132, i132_dims, &i132_id);
check_err(stat,__LINE__,__FILE__);
f133_dims[0] = D1_dim;
f133_dims[1] = D3_dim;
f133_dims[2] = D3_dim;
stat = nc_def_var(ncid, "f133", NC_FLOAT, RANK_f133, f133_dims, &f133_id);
check_err(stat,__LINE__,__FILE__);
f211_dims[0] = D2_dim;
f211_dims[1] = D1_dim;
f211_dims[2] = D1_dim;
stat = nc_def_var(ncid, "f211", NC_FLOAT, RANK_f211, f211_dims, &f211_id);
check_err(stat,__LINE__,__FILE__);
d212_dims[0] = D2_dim;
d212_dims[1] = D1_dim;
d212_dims[2] = D2_dim;
stat = nc_def_var(ncid, "d212", NC_DOUBLE, RANK_d212, d212_dims, &d212_id);
check_err(stat,__LINE__,__FILE__);
c213_dims[0] = D2_dim;
c213_dims[1] = D1_dim;
c213_dims[2] = D3_dim;
stat = nc_def_var(ncid, "c213", NC_CHAR, RANK_c213, c213_dims, &c213_id);
check_err(stat,__LINE__,__FILE__);
s221_dims[0] = D2_dim;
s221_dims[1] = D2_dim;
s221_dims[2] = D1_dim;
stat = nc_def_var(ncid, "s221", NC_SHORT, RANK_s221, s221_dims, &s221_id);
check_err(stat,__LINE__,__FILE__);
i222_dims[0] = D2_dim;
i222_dims[1] = D2_dim;
i222_dims[2] = D2_dim;
stat = nc_def_var(ncid, "i222", NC_INT, RANK_i222, i222_dims, &i222_id);
check_err(stat,__LINE__,__FILE__);
f223_dims[0] = D2_dim;
f223_dims[1] = D2_dim;
f223_dims[2] = D3_dim;
stat = nc_def_var(ncid, "f223", NC_FLOAT, RANK_f223, f223_dims, &f223_id);
check_err(stat,__LINE__,__FILE__);
c231_dims[0] = D2_dim;
c231_dims[1] = D3_dim;
c231_dims[2] = D1_dim;
stat = nc_def_var(ncid, "c231", NC_CHAR, RANK_c231, c231_dims, &c231_id);
check_err(stat,__LINE__,__FILE__);
b232_dims[0] = D2_dim;
b232_dims[1] = D3_dim;
b232_dims[2] = D2_dim;
stat = nc_def_var(ncid, "b232", NC_BYTE, RANK_b232, b232_dims, &b232_id);
check_err(stat,__LINE__,__FILE__);
s233_dims[0] = D2_dim;
s233_dims[1] = D3_dim;
s233_dims[2] = D3_dim;
stat = nc_def_var(ncid, "s233", NC_SHORT, RANK_s233, s233_dims, &s233_id);
check_err(stat,__LINE__,__FILE__);
s311_dims[0] = D3_dim;
s311_dims[1] = D1_dim;
s311_dims[2] = D1_dim;
stat = nc_def_var(ncid, "s311", NC_SHORT, RANK_s311, s311_dims, &s311_id);
check_err(stat,__LINE__,__FILE__);
i312_dims[0] = D3_dim;
i312_dims[1] = D1_dim;
i312_dims[2] = D2_dim;
stat = nc_def_var(ncid, "i312", NC_INT, RANK_i312, i312_dims, &i312_id);
check_err(stat,__LINE__,__FILE__);
f313_dims[0] = D3_dim;
f313_dims[1] = D1_dim;
f313_dims[2] = D3_dim;
stat = nc_def_var(ncid, "f313", NC_FLOAT, RANK_f313, f313_dims, &f313_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "var-name-dashes", NC_DOUBLE, RANK_var_MINUS_name_MINUS_dashes, 0, &var_MINUS_name_MINUS_dashes_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "var.name.dots", NC_DOUBLE, RANK_var_PERIOD_name_PERIOD_dots, 0, &var_PERIOD_name_PERIOD_dots_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "var+name+plusses", NC_DOUBLE, RANK_var_PLUS_name_PLUS_plusses, 0, &var_PLUS_name_PLUS_plusses_id);
check_err(stat,__LINE__,__FILE__);
stat = nc_def_var(ncid, "var@name@ats", NC_DOUBLE, RANK_var_ATSIGN_name_ATSIGN_ats, 0, &var_ATSIGN_name_ATSIGN_ats_id);
check_err(stat,__LINE__,__FILE__);
/* assign attributes */
c_att_MINUS_name_MINUS_dashes[0] = 4;
stat = nc_put_att_int(ncid, c_id, "att-name-dashes", NC_INT, 1, c_att_MINUS_name_MINUS_dashes);
check_err(stat,__LINE__,__FILE__);
c_att_PERIOD_name_PERIOD_dots[0] = 5;
stat = nc_put_att_int(ncid, c_id, "att.name.dots", NC_INT, 1, c_att_PERIOD_name_PERIOD_dots);
check_err(stat,__LINE__,__FILE__);
c_att_PLUS_name_PLUS_plusses[0] = 6;
stat = nc_put_att_int(ncid, c_id, "att+name+plusses", NC_INT, 1, c_att_PLUS_name_PLUS_plusses);
check_err(stat,__LINE__,__FILE__);
c_att_ATSIGN_name_ATSIGN_ats[0] = 7;
stat = nc_put_att_int(ncid, c_id, "att@name@ats", NC_INT, 1, c_att_ATSIGN_name_ATSIGN_ats);
check_err(stat,__LINE__,__FILE__);
stat = nc_put_att_text(ncid, b_id, "c", 1, "");
check_err(stat,__LINE__,__FILE__);
s_b[0] = 0;
s_b[1] = 127;
s_b[2] = -128;
s_b[3] = -1;
stat = nc_put_att_int(ncid, s_id, "b", NC_BYTE, 4, s_b);
check_err(stat,__LINE__,__FILE__);
s_s[0] = -32768;
s_s[1] = 0;
s_s[2] = 32767;
stat = nc_put_att_short(ncid, s_id, "s", NC_SHORT, 3, s_s);
check_err(stat,__LINE__,__FILE__);
i_i[0] = -2147483647;
i_i[1] = 0;
i_i[2] = 2147483647;
stat = nc_put_att_int(ncid, i_id, "i", NC_INT, 3, i_i);
check_err(stat,__LINE__,__FILE__);
i_f[0] = -9.9999996e+35;
i_f[1] = 0;
i_f[2] = 9.9999996e+35;
stat = nc_put_att_float(ncid, i_id, "f", NC_FLOAT, 3, i_f);
check_err(stat,__LINE__,__FILE__);
i_d[0] = -1e+308;
i_d[1] = 0;
i_d[2] = 1e+308;
stat = nc_put_att_double(ncid, i_id, "d", NC_DOUBLE, 3, i_d);
check_err(stat,__LINE__,__FILE__);
stat = nc_put_att_text(ncid, f_id, "c", 1, "x");
check_err(stat,__LINE__,__FILE__);
stat = nc_put_att_text(ncid, d_id, "c", 8, "abcd\tZ$&");
check_err(stat,__LINE__,__FILE__);
stat = nc_put_att_text(ncid, NC_GLOBAL, "Gc", 1, "");
check_err(stat,__LINE__,__FILE__);
cdf_Gb[0] = -128;
cdf_Gb[1] = 127;
stat = nc_put_att_int(ncid, NC_GLOBAL, "Gb", NC_BYTE, 2, cdf_Gb);
check_err(stat,__LINE__,__FILE__);
cdf_Gs[0] = -32768;
cdf_Gs[1] = 0;
cdf_Gs[2] = 32767;
stat = nc_put_att_short(ncid, NC_GLOBAL, "Gs", NC_SHORT, 3, cdf_Gs);
check_err(stat,__LINE__,__FILE__);
cdf_Gi[0] = -2147483647;
cdf_Gi[1] = 0;
cdf_Gi[2] = 2147483647;
stat = nc_put_att_int(ncid, NC_GLOBAL, "Gi", NC_INT, 3, cdf_Gi);
check_err(stat,__LINE__,__FILE__);
cdf_Gf[0] = -9.9999996e+35;
cdf_Gf[1] = 0;
cdf_Gf[2] = 9.9999996e+35;
stat = nc_put_att_float(ncid, NC_GLOBAL, "Gf", NC_FLOAT, 3, cdf_Gf);
check_err(stat,__LINE__,__FILE__);
cdf_Gd[0] = -1e+308;
cdf_Gd[1] = 0;
cdf_Gd[2] = 1e+308;
stat = nc_put_att_double(ncid, NC_GLOBAL, "Gd", NC_DOUBLE, 3, cdf_Gd);
check_err(stat,__LINE__,__FILE__);
cdf_Gatt_MINUS_name_MINUS_dashes[0] = -1;
stat = nc_put_att_int(ncid, NC_GLOBAL, "Gatt-name-dashes", NC_INT, 1, cdf_Gatt_MINUS_name_MINUS_dashes);
check_err(stat,__LINE__,__FILE__);
cdf_Gatt_PERIOD_name_PERIOD_dots[0] = -2;
stat = nc_put_att_int(ncid, NC_GLOBAL, "Gatt.name.dots", NC_INT, 1, cdf_Gatt_PERIOD_name_PERIOD_dots);
check_err(stat,__LINE__,__FILE__);
cdf_Gatt_PLUS_name_PLUS_plusses[0] = -3;
stat = nc_put_att_int(ncid, NC_GLOBAL, "Gatt+name+plusses", NC_INT, 1, cdf_Gatt_PLUS_name_PLUS_plusses);
check_err(stat,__LINE__,__FILE__);
cdf_Gatt_ATSIGN_name_ATSIGN_ats[0] = -4;
stat = nc_put_att_int(ncid, NC_GLOBAL, "Gatt@name@ats", NC_INT, 1, cdf_Gatt_ATSIGN_name_ATSIGN_ats);
check_err(stat,__LINE__,__FILE__);
/* leave define mode */
stat = nc_enddef (ncid);
check_err(stat,__LINE__,__FILE__);
{ /* store c */
static char c = '2';
stat = nc_put_var_text(ncid, c_id, &c);
check_err(stat,__LINE__,__FILE__);
}
{ /* store b */
static signed char b = -2;
stat = nc_put_var_schar(ncid, b_id, &b);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s */
static short s = -5;
stat = nc_put_var_short(ncid, s_id, &s);
check_err(stat,__LINE__,__FILE__);
}
{ /* store i */
static int i = -20;
stat = nc_put_var_int(ncid, i_id, &i);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f */
static float f = -9;
stat = nc_put_var_float(ncid, f_id, &f);
check_err(stat,__LINE__,__FILE__);
}
{ /* store d */
static double d = -10.;
stat = nc_put_var_double(ncid, d_id, &d);
check_err(stat,__LINE__,__FILE__);
}
{ /* store cr */
static size_t cr_start[RANK_cr];
static size_t cr_count[RANK_cr];
static char cr[] = {"ab"};
Dr_len = 2; /* number of records of cr data */
cr_start[0] = 0;
cr_count[0] = Dr_len;
stat = nc_put_vara_text(ncid, cr_id, cr_start, cr_count, cr);
check_err(stat,__LINE__,__FILE__);
}
{ /* store br */
static size_t br_start[RANK_br];
static size_t br_count[RANK_br];
static signed char br[] = {-128, 127};
Dr_len = 2; /* number of records of br data */
br_start[0] = 0;
br_count[0] = Dr_len;
stat = nc_put_vara_schar(ncid, br_id, br_start, br_count, br);
check_err(stat,__LINE__,__FILE__);
}
{ /* store sr */
static size_t sr_start[RANK_sr];
static size_t sr_count[RANK_sr];
static short sr[] = {-32768, 32767};
Dr_len = 2; /* number of records of sr data */
sr_start[0] = 0;
sr_count[0] = Dr_len;
stat = nc_put_vara_short(ncid, sr_id, sr_start, sr_count, sr);
check_err(stat,__LINE__,__FILE__);
}
{ /* store ir */
static size_t ir_start[RANK_ir];
static size_t ir_count[RANK_ir];
static int ir[] = {-2147483646, 2147483647};
Dr_len = 2; /* number of records of ir data */
ir_start[0] = 0;
ir_count[0] = Dr_len;
stat = nc_put_vara_int(ncid, ir_id, ir_start, ir_count, ir);
check_err(stat,__LINE__,__FILE__);
}
{ /* store fr */
static size_t fr_start[RANK_fr];
static size_t fr_count[RANK_fr];
static float fr[] = {-9.9999996e+35, 9.9999996e+35};
Dr_len = 2; /* number of records of fr data */
fr_start[0] = 0;
fr_count[0] = Dr_len;
stat = nc_put_vara_float(ncid, fr_id, fr_start, fr_count, fr);
check_err(stat,__LINE__,__FILE__);
}
{ /* store dr */
static size_t dr_start[RANK_dr];
static size_t dr_count[RANK_dr];
static double dr[] = {-1.e+308, 1.e+308};
Dr_len = 2; /* number of records of dr data */
dr_start[0] = 0;
dr_count[0] = Dr_len;
stat = nc_put_vara_double(ncid, dr_id, dr_start, dr_count, dr);
check_err(stat,__LINE__,__FILE__);
}
{ /* store c1 */
static char c1[] = {""};
stat = nc_put_var_text(ncid, c1_id, c1);
check_err(stat,__LINE__,__FILE__);
}
{ /* store b1 */
static signed char b1[] = {-128};
stat = nc_put_var_schar(ncid, b1_id, b1);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s1 */
static short s1[] = {-32768};
stat = nc_put_var_short(ncid, s1_id, s1);
check_err(stat,__LINE__,__FILE__);
}
{ /* store i1 */
static int i1[] = {-2147483646};
stat = nc_put_var_int(ncid, i1_id, i1);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f1 */
static float f1[] = {-9.9999996e+35};
stat = nc_put_var_float(ncid, f1_id, f1);
check_err(stat,__LINE__,__FILE__);
}
{ /* store d1 */
static double d1[] = {-1.e+308};
stat = nc_put_var_double(ncid, d1_id, d1);
check_err(stat,__LINE__,__FILE__);
}
{ /* store c2 */
static char c2[] = {"ab"};
stat = nc_put_var_text(ncid, c2_id, c2);
check_err(stat,__LINE__,__FILE__);
}
{ /* store b2 */
static signed char b2[] = {-128, 127};
stat = nc_put_var_schar(ncid, b2_id, b2);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s2 */
static short s2[] = {-32768, 32767};
stat = nc_put_var_short(ncid, s2_id, s2);
check_err(stat,__LINE__,__FILE__);
}
{ /* store i2 */
static int i2[] = {-2147483646, 2147483647};
stat = nc_put_var_int(ncid, i2_id, i2);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f2 */
static float f2[] = {-9.9999996e+35, 9.9999996e+35};
stat = nc_put_var_float(ncid, f2_id, f2);
check_err(stat,__LINE__,__FILE__);
}
{ /* store d2 */
static double d2[] = {-1.e+308, 1.e+308};
stat = nc_put_var_double(ncid, d2_id, d2);
check_err(stat,__LINE__,__FILE__);
}
{ /* store c3 */
static char c3[] = {"\001\177."};
stat = nc_put_var_text(ncid, c3_id, c3);
check_err(stat,__LINE__,__FILE__);
}
{ /* store b3 */
static signed char b3[] = {-128, 127, -1};
stat = nc_put_var_schar(ncid, b3_id, b3);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s3 */
static short s3[] = {-32768, 0, 32767};
stat = nc_put_var_short(ncid, s3_id, s3);
check_err(stat,__LINE__,__FILE__);
}
{ /* store i3 */
static int i3[] = {-2147483646, 0, 2147483647};
stat = nc_put_var_int(ncid, i3_id, i3);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f3 */
static float f3[] = {-9.9999996e+35, 0, 9.9999996e+35};
stat = nc_put_var_float(ncid, f3_id, f3);
check_err(stat,__LINE__,__FILE__);
}
{ /* store d3 */
static double d3[] = {-1.e+308, 0., 1.e+308};
stat = nc_put_var_double(ncid, d3_id, d3);
check_err(stat,__LINE__,__FILE__);
}
{ /* store cr1 */
static size_t cr1_start[RANK_cr1];
static size_t cr1_count[RANK_cr1];
static char cr1[] = {"xy"};
Dr_len = 2; /* number of records of cr1 data */
cr1_start[0] = 0;
cr1_start[1] = 0;
cr1_count[0] = Dr_len;
cr1_count[1] = D1_len;
stat = nc_put_vara_text(ncid, cr1_id, cr1_start, cr1_count, cr1);
check_err(stat,__LINE__,__FILE__);
}
{ /* store br2 */
static size_t br2_start[RANK_br2];
static size_t br2_count[RANK_br2];
static signed char br2[] = {-24, -26, -20, -22};
Dr_len = 2; /* number of records of br2 data */
br2_start[0] = 0;
br2_start[1] = 0;
br2_count[0] = Dr_len;
br2_count[1] = D2_len;
stat = nc_put_vara_schar(ncid, br2_id, br2_start, br2_count, br2);
check_err(stat,__LINE__,__FILE__);
}
{ /* store sr3 */
static size_t sr3_start[RANK_sr3];
static size_t sr3_count[RANK_sr3];
static short sr3[] = {-375, -380, -385, -350, -355, -360};
Dr_len = 2; /* number of records of sr3 data */
sr3_start[0] = 0;
sr3_start[1] = 0;
sr3_count[0] = Dr_len;
sr3_count[1] = D3_len;
stat = nc_put_vara_short(ncid, sr3_id, sr3_start, sr3_count, sr3);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f11 */
static float f11[] = {-2187};
stat = nc_put_var_float(ncid, f11_id, f11);
check_err(stat,__LINE__,__FILE__);
}
{ /* store d12 */
static double d12[] = {-3000., -3010.};
stat = nc_put_var_double(ncid, d12_id, d12);
check_err(stat,__LINE__,__FILE__);
}
{ /* store c13 */
static char c13[] = {"\tb\177"};
stat = nc_put_var_text(ncid, c13_id, c13);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s21 */
static short s21[] = {-375, -350};
stat = nc_put_var_short(ncid, s21_id, s21);
check_err(stat,__LINE__,__FILE__);
}
{ /* store i22 */
static int i22[] = {-24000, -24020, -23600, -23620};
stat = nc_put_var_int(ncid, i22_id, i22);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f23 */
static float f23[] = {-2187, -2196, -2205, -2106, -2115, -2124};
stat = nc_put_var_float(ncid, f23_id, f23);
check_err(stat,__LINE__,__FILE__);
}
{ /* store c31 */
static char c31[] = {"+- "};
stat = nc_put_var_text(ncid, c31_id, c31);
check_err(stat,__LINE__,__FILE__);
}
{ /* store b32 */
static signed char b32[] = {-24, -26, -20, -22, -16, -18};
stat = nc_put_var_schar(ncid, b32_id, b32);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s33 */
static short s33[] = {-375, -380, -385, -350, -355, -360, -325, -330, -335};
stat = nc_put_var_short(ncid, s33_id, s33);
check_err(stat,__LINE__,__FILE__);
}
{ /* store sr11 */
static size_t sr11_start[RANK_sr11];
static size_t sr11_count[RANK_sr11];
static short sr11[] = {2500, 2375};
Dr_len = 2; /* number of records of sr11 data */
sr11_start[0] = 0;
sr11_start[1] = 0;
sr11_start[2] = 0;
sr11_count[0] = Dr_len;
sr11_count[1] = D1_len;
sr11_count[2] = D1_len;
stat = nc_put_vara_short(ncid, sr11_id, sr11_start, sr11_count, sr11);
check_err(stat,__LINE__,__FILE__);
}
{ /* store ir12 */
static size_t ir12_start[RANK_ir12];
static size_t ir12_count[RANK_ir12];
static int ir12[] = {640000, 639980, 632000, 631980};
Dr_len = 2; /* number of records of ir12 data */
ir12_start[0] = 0;
ir12_start[1] = 0;
ir12_start[2] = 0;
ir12_count[0] = Dr_len;
ir12_count[1] = D1_len;
ir12_count[2] = D2_len;
stat = nc_put_vara_int(ncid, ir12_id, ir12_start, ir12_count, ir12);
check_err(stat,__LINE__,__FILE__);
}
{ /* store fr13 */
static size_t fr13_start[RANK_fr13];
static size_t fr13_count[RANK_fr13];
static float fr13[] = {26244, 26235, 26226, 25515, 25506, 25497};
Dr_len = 2; /* number of records of fr13 data */
fr13_start[0] = 0;
fr13_start[1] = 0;
fr13_start[2] = 0;
fr13_count[0] = Dr_len;
fr13_count[1] = D1_len;
fr13_count[2] = D3_len;
stat = nc_put_vara_float(ncid, fr13_id, fr13_start, fr13_count, fr13);
check_err(stat,__LINE__,__FILE__);
}
{ /* store cr21 */
static size_t cr21_start[RANK_cr21];
static size_t cr21_count[RANK_cr21];
static char cr21[] = {"@DHL"};
Dr_len = 2; /* number of records of cr21 data */
cr21_start[0] = 0;
cr21_start[1] = 0;
cr21_start[2] = 0;
cr21_count[0] = Dr_len;
cr21_count[1] = D2_len;
cr21_count[2] = D1_len;
stat = nc_put_vara_text(ncid, cr21_id, cr21_start, cr21_count, cr21);
check_err(stat,__LINE__,__FILE__);
}
{ /* store br22 */
static size_t br22_start[RANK_br22];
static size_t br22_count[RANK_br22];
static signed char br22[] = {64, 62, 68, 66, 56, 54, 60, 58};
Dr_len = 2; /* number of records of br22 data */
br22_start[0] = 0;
br22_start[1] = 0;
br22_start[2] = 0;
br22_count[0] = Dr_len;
br22_count[1] = D2_len;
br22_count[2] = D2_len;
stat = nc_put_vara_schar(ncid, br22_id, br22_start, br22_count, br22);
check_err(stat,__LINE__,__FILE__);
}
{ /* store sr23 */
static size_t sr23_start[RANK_sr23];
static size_t sr23_count[RANK_sr23];
static short sr23[] = {2500, 2495, 2490, 2525, 2520, 2515, 2375, 2370, 2365, 2400, 2395, 2390};
Dr_len = 2; /* number of records of sr23 data */
sr23_start[0] = 0;
sr23_start[1] = 0;
sr23_start[2] = 0;
sr23_count[0] = Dr_len;
sr23_count[1] = D2_len;
sr23_count[2] = D3_len;
stat = nc_put_vara_short(ncid, sr23_id, sr23_start, sr23_count, sr23);
check_err(stat,__LINE__,__FILE__);
}
{ /* store fr31 */
static size_t fr31_start[RANK_fr31];
static size_t fr31_count[RANK_fr31];
static float fr31[] = {26244, 26325, 26406, 25515, 25596, 25677};
Dr_len = 2; /* number of records of fr31 data */
fr31_start[0] = 0;
fr31_start[1] = 0;
fr31_start[2] = 0;
fr31_count[0] = Dr_len;
fr31_count[1] = D3_len;
fr31_count[2] = D1_len;
stat = nc_put_vara_float(ncid, fr31_id, fr31_start, fr31_count, fr31);
check_err(stat,__LINE__,__FILE__);
}
{ /* store dr32 */
static size_t dr32_start[RANK_dr32];
static size_t dr32_count[RANK_dr32];
static double dr32[] = {40000., 39990., 40100., 40090., 40200., 40190., 39000., 38990., 39100., 39090., 39200., 39190.};
Dr_len = 2; /* number of records of dr32 data */
dr32_start[0] = 0;
dr32_start[1] = 0;
dr32_start[2] = 0;
dr32_count[0] = Dr_len;
dr32_count[1] = D3_len;
dr32_count[2] = D2_len;
stat = nc_put_vara_double(ncid, dr32_id, dr32_start, dr32_count, dr32);
check_err(stat,__LINE__,__FILE__);
}
{ /* store cr33 */
static size_t cr33_start[RANK_cr33];
static size_t cr33_count[RANK_cr33];
static char cr33[] = {"1\000\000two3\000\0004\000\0005\000\000six"};
Dr_len = 2; /* number of records of cr33 data */
cr33_start[0] = 0;
cr33_start[1] = 0;
cr33_start[2] = 0;
cr33_count[0] = Dr_len;
cr33_count[1] = D3_len;
cr33_count[2] = D3_len;
stat = nc_put_vara_text(ncid, cr33_id, cr33_start, cr33_count, cr33);
check_err(stat,__LINE__,__FILE__);
}
{ /* store c111 */
static char c111[] = {"@"};
stat = nc_put_var_text(ncid, c111_id, c111);
check_err(stat,__LINE__,__FILE__);
}
{ /* store b112 */
static signed char b112[] = {64, 62};
stat = nc_put_var_schar(ncid, b112_id, b112);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s113 */
static short s113[] = {2500, 2495, 2490};
stat = nc_put_var_short(ncid, s113_id, s113);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f121 */
static float f121[] = {26244, 26325};
stat = nc_put_var_float(ncid, f121_id, f121);
check_err(stat,__LINE__,__FILE__);
}
{ /* store d122 */
static double d122[] = {40000., 39990., 40100., 40090.};
stat = nc_put_var_double(ncid, d122_id, d122);
check_err(stat,__LINE__,__FILE__);
}
{ /* store c123 */
static char c123[] = {"one2\000\000"};
stat = nc_put_var_text(ncid, c123_id, c123);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s131 */
static short s131[] = {2500, 2525, 2550};
stat = nc_put_var_short(ncid, s131_id, s131);
check_err(stat,__LINE__,__FILE__);
}
{ /* store i132 */
static int i132[] = {640000, 639980, 640400, 640380, 640800, 640780};
stat = nc_put_var_int(ncid, i132_id, i132);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f133 */
static float f133[] = {26244, 26235, 26226, 26325, 26316, 26307, 26406, 26397, 26388};
stat = nc_put_var_float(ncid, f133_id, f133);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f211 */
static float f211[] = {26244, 25515};
stat = nc_put_var_float(ncid, f211_id, f211);
check_err(stat,__LINE__,__FILE__);
}
{ /* store d212 */
static double d212[] = {40000., 39990., 39000., 38990.};
stat = nc_put_var_double(ncid, d212_id, d212);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s221 */
static short s221[] = {2500, 2525, 2375, 2400};
stat = nc_put_var_short(ncid, s221_id, s221);
check_err(stat,__LINE__,__FILE__);
}
{ /* store i222 */
static int i222[] = {640000, 639980, 640400, 640380, 632000, 631980, 632400, 632380};
stat = nc_put_var_int(ncid, i222_id, i222);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f223 */
static float f223[] = {26244, 26235, 26226, 26325, 26316, 26307, 25515, 25506, 25497, 25596, 25587, 25578};
stat = nc_put_var_float(ncid, f223_id, f223);
check_err(stat,__LINE__,__FILE__);
}
{ /* store c231 */
static char c231[] = {"@DHHLP"};
stat = nc_put_var_text(ncid, c231_id, c231);
check_err(stat,__LINE__,__FILE__);
}
{ /* store b232 */
static signed char b232[] = {64, 62, 68, 66, 72, 70, 56, 54, 60, 58, 64, 62};
stat = nc_put_var_schar(ncid, b232_id, b232);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s233 */
static short s233[] = {2500, 2495, 2490, 2525, 2520, 2515, 2550, 2545, 2540, 2375, 2370, 2365, 2400, 2395, 2390, 2425, 2420, 2415};
stat = nc_put_var_short(ncid, s233_id, s233);
check_err(stat,__LINE__,__FILE__);
}
{ /* store s311 */
static short s311[] = {2500, 2375, 2250};
stat = nc_put_var_short(ncid, s311_id, s311);
check_err(stat,__LINE__,__FILE__);
}
{ /* store i312 */
static int i312[] = {640000, 639980, 632000, 631980, 624000, 623980};
stat = nc_put_var_int(ncid, i312_id, i312);
check_err(stat,__LINE__,__FILE__);
}
{ /* store f313 */
static float f313[] = {26244, 26235, 26226, 25515, 25506, 25497, 24786, 24777, 24768};
stat = nc_put_var_float(ncid, f313_id, f313);
check_err(stat,__LINE__,__FILE__);
}
{ /* store var-name-dashes */
static double var_MINUS_name_MINUS_dashes = -1.;
stat = nc_put_var_double(ncid, var_MINUS_name_MINUS_dashes_id, &var_MINUS_name_MINUS_dashes);
check_err(stat,__LINE__,__FILE__);
}
{ /* store var.name.dots */
static double var_PERIOD_name_PERIOD_dots = -2.;
stat = nc_put_var_double(ncid, var_PERIOD_name_PERIOD_dots_id, &var_PERIOD_name_PERIOD_dots);
check_err(stat,__LINE__,__FILE__);
}
stat = nc_close(ncid);
check_err(stat,__LINE__,__FILE__);
return 0;
}
Reference in New Issue View Git Blame Copy Permalink