mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-01-30 16:10:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

uncommented test code

Browse Source
This commit is contained in:
Ed Hartnett 2018-08-28 10:09:39 -06:00
parent 5eb0d19227
commit 9fd74d2c83
1 changed files with 341 additions and 341 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

682
nc_test4/tst_dims2.c
View File

@ -20,404 +20,404 @@ int
main(int argc, char **argv) main(int argc, char **argv)
{ {
printf("\n*** Testing netcdf-4 dimensions some more.\n"); printf("\n*** Testing netcdf-4 dimensions some more.\n");
/* printf("*** Checking non-coordinate variable with same name as dimension..."); */ printf("*** Checking non-coordinate variable with same name as dimension...");
/* { */ {
/* #define CRAZY "crazy" */ #define CRAZY "crazy"
/* #define NUTS "nuts" */ #define NUTS "nuts"
/* #define NUM_CRAZY 3 */ #define NUM_CRAZY 3
/* #define NUM_NUTS 5 */ #define NUM_NUTS 5
/* int nuts_dimid, crazy_dimid, dimid_in; */ int nuts_dimid, crazy_dimid, dimid_in;
/* int varid, ncid; */ int varid, ncid;
/* nc_type xtype_in, xtype = NC_CHAR; */ nc_type xtype_in, xtype = NC_CHAR;
/* int ndims_in, nvars_in, natts_in, unlimdimid_in; */ int ndims_in, nvars_in, natts_in, unlimdimid_in;
/* char name_in[NC_MAX_NAME + 1]; */ char name_in[NC_MAX_NAME + 1];
/* /\* Create a file with 2 dims and one var. The var is named the */ /* Create a file with 2 dims and one var. The var is named the
/* * same as one of the dimensions, but uses the other dimension, */ * same as one of the dimensions, but uses the other dimension,
/* * and thus is not a netCDF coordinate variable. *\/ */ * and thus is not a netCDF coordinate variable. */
/* if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; */ if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* if (nc_def_dim(ncid, CRAZY, NUM_CRAZY, &crazy_dimid)) ERR; */ if (nc_def_dim(ncid, CRAZY, NUM_CRAZY, &crazy_dimid)) ERR;
/* if (nc_def_dim(ncid, NUTS, NUM_NUTS, &nuts_dimid)) ERR; */ if (nc_def_dim(ncid, NUTS, NUM_NUTS, &nuts_dimid)) ERR;
/* if (nc_def_var(ncid, CRAZY, xtype, NDIMS1, &nuts_dimid, &varid)) ERR; */ if (nc_def_var(ncid, CRAZY, xtype, NDIMS1, &nuts_dimid, &varid)) ERR;
/* /\* Check out the file. *\/ */ /* Check out the file. */
/* if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR; */ if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
/* if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != -1) ERR; */ if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != -1) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, &dimid_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, &dimid_in, &natts_in)) ERR;
/* if (strcmp(name_in, CRAZY) || xtype_in != xtype || ndims_in != NDIMS1 || */ if (strcmp(name_in, CRAZY) || xtype_in != xtype || ndims_in != NDIMS1 ||
/* natts_in != 0 || dimid_in != nuts_dimid) ERR; */ natts_in != 0 || dimid_in != nuts_dimid) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\* Reopen and check the file. *\/ */ /* Reopen and check the file. */
/* if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR; */ if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
/* if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != -1) ERR; */ if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != -1) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, &dimid_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, &dimid_in, &natts_in)) ERR;
/* if (strcmp(name_in, CRAZY) || xtype_in != xtype || ndims_in != NDIMS1 || */ if (strcmp(name_in, CRAZY) || xtype_in != xtype || ndims_in != NDIMS1 ||
/* natts_in != 0 || dimid_in != nuts_dimid) ERR; */ natts_in != 0 || dimid_in != nuts_dimid) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* } */ }
/* SUMMARIZE_ERR; */ SUMMARIZE_ERR;
/* printf("*** Checking 2D coordinate variable with user-provided code..."); */ printf("*** Checking 2D coordinate variable with user-provided code...");
/* { */ {
/* /\* This test is from user Dipl.-Ing. Christian Schlamkow, */ /* This test is from user Dipl.-Ing. Christian Schlamkow,
/* * University of Rostock, Coastal Engineering Group. Thanks */ * University of Rostock, Coastal Engineering Group. Thanks
/* * Christian! Next time I'm in Rostock I'll come by and buy you */ * Christian! Next time I'm in Rostock I'll come by and buy you
/* * a beer. ;-) *\/ */ * a beer. ;-) */
/* #define TL 15 */ #define TL 15
/* int ncid; */ int ncid;
/* int time_dim; */ int time_dim;
/* int tl_dim; */ int tl_dim;
/* int time_dimids[NDIMS2]; */ int time_dimids[NDIMS2];
/* int time_id; */ int time_id;
/* size_t time_index[NDIMS2]; */ size_t time_index[NDIMS2];
/* size_t time_count[NDIMS2]; */ size_t time_count[NDIMS2];
/* const char ttext[TL + 1]="20051224.150000"; */ const char ttext[TL + 1]="20051224.150000";
/* char ttext_in[TL + 1]; */ char ttext_in[TL + 1];
/* int ndims_in, nvars_in, natts_in, unlimdimid_in, dimids_in[NDIMS2]; */ int ndims_in, nvars_in, natts_in, unlimdimid_in, dimids_in[NDIMS2];
/* nc_type xtype_in; */ nc_type xtype_in;
/* char name_in[NC_MAX_NAME + 1]; */ char name_in[NC_MAX_NAME + 1];
/* int i; */ int i;
/* if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; */ if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* /\*create dimensions*\/ */ /*create dimensions*/
/* if (nc_def_dim(ncid, "time", NC_UNLIMITED, &time_dim)) ERR; */ if (nc_def_dim(ncid, "time", NC_UNLIMITED, &time_dim)) ERR;
/* if (nc_def_dim(ncid, "tl", TL, &tl_dim)) ERR; */ if (nc_def_dim(ncid, "tl", TL, &tl_dim)) ERR;
/* /\*create variables*\/ */ /*create variables*/
/* time_dimids[0]=time_dim; */ time_dimids[0]=time_dim;
/* time_dimids[1]=tl_dim; */ time_dimids[1]=tl_dim;
/* if (nc_def_var(ncid, "time", NC_CHAR, NDIMS2, time_dimids, &time_id)) ERR; */ if (nc_def_var(ncid, "time", NC_CHAR, NDIMS2, time_dimids, &time_id)) ERR;
/* /\*close dataset*\/ */ /*close dataset*/
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\*reopen dataset*\/ */ /*reopen dataset*/
/* if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
/* /\*get dimensions and variable ids*\/ */ /*get dimensions and variable ids*/
/* if (nc_inq_varid(ncid, "time", &time_id)) ERR; */ if (nc_inq_varid(ncid, "time", &time_id)) ERR;
/* /\*fill in data*\/ */ /*fill in data*/
/* time_index[0] = 0; */ time_index[0] = 0;
/* time_index[1] = 0; */ time_index[1] = 0;
/* time_count[0] = 1; */ time_count[0] = 1;
/* time_count[1] = TL; /\* Note we are not writing NULL char. *\/ */ time_count[1] = TL; /* Note we are not writing NULL char. */
/* if (nc_put_vara_text(ncid, time_id, time_index, time_count, ttext)) ERR; */ if (nc_put_vara_text(ncid, time_id, time_index, time_count, ttext)) ERR;
/* /\*close dataset*\/ */ /*close dataset*/
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\* Reopen and check everything. *\/ */ /* Reopen and check everything. */
/* if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR; */ if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
/* if (ndims_in != NDIMS2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR; */ if (ndims_in != NDIMS2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR;
/* if (strcmp(name_in, "time") || xtype_in != NC_CHAR || ndims_in != NDIMS2 || */ if (strcmp(name_in, "time") || xtype_in != NC_CHAR || ndims_in != NDIMS2 ||
/* natts_in != 0) ERR; */ natts_in != 0) ERR;
/* for (i = 0; i < NDIMS2; i++) */ for (i = 0; i < NDIMS2; i++)
/* if (time_dimids[i] != dimids_in[i]) ERR; */ if (time_dimids[i] != dimids_in[i]) ERR;
/* if (nc_get_vara_text(ncid, time_id, time_index, time_count, ttext_in)) ERR; */ if (nc_get_vara_text(ncid, time_id, time_index, time_count, ttext_in)) ERR;
/* ttext_in[TL] = 0; /\* Add a NULL so strcmp will work. *\/ */ ttext_in[TL] = 0; /* Add a NULL so strcmp will work. */
/* if (strcmp(ttext, ttext_in)) ERR; */ if (strcmp(ttext, ttext_in)) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* } */ }
/* SUMMARIZE_ERR; */ SUMMARIZE_ERR;
/* printf("*** Checking 2D coordinate variable with user-provided code some more..."); */ printf("*** Checking 2D coordinate variable with user-provided code some more...");
/* { */ {
/* /\* This test is from user Dipl.-Ing. Christian Schlamkow, */ /* This test is from user Dipl.-Ing. Christian Schlamkow,
/* * University of Rostock, Coastal Engineering Group. Thanks */ * University of Rostock, Coastal Engineering Group. Thanks
/* * Christian! Next time I'm in Rostock I'll come by and buy you */ * Christian! Next time I'm in Rostock I'll come by and buy you
/* * a beer. ;-) *\/ */ * a beer. ;-) */
/* #define TL 15 */ #define TL 15
/* #define NDIMS2 2 */ #define NDIMS2 2
/* #define NUM_TIMES 16 */ #define NUM_TIMES 16
/* int ncid; */ int ncid;
/* int time_dim; */ int time_dim;
/* int tl_dim; */ int tl_dim;
/* int time_dimids[NDIMS2]; */ int time_dimids[NDIMS2];
/* int time_id; */ int time_id;
/* size_t time_index[NDIMS2]; */ size_t time_index[NDIMS2];
/* size_t time_count[NDIMS2]; */ size_t time_count[NDIMS2];
/* const char ttext[TL + 1]="20051224.150000"; */ const char ttext[TL + 1]="20051224.150000";
/* char ttext_in[TL + 1]; */ char ttext_in[TL + 1];
/* int ndims_in, nvars_in, natts_in, unlimdimid_in, dimids_in[NDIMS2]; */ int ndims_in, nvars_in, natts_in, unlimdimid_in, dimids_in[NDIMS2];
/* nc_type xtype_in; */ nc_type xtype_in;
/* char name_in[NC_MAX_NAME + 1]; */ char name_in[NC_MAX_NAME + 1];
/* int i; */ int i;
/* if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; */ if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* /\*create dimensions*\/ */ /*create dimensions*/
/* if (nc_def_dim(ncid, "time", NC_UNLIMITED, &time_dim)) ERR; */ if (nc_def_dim(ncid, "time", NC_UNLIMITED, &time_dim)) ERR;
/* if (nc_def_dim(ncid, "tl", TL, &tl_dim)) ERR; */ if (nc_def_dim(ncid, "tl", TL, &tl_dim)) ERR;
/* /\*create variables*\/ */ /*create variables*/
/* time_dimids[0]=time_dim; */ time_dimids[0]=time_dim;
/* time_dimids[1]=tl_dim; */ time_dimids[1]=tl_dim;
/* if (nc_def_var(ncid, "time", NC_CHAR, NDIMS2, time_dimids, &time_id)) ERR; */ if (nc_def_var(ncid, "time", NC_CHAR, NDIMS2, time_dimids, &time_id)) ERR;
/* /\*close dataset*\/ */ /*close dataset*/
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\*reopen dataset*\/ */ /*reopen dataset*/
/* if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
/* /\*get dimensions and variable ids*\/ */ /*get dimensions and variable ids*/
/* if (nc_inq_varid(ncid, "time", &time_id)) ERR; */ if (nc_inq_varid(ncid, "time", &time_id)) ERR;
/* time_index[1] = 0; */ time_index[1] = 0;
/* time_count[0] = 1; */ time_count[0] = 1;
/* time_count[1] = TL; */ time_count[1] = TL;
/* for (time_index[0] = 0; time_index[0] < NUM_TIMES; time_index[0]++) */ for (time_index[0] = 0; time_index[0] < NUM_TIMES; time_index[0]++)
/* if(nc_put_vara_text(ncid, time_id, time_index, time_count, ttext)) ERR; */ if(nc_put_vara_text(ncid, time_id, time_index, time_count, ttext)) ERR;
/* /\*close dataset*\/ */ /*close dataset*/
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\* Reopen and check everything. *\/ */ /* Reopen and check everything. */
/* if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR; */ if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
/* if (ndims_in != NDIMS2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR; */ if (ndims_in != NDIMS2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR;
/* if (strcmp(name_in, "time") || xtype_in != NC_CHAR || ndims_in != NDIMS2 || */ if (strcmp(name_in, "time") || xtype_in != NC_CHAR || ndims_in != NDIMS2 ||
/* natts_in != 0) ERR; */ natts_in != 0) ERR;
/* for (i = 0; i < NDIMS2; i++) */ for (i = 0; i < NDIMS2; i++)
/* if (time_dimids[i] != dimids_in[i]) ERR; */ if (time_dimids[i] != dimids_in[i]) ERR;
/* time_index[0] = 0; */ time_index[0] = 0;
/* if (nc_get_vara_text(ncid, time_id, time_index, time_count, ttext_in)) ERR; */ if (nc_get_vara_text(ncid, time_id, time_index, time_count, ttext_in)) ERR;
/* ttext_in[TL] = 0; /\* Add a NULL so strcmp will work. *\/ */ ttext_in[TL] = 0; /* Add a NULL so strcmp will work. */
/* if (strcmp(ttext, ttext_in)) ERR; */ if (strcmp(ttext, ttext_in)) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* } */ }
/* SUMMARIZE_ERR; */ SUMMARIZE_ERR;
/* printf("*** Checking 2D coordinate variable..."); */ printf("*** Checking 2D coordinate variable...");
/* { */ {
/* #define TIME "time" */ #define TIME "time"
/* #define LEN "len" */ #define LEN "len"
/* #define NDIMS 2 */ #define NDIMS 2
/* int dimids[NDIMS], dimids_in[NDIMS]; */ int dimids[NDIMS], dimids_in[NDIMS];
/* int varid, ncid; */ int varid, ncid;
/* nc_type xtype_in, xtype = NC_CHAR; */ nc_type xtype_in, xtype = NC_CHAR;
/* int ndims_in, nvars_in, natts_in, unlimdimid_in; */ int ndims_in, nvars_in, natts_in, unlimdimid_in;
/* char name_in[NC_MAX_NAME + 1]; */ char name_in[NC_MAX_NAME + 1];
/* int i; */ int i;
/* /\* Create a file with a 2D time coordinate var, with one of the */ /* Create a file with a 2D time coordinate var, with one of the
/* * dimensions being the length of the time string. *\/ */ * dimensions being the length of the time string. */
/* if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; */ if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* if (nc_def_dim(ncid, TIME, NC_UNLIMITED, &dimids[0])) ERR; */ if (nc_def_dim(ncid, TIME, NC_UNLIMITED, &dimids[0])) ERR;
/* if (nc_def_dim(ncid, LEN, 20, &dimids[1])) ERR; */ if (nc_def_dim(ncid, LEN, 20, &dimids[1])) ERR;
/* if (nc_def_var(ncid, TIME, xtype, 2, dimids, &varid)) ERR; */ if (nc_def_var(ncid, TIME, xtype, 2, dimids, &varid)) ERR;
/* /\* Check out the file. *\/ */ /* Check out the file. */
/* if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR; */ if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
/* if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR; */ if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR;
/* if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS || */ if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS ||
/* natts_in != 0) ERR; */ natts_in != 0) ERR;
/* for (i = 0; i < NDIMS; i++) */ for (i = 0; i < NDIMS; i++)
/* if (dimids[i] != dimids_in[i]) ERR; */ if (dimids[i] != dimids_in[i]) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\* Recheck the file. *\/ */ /* Recheck the file. */
/* if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR; */ if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR;
/* if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS || */ if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS ||
/* natts_in != 0) ERR; */ natts_in != 0) ERR;
/* for (i = 0; i < NDIMS; i++) */ for (i = 0; i < NDIMS; i++)
/* if (dimids[i] != dimids_in[i]) ERR; */ if (dimids[i] != dimids_in[i]) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* } */ }
/* SUMMARIZE_ERR; */ SUMMARIZE_ERR;
/* printf("*** Checking multiple unlimited dimensions..."); */ printf("*** Checking multiple unlimited dimensions...");
/* { */ {
/* #define NDIMS 2 */ #define NDIMS 2
/* #define MAX_VALUES 3 */ #define MAX_VALUES 3
/* int dimids[NDIMS], varid, ncid; */ int dimids[NDIMS], varid, ncid;
/* double value[MAX_VALUES]; */ double value[MAX_VALUES];
/* size_t time_len, beam_len, start[NDIMS] = {0, 0}, count[NDIMS] = {1, MAX_VALUES}; */ size_t time_len, beam_len, start[NDIMS] = {0, 0}, count[NDIMS] = {1, MAX_VALUES};
/* int i; */ int i;
/* /\* Initialize some phony data. *\/ */ /* Initialize some phony data. */
/* for (i = 0; i < MAX_VALUES; i++) */ for (i = 0; i < MAX_VALUES; i++)
/* value[i] = MAX_VALUES - i; */ value[i] = MAX_VALUES - i;
/* /\* Create a file with 2 unlimited dims, and one var that uses */ /* Create a file with 2 unlimited dims, and one var that uses
/* * both of them. *\/ */ * both of them. */
/* if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; */ if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* if (nc_def_dim(ncid, "time", NC_UNLIMITED, &dimids[0])) ERR; */ if (nc_def_dim(ncid, "time", NC_UNLIMITED, &dimids[0])) ERR;
/* if (nc_def_dim(ncid, "beam", NC_UNLIMITED, &dimids[1])) ERR; */ if (nc_def_dim(ncid, "beam", NC_UNLIMITED, &dimids[1])) ERR;
/* if (nc_def_var(ncid, "depth", NC_DOUBLE, NDIMS, dimids, &varid)) ERR; */ if (nc_def_var(ncid, "depth", NC_DOUBLE, NDIMS, dimids, &varid)) ERR;
/* /\* Check the lengths of these dimensions. *\/ */ /* Check the lengths of these dimensions. */
/* if (nc_inq_dimlen(ncid, dimids[0], &time_len)) ERR; */ if (nc_inq_dimlen(ncid, dimids[0], &time_len)) ERR;
/* if (time_len) ERR; */ if (time_len) ERR;
/* if (nc_inq_dimlen(ncid, dimids[1], &beam_len)) ERR; */ if (nc_inq_dimlen(ncid, dimids[1], &beam_len)) ERR;
/* if (beam_len) ERR; */ if (beam_len) ERR;
/* /\* Write some data, check dim lengths. *\/ */ /* Write some data, check dim lengths. */
/* if (nc_put_vara_double(ncid, varid, start, count, value)) ERR; */ if (nc_put_vara_double(ncid, varid, start, count, value)) ERR;
/* if (nc_inq_dimlen(ncid, dimids[0], &time_len)) ERR; */ if (nc_inq_dimlen(ncid, dimids[0], &time_len)) ERR;
/* if (time_len != 1) ERR; */ if (time_len != 1) ERR;
/* if (nc_inq_dimlen(ncid, dimids[1], &beam_len)) ERR; */ if (nc_inq_dimlen(ncid, dimids[1], &beam_len)) ERR;
/* if (beam_len != MAX_VALUES) ERR; */ if (beam_len != MAX_VALUES) ERR;
/* /\* Add some more data, check dim lengths again. *\/ */ /* Add some more data, check dim lengths again. */
/* start[0] = 1; */ start[0] = 1;
/* if (nc_put_vara_double(ncid, varid, start, count, value)) ERR; */ if (nc_put_vara_double(ncid, varid, start, count, value)) ERR;
/* if (nc_inq_dimlen(ncid, dimids[0], &time_len)) ERR; */ if (nc_inq_dimlen(ncid, dimids[0], &time_len)) ERR;
/* if (time_len != 2) ERR; */ if (time_len != 2) ERR;
/* if (nc_inq_dimlen(ncid, dimids[1], &beam_len)) ERR; */ if (nc_inq_dimlen(ncid, dimids[1], &beam_len)) ERR;
/* if (beam_len != MAX_VALUES) ERR; */ if (beam_len != MAX_VALUES) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* } */ }
/* SUMMARIZE_ERR; */ SUMMARIZE_ERR;
/* printf("*** Checking multiple unlimited dimensions with more complex 2D test..."); */ printf("*** Checking multiple unlimited dimensions with more complex 2D test...");
/* { */ {
/* #define MAX(x,y) ((x)>(y)?(x):(y)) */ #define MAX(x,y) ((x)>(y)?(x):(y))
/* int dimids[2]; */ int dimids[2];
/* int varid, ncid, timeDimID, beamDimID; */ int varid, ncid, timeDimID, beamDimID;
/* int i, j; */ int i, j;
/* int value[2000]; */ int value[2000];
/* size_t time_recs, beam_recs; /\* count of records in each dimension *\/ */ size_t time_recs, beam_recs; /* count of records in each dimension */
/* size_t time_len, beam_len; /\* actual dimension lengths in each dimension *\/ */ size_t time_len, beam_len; /* actual dimension lengths in each dimension */
/* size_t start[] = {0, 0}; */ size_t start[] = {0, 0};
/* size_t count[] = {1, 1}; */ size_t count[] = {1, 1};
/* for (i = 0; i < 2000; i++) */ for (i = 0; i < 2000; i++)
/* value[i] = 2000 - i; */ value[i] = 2000 - i;
/* if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; */ if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* /\* Define 2 unlimited dimensions *\/ */ /* Define 2 unlimited dimensions */
/* if (nc_def_dim(ncid, "time", NC_UNLIMITED, &timeDimID)) ERR; */ if (nc_def_dim(ncid, "time", NC_UNLIMITED, &timeDimID)) ERR;
/* if (nc_def_dim(ncid, "beam", NC_UNLIMITED, &beamDimID)) ERR; */ if (nc_def_dim(ncid, "beam", NC_UNLIMITED, &beamDimID)) ERR;
/* dimids[0] = timeDimID; */ dimids[0] = timeDimID;
/* dimids[1] = beamDimID; */ dimids[1] = beamDimID;
/* if (nc_def_var(ncid, "depth", NC_DOUBLE, 2, dimids, &varid)) ERR; */ if (nc_def_var(ncid, "depth", NC_DOUBLE, 2, dimids, &varid)) ERR;
/* if (nc_enddef(ncid)) ERR; */ if (nc_enddef(ncid)) ERR;
/* time_recs = 0; */ time_recs = 0;
/* beam_recs = 0; */ beam_recs = 0;
/* for (j = 0; j < 100; j++) */ for (j = 0; j < 100; j++)
/* { */ {
/* if (j > 500) */ if (j > 500)
/* count[1] = j; */ count[1] = j;
/* else */ else
/* count[1] = 1000-j; */ count[1] = 1000-j;
/* if (nc_put_vara_int(ncid, varid, start, count, value)) ERR; */ if (nc_put_vara_int(ncid, varid, start, count, value)) ERR;
/* time_recs = MAX(time_recs, start[0] + count[0]); */ time_recs = MAX(time_recs, start[0] + count[0]);
/* beam_recs = MAX(beam_recs, start[1] + count[1]); */ beam_recs = MAX(beam_recs, start[1] + count[1]);
/* if (nc_inq_dimlen(ncid, timeDimID, &time_len)) ERR; */ if (nc_inq_dimlen(ncid, timeDimID, &time_len)) ERR;
/* if (time_len != time_recs) ERR; */ if (time_len != time_recs) ERR;
/* if (nc_inq_dimlen(ncid, beamDimID, &beam_len)) ERR; */ if (nc_inq_dimlen(ncid, beamDimID, &beam_len)) ERR;
/* if (beam_len != beam_recs) ERR; */ if (beam_len != beam_recs) ERR;
/* start[0]++; */ start[0]++;
/* } */ }
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\* Check the file. *\/ */ /* Check the file. */
/* if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* } */ }
/* SUMMARIZE_ERR; */ SUMMARIZE_ERR;
/* printf("*** Checking 2D coordinate variable some more..."); */ printf("*** Checking 2D coordinate variable some more...");
/* { */ {
/* #define TIME "time" */ #define TIME "time"
/* #define LEN "len" */ #define LEN "len"
/* #define NDIMS 2 */ #define NDIMS 2
/* #define NUM_RECS 15 */ #define NUM_RECS 15
/* #define TL 15 */ #define TL 15
/* int dimids[NDIMS], dimids_in[NDIMS]; */ int dimids[NDIMS], dimids_in[NDIMS];
/* int varid, ncid; */ int varid, ncid;
/* nc_type xtype_in, xtype = NC_CHAR; */ nc_type xtype_in, xtype = NC_CHAR;
/* int ndims_in, nvars_in, natts_in, unlimdimid_in; */ int ndims_in, nvars_in, natts_in, unlimdimid_in;
/* char name_in[NC_MAX_NAME + 1]; */ char name_in[NC_MAX_NAME + 1];
/* size_t index[NDIMS], count[NDIMS], len_in; */ size_t index[NDIMS], count[NDIMS], len_in;
/* const char ttext[TL + 1]="20051224.150000"; */ const char ttext[TL + 1]="20051224.150000";
/* int i; */ int i;
/* /\* Create a file with a 2D time coordinate var, with one of the */ /* Create a file with a 2D time coordinate var, with one of the
/* * dimensions being the length of the time string. *\/ */ * dimensions being the length of the time string. */
/* if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR; */ if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* if (nc_def_dim(ncid, TIME, NC_UNLIMITED, &dimids[0])) ERR; */ if (nc_def_dim(ncid, TIME, NC_UNLIMITED, &dimids[0])) ERR;
/* if (nc_def_dim(ncid, LEN, TL, &dimids[1])) ERR; */ if (nc_def_dim(ncid, LEN, TL, &dimids[1])) ERR;
/* if (nc_def_var(ncid, TIME, xtype, 2, dimids, &varid)) ERR; */ if (nc_def_var(ncid, TIME, xtype, 2, dimids, &varid)) ERR;
/* /\* Check out the file. *\/ */ /* Check out the file. */
/* if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR; */ if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
/* if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR; */ if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR;
/* if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS || */ if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS ||
/* natts_in != 0) ERR; */ natts_in != 0) ERR;
/* for (i = 0; i < NDIMS; i++) */ for (i = 0; i < NDIMS; i++)
/* if (dimids[i] != dimids_in[i]) ERR; */ if (dimids[i] != dimids_in[i]) ERR;
/* /\* Write some time values. *\/ */ /* Write some time values. */
/* index[0] = 0; */ index[0] = 0;
/* index[1] = 0; */ index[1] = 0;
/* count[0] = 1; */ count[0] = 1;
/* count[1] = TL; /\* Note we are not writing NULL char. *\/ */ count[1] = TL; /* Note we are not writing NULL char. */
/* if (nc_put_vara_text(ncid, varid, index, count, ttext)) ERR; */ if (nc_put_vara_text(ncid, varid, index, count, ttext)) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\* Reopen and check the file. *\/ */ /* Reopen and check the file. */
/* if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR; */ if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
/* if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR; */ if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR;
/* if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS || */ if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS ||
/* natts_in != 0) ERR; */ natts_in != 0) ERR;
/* for (i = 0; i < NDIMS; i++) */ for (i = 0; i < NDIMS; i++)
/* if (dimids[i] != dimids_in[i]) ERR; */ if (dimids[i] != dimids_in[i]) ERR;
/* if (nc_inq_dim(ncid, dimids[0], name_in, &len_in)) ERR; */ if (nc_inq_dim(ncid, dimids[0], name_in, &len_in)) ERR;
/* if (strcmp(name_in, TIME) || len_in != 1) ERR; */ if (strcmp(name_in, TIME) || len_in != 1) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* /\* Reopen and write some more time values. *\/ */ /* Reopen and write some more time values. */
/* if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR; */ if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
/* /\* Write some more time values. *\/ */ /* Write some more time values. */
/* index[1] = 0; */ index[1] = 0;
/* count[0] = 1; */ count[0] = 1;
/* count[1] = TL; /\* Note we are not writing NULL char. *\/ */ count[1] = TL; /* Note we are not writing NULL char. */
/* for (index[0] = 1; index[0] < NUM_RECS; index[0]++) */ for (index[0] = 1; index[0] < NUM_RECS; index[0]++)
/* if (nc_put_vara_text(ncid, varid, index, count, ttext)) ERR; */ if (nc_put_vara_text(ncid, varid, index, count, ttext)) ERR;
/* /\* Check things again. *\/ */ /* Check things again. */
/* if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR; */ if (nc_inq(ncid, &ndims_in, &nvars_in, &natts_in, &unlimdimid_in)) ERR;
/* if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR; */ if (ndims_in != 2 || nvars_in != 1 || natts_in != 0 || unlimdimid_in != 0) ERR;
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR; */ if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, dimids_in, &natts_in)) ERR;
/* if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS || */ if (strcmp(name_in, TIME) || xtype_in != xtype || ndims_in != NDIMS ||
/* natts_in != 0) ERR; */ natts_in != 0) ERR;
/* for (i = 0; i < NDIMS; i++) */ for (i = 0; i < NDIMS; i++)
/* if (dimids[i] != dimids_in[i]) ERR; */ if (dimids[i] != dimids_in[i]) ERR;
/* if (nc_inq_dim(ncid, dimids[0], name_in, &len_in)) ERR; */ if (nc_inq_dim(ncid, dimids[0], name_in, &len_in)) ERR;
/* if (strcmp(name_in, TIME) || len_in != NUM_RECS) ERR; */ if (strcmp(name_in, TIME) || len_in != NUM_RECS) ERR;
/* if (nc_close(ncid)) ERR; */ if (nc_close(ncid)) ERR;
/* } */ }
/* SUMMARIZE_ERR; */ SUMMARIZE_ERR;
printf("*** Checking many dimensions..."); printf("*** Checking many dimensions...");
{ {
#define NDIMS50 50 #define NDIMS50 50