mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-12-09 08:11:38 +08:00
1334 lines
40 KiB
C
1334 lines
40 KiB
C
#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_64.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_64.nc", NC_CLOBBER|NC_64BIT_OFFSET, &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\300."};
|
|
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;
|
|
}
|