/other/netcdf_write_matrix/src/nc_test/test_put.c

https://github.com/jbeezley/wrf-fire · C · 7354 lines · 6573 code · 423 blank · 358 comment · 1804 complexity · aac14ed06b320f51a19bc66dea284c63 MD5 · raw file 

    

  1. /* Do not edit this file. It is produced from the corresponding .m4 source */
    2. 

  2. /*********************************************************************
    3. 

  3.  *   Copyright 1996, UCAR/Unidata
    4. 

  4.  *   See netcdf/COPYRIGHT file for copying and redistribution conditions.
    5. 

  5.  *   $Id: test_put.m4,v 1.25 2005/03/08 03:04:19 ed Exp $
    6. 

  6.  *********************************************************************/
    7. 

  7. 

  8. 

  9. #include "tests.h"
    10. 

  10. 

  11. 

  12. /*
    13. 

  13.  *  ensure hash value within range for internal TYPE
    14. 

  14.  */
    15. 

  15. static
    16. 

  16. double
    17. 

  17. hash_text(
    18. 

  18.     const nc_type type,
    19. 

  19.     const int rank,
    20. 

  20.     const size_t *index,
    21. 

  21.     const nct_itype itype)
    22. 

  22. {
    23. 

  23.     const double min = text_min;
    24. 

  24.     const double max = text_max;
    25. 

  25. 

  26.     return MAX(min, MIN(max, hash4( type, rank, index, itype)));
    27. 

  27. }
    28. 

  28. 

  29. /*
    30. 

  30.  *  ensure hash value within range for internal TYPE
    31. 

  31.  */
    32. 

  32. static
    33. 

  33. double
    34. 

  34. hash_uchar(
    35. 

  35.     const nc_type type,
    36. 

  36.     const int rank,
    37. 

  37.     const size_t *index,
    38. 

  38.     const nct_itype itype)
    39. 

  39. {
    40. 

  40.     const double min = uchar_min;
    41. 

  41.     const double max = uchar_max;
    42. 

  42. 

  43.     return MAX(min, MIN(max, hash4( type, rank, index, itype)));
    44. 

  44. }
    45. 

  45. 

  46. /*
    47. 

  47.  *  ensure hash value within range for internal TYPE
    48. 

  48.  */
    49. 

  49. static
    50. 

  50. double
    51. 

  51. hash_schar(
    52. 

  52.     const nc_type type,
    53. 

  53.     const int rank,
    54. 

  54.     const size_t *index,
    55. 

  55.     const nct_itype itype)
    56. 

  56. {
    57. 

  57.     const double min = schar_min;
    58. 

  58.     const double max = schar_max;
    59. 

  59. 

  60.     return MAX(min, MIN(max, hash4( type, rank, index, itype)));
    61. 

  61. }
    62. 

  62. 

  63. /*
    64. 

  64.  *  ensure hash value within range for internal TYPE
    65. 

  65.  */
    66. 

  66. static
    67. 

  67. double
    68. 

  68. hash_short(
    69. 

  69.     const nc_type type,
    70. 

  70.     const int rank,
    71. 

  71.     const size_t *index,
    72. 

  72.     const nct_itype itype)
    73. 

  73. {
    74. 

  74.     const double min = short_min;
    75. 

  75.     const double max = short_max;
    76. 

  76. 

  77.     return MAX(min, MIN(max, hash4( type, rank, index, itype)));
    78. 

  78. }
    79. 

  79. 

  80. /*
    81. 

  81.  *  ensure hash value within range for internal TYPE
    82. 

  82.  */
    83. 

  83. static
    84. 

  84. double
    85. 

  85. hash_int(
    86. 

  86.     const nc_type type,
    87. 

  87.     const int rank,
    88. 

  88.     const size_t *index,
    89. 

  89.     const nct_itype itype)
    90. 

  90. {
    91. 

  91.     const double min = int_min;
    92. 

  92.     const double max = int_max;
    93. 

  93. 

  94.     return MAX(min, MIN(max, hash4( type, rank, index, itype)));
    95. 

  95. }
    96. 

  96. 

  97. /*
    98. 

  98.  *  ensure hash value within range for internal TYPE
    99. 

  99.  */
    100. 

  100. static
    101. 

  101. double
    102. 

  102. hash_long(
    103. 

  103.     const nc_type type,
    104. 

  104.     const int rank,
    105. 

  105.     const size_t *index,
    106. 

  106.     const nct_itype itype)
    107. 

  107. {
    108. 

  108.     const double min = long_min;
    109. 

  109.     const double max = long_max;
    110. 

  110. 

  111.     return MAX(min, MIN(max, hash4( type, rank, index, itype)));
    112. 

  112. }
    113. 

  113. 

  114. /*
    115. 

  115.  *  ensure hash value within range for internal TYPE
    116. 

  116.  */
    117. 

  117. static
    118. 

  118. double
    119. 

  119. hash_float(
    120. 

  120.     const nc_type type,
    121. 

  121.     const int rank,
    122. 

  122.     const size_t *index,
    123. 

  123.     const nct_itype itype)
    124. 

  124. {
    125. 

  125.     const double min = float_min;
    126. 

  126.     const double max = float_max;
    127. 

  127. 

  128.     return MAX(min, MIN(max, hash4( type, rank, index, itype)));
    129. 

  129. }
    130. 

  130. 

  131. /*
    132. 

  132.  *  ensure hash value within range for internal TYPE
    133. 

  133.  */
    134. 

  134. static
    135. 

  135. double
    136. 

  136. hash_double(
    137. 

  137.     const nc_type type,
    138. 

  138.     const int rank,
    139. 

  139.     const size_t *index,
    140. 

  140.     const nct_itype itype)
    141. 

  141. {
    142. 

  142.     const double min = double_min;
    143. 

  143.     const double max = double_max;
    144. 

  144. 

  145.     return MAX(min, MIN(max, hash4( type, rank, index, itype)));
    146. 

  146. }
    147. 

  147. 

  148. 

  149. 

  150. 

  151. /* 
    152. 

  152.  *  check all vars in file which are (text/numeric) compatible with TYPE
    153. 

  153.  */
    154. 

  154. static
    155. 

  155. void
    156. 

  156. check_vars_text(const char *filename)
    157. 

  157. {
    158. 

  158.     int  ncid;                  /* netCDF id */
    159. 

  159.     size_t index[MAX_RANK];
    160. 

  160.     int  err;           /* status */
    161. 

  161.     int  d;
    162. 

  162.     int  i;
    163. 

  163.     size_t  j;
    164. 

  164.     text value;
    165. 

  165.     nc_type datatype;
    166. 

  166.     int ndims;
    167. 

  167.     int dimids[MAX_RANK];
    168. 

  168.     double expect;
    169. 

  169.     char name[NC_MAX_NAME];
    170. 

  170.     size_t length;
    171. 

  171.     int canConvert;     /* Both text or both numeric */
    172. 

  172.     int nok = 0;      /* count of valid comparisons */
    173. 

  173. 

  174.     err = nc_open(filename, NC_NOWRITE, &ncid);
    175. 

  175.     IF (err)
    176. 

  176.         error("nc_open: %s", nc_strerror(err));
    177. 

  177. 

  178.     for (i = 0; i < NVARS; i++) {
    179. 

  179. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_TEXT == NCT_TEXT);
    180. 

  180. 	if (canConvert) {
    181. 

  181. 	    err = nc_inq_var(ncid, i, name, &datatype, &ndims, dimids, NULL);
    182. 

  182. 	    IF (err)
    183. 

  183. 		error("nc_inq_var: %s", nc_strerror(err));
    184. 

  184. 	    IF (strcmp(name, var_name[i]) != 0)
    185. 

  185. 		error("Unexpected var_name");
    186. 

  186. 	    IF (datatype != var_type[i])
    187. 

  187. 		error("Unexpected type");
    188. 

  188. 	    IF (ndims != var_rank[i])
    189. 

  189. 		error("Unexpected rank");
    190. 

  190. 	    for (j = 0; j < ndims; j++) {
    191. 

  191. 		err = nc_inq_dim(ncid, dimids[j], 0, &length);
    192. 

  192. 		IF (err)
    193. 

  193. 		    error("nc_inq_dim: %s", nc_strerror(err));
    194. 

  194. 		IF (length != var_shape[i][j])
    195. 

  195. 		    error("Unexpected shape");
    196. 

  196. 	    }
    197. 

  197. 	    for (j = 0; j < var_nels[i]; j++) {
    198. 

  198. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    199. 

  199. 		IF (err)
    200. 

  200. 		    error("error in toMixedBase 2");
    201. 

  201. 		expect = hash4( var_type[i], var_rank[i], index, NCT_TEXT);
    202. 

  202. 		err = nc_get_var1_text(ncid, i, index, &value);
    203. 

  203. 		if (inRange3(expect,datatype,NCT_TEXT)) {
    204. 

  204.                     if (expect >= text_min && expect <= text_max) {
    205. 

  205. 			IF (err) {
    206. 

  206. 			    error("nc_get_var1_text: %s", nc_strerror(err));
    207. 

  207. 			} else {
    208. 

  208.                             IF (!equal(value,expect,var_type[i],NCT_TEXT)) {
    209. 

  209. 				error("Var value read not that expected");
    210. 

  210. 				if (verbose) {
    211. 

  211. 				    error("\n");
    212. 

  212. 				    error("varid: %d, ", i);
    213. 

  213. 				    error("var_name: %s, ", var_name[i]);
    214. 

  214. 				    error("index:");
    215. 

  215. 				    for (d = 0; d < var_rank[i]; d++)
    216. 

  216. 					error(" %d", index[d]);
    217. 

  217. 				    error(", expect: %g, ", expect);
    218. 

  218. 				    error("got: %g", (double) value);
    219. 

  219. 				}
    220. 

  220. 			    } else {
    221. 

  221. 				++nok;
    222. 

  222. 			    }
    223. 

  223. 			}
    224. 

  224. 		    }
    225. 

  225. 		}
    226. 

  226. 	    }
    227. 

  227. 	}
    228. 

  228.     }
    229. 

  229.     err = nc_close (ncid);
    230. 

  230.     IF (err)
    231. 

  231.         error("nc_close: %s", nc_strerror(err));
    232. 

  232.     print_nok(nok);
    233. 

  233. }
    234. 

  234. 

  235. /* 
    236. 

  236.  *  check all vars in file which are (text/numeric) compatible with TYPE
    237. 

  237.  */
    238. 

  238. static
    239. 

  239. void
    240. 

  240. check_vars_uchar(const char *filename)
    241. 

  241. {
    242. 

  242.     int  ncid;                  /* netCDF id */
    243. 

  243.     size_t index[MAX_RANK];
    244. 

  244.     int  err;           /* status */
    245. 

  245.     int  d;
    246. 

  246.     int  i;
    247. 

  247.     size_t  j;
    248. 

  248.     uchar value;
    249. 

  249.     nc_type datatype;
    250. 

  250.     int ndims;
    251. 

  251.     int dimids[MAX_RANK];
    252. 

  252.     double expect;
    253. 

  253.     char name[NC_MAX_NAME];
    254. 

  254.     size_t length;
    255. 

  255.     int canConvert;     /* Both text or both numeric */
    256. 

  256.     int nok = 0;      /* count of valid comparisons */
    257. 

  257. 

  258.     err = nc_open(filename, NC_NOWRITE, &ncid);
    259. 

  259.     IF (err)
    260. 

  260.         error("nc_open: %s", nc_strerror(err));
    261. 

  261. 

  262.     for (i = 0; i < NVARS; i++) {
    263. 

  263. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_UCHAR == NCT_TEXT);
    264. 

  264. 	if (canConvert) {
    265. 

  265. 	    err = nc_inq_var(ncid, i, name, &datatype, &ndims, dimids, NULL);
    266. 

  266. 	    IF (err)
    267. 

  267. 		error("nc_inq_var: %s", nc_strerror(err));
    268. 

  268. 	    IF (strcmp(name, var_name[i]) != 0)
    269. 

  269. 		error("Unexpected var_name");
    270. 

  270. 	    IF (datatype != var_type[i])
    271. 

  271. 		error("Unexpected type");
    272. 

  272. 	    IF (ndims != var_rank[i])
    273. 

  273. 		error("Unexpected rank");
    274. 

  274. 	    for (j = 0; j < ndims; j++) {
    275. 

  275. 		err = nc_inq_dim(ncid, dimids[j], 0, &length);
    276. 

  276. 		IF (err)
    277. 

  277. 		    error("nc_inq_dim: %s", nc_strerror(err));
    278. 

  278. 		IF (length != var_shape[i][j])
    279. 

  279. 		    error("Unexpected shape");
    280. 

  280. 	    }
    281. 

  281. 	    for (j = 0; j < var_nels[i]; j++) {
    282. 

  282. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    283. 

  283. 		IF (err)
    284. 

  284. 		    error("error in toMixedBase 2");
    285. 

  285. 		expect = hash4( var_type[i], var_rank[i], index, NCT_UCHAR);
    286. 

  286. 		err = nc_get_var1_uchar(ncid, i, index, &value);
    287. 

  287. 		if (inRange3(expect,datatype,NCT_UCHAR)) {
    288. 

  288.                     if (expect >= uchar_min && expect <= uchar_max) {
    289. 

  289. 			IF (err) {
    290. 

  290. 			    error("nc_get_var1_uchar: %s", nc_strerror(err));
    291. 

  291. 			} else {
    292. 

  292.                             IF (!equal(value,expect,var_type[i],NCT_UCHAR)) {
    293. 

  293. 				error("Var value read not that expected");
    294. 

  294. 				if (verbose) {
    295. 

  295. 				    error("\n");
    296. 

  296. 				    error("varid: %d, ", i);
    297. 

  297. 				    error("var_name: %s, ", var_name[i]);
    298. 

  298. 				    error("index:");
    299. 

  299. 				    for (d = 0; d < var_rank[i]; d++)
    300. 

  300. 					error(" %d", index[d]);
    301. 

  301. 				    error(", expect: %g, ", expect);
    302. 

  302. 				    error("got: %g", (double) value);
    303. 

  303. 				}
    304. 

  304. 			    } else {
    305. 

  305. 				++nok;
    306. 

  306. 			    }
    307. 

  307. 			}
    308. 

  308. 		    }
    309. 

  309. 		}
    310. 

  310. 	    }
    311. 

  311. 	}
    312. 

  312.     }
    313. 

  313.     err = nc_close (ncid);
    314. 

  314.     IF (err)
    315. 

  315.         error("nc_close: %s", nc_strerror(err));
    316. 

  316.     print_nok(nok);
    317. 

  317. }
    318. 

  318. 

  319. /* 
    320. 

  320.  *  check all vars in file which are (text/numeric) compatible with TYPE
    321. 

  321.  */
    322. 

  322. static
    323. 

  323. void
    324. 

  324. check_vars_schar(const char *filename)
    325. 

  325. {
    326. 

  326.     int  ncid;                  /* netCDF id */
    327. 

  327.     size_t index[MAX_RANK];
    328. 

  328.     int  err;           /* status */
    329. 

  329.     int  d;
    330. 

  330.     int  i;
    331. 

  331.     size_t  j;
    332. 

  332.     schar value;
    333. 

  333.     nc_type datatype;
    334. 

  334.     int ndims;
    335. 

  335.     int dimids[MAX_RANK];
    336. 

  336.     double expect;
    337. 

  337.     char name[NC_MAX_NAME];
    338. 

  338.     size_t length;
    339. 

  339.     int canConvert;     /* Both text or both numeric */
    340. 

  340.     int nok = 0;      /* count of valid comparisons */
    341. 

  341. 

  342.     err = nc_open(filename, NC_NOWRITE, &ncid);
    343. 

  343.     IF (err)
    344. 

  344.         error("nc_open: %s", nc_strerror(err));
    345. 

  345. 

  346.     for (i = 0; i < NVARS; i++) {
    347. 

  347. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SCHAR == NCT_TEXT);
    348. 

  348. 	if (canConvert) {
    349. 

  349. 	    err = nc_inq_var(ncid, i, name, &datatype, &ndims, dimids, NULL);
    350. 

  350. 	    IF (err)
    351. 

  351. 		error("nc_inq_var: %s", nc_strerror(err));
    352. 

  352. 	    IF (strcmp(name, var_name[i]) != 0)
    353. 

  353. 		error("Unexpected var_name");
    354. 

  354. 	    IF (datatype != var_type[i])
    355. 

  355. 		error("Unexpected type");
    356. 

  356. 	    IF (ndims != var_rank[i])
    357. 

  357. 		error("Unexpected rank");
    358. 

  358. 	    for (j = 0; j < ndims; j++) {
    359. 

  359. 		err = nc_inq_dim(ncid, dimids[j], 0, &length);
    360. 

  360. 		IF (err)
    361. 

  361. 		    error("nc_inq_dim: %s", nc_strerror(err));
    362. 

  362. 		IF (length != var_shape[i][j])
    363. 

  363. 		    error("Unexpected shape");
    364. 

  364. 	    }
    365. 

  365. 	    for (j = 0; j < var_nels[i]; j++) {
    366. 

  366. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    367. 

  367. 		IF (err)
    368. 

  368. 		    error("error in toMixedBase 2");
    369. 

  369. 		expect = hash4( var_type[i], var_rank[i], index, NCT_SCHAR);
    370. 

  370. 		err = nc_get_var1_schar(ncid, i, index, &value);
    371. 

  371. 		if (inRange3(expect,datatype,NCT_SCHAR)) {
    372. 

  372.                     if (expect >= schar_min && expect <= schar_max) {
    373. 

  373. 			IF (err) {
    374. 

  374. 			    error("nc_get_var1_schar: %s", nc_strerror(err));
    375. 

  375. 			} else {
    376. 

  376.                             IF (!equal(value,expect,var_type[i],NCT_SCHAR)) {
    377. 

  377. 				error("Var value read not that expected");
    378. 

  378. 				if (verbose) {
    379. 

  379. 				    error("\n");
    380. 

  380. 				    error("varid: %d, ", i);
    381. 

  381. 				    error("var_name: %s, ", var_name[i]);
    382. 

  382. 				    error("index:");
    383. 

  383. 				    for (d = 0; d < var_rank[i]; d++)
    384. 

  384. 					error(" %d", index[d]);
    385. 

  385. 				    error(", expect: %g, ", expect);
    386. 

  386. 				    error("got: %g", (double) value);
    387. 

  387. 				}
    388. 

  388. 			    } else {
    389. 

  389. 				++nok;
    390. 

  390. 			    }
    391. 

  391. 			}
    392. 

  392. 		    }
    393. 

  393. 		}
    394. 

  394. 	    }
    395. 

  395. 	}
    396. 

  396.     }
    397. 

  397.     err = nc_close (ncid);
    398. 

  398.     IF (err)
    399. 

  399.         error("nc_close: %s", nc_strerror(err));
    400. 

  400.     print_nok(nok);
    401. 

  401. }
    402. 

  402. 

  403. /* 
    404. 

  404.  *  check all vars in file which are (text/numeric) compatible with TYPE
    405. 

  405.  */
    406. 

  406. static
    407. 

  407. void
    408. 

  408. check_vars_short(const char *filename)
    409. 

  409. {
    410. 

  410.     int  ncid;                  /* netCDF id */
    411. 

  411.     size_t index[MAX_RANK];
    412. 

  412.     int  err;           /* status */
    413. 

  413.     int  d;
    414. 

  414.     int  i;
    415. 

  415.     size_t  j;
    416. 

  416.     short value;
    417. 

  417.     nc_type datatype;
    418. 

  418.     int ndims;
    419. 

  419.     int dimids[MAX_RANK];
    420. 

  420.     double expect;
    421. 

  421.     char name[NC_MAX_NAME];
    422. 

  422.     size_t length;
    423. 

  423.     int canConvert;     /* Both text or both numeric */
    424. 

  424.     int nok = 0;      /* count of valid comparisons */
    425. 

  425. 

  426.     err = nc_open(filename, NC_NOWRITE, &ncid);
    427. 

  427.     IF (err)
    428. 

  428.         error("nc_open: %s", nc_strerror(err));
    429. 

  429. 

  430.     for (i = 0; i < NVARS; i++) {
    431. 

  431. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SHORT == NCT_TEXT);
    432. 

  432. 	if (canConvert) {
    433. 

  433. 	    err = nc_inq_var(ncid, i, name, &datatype, &ndims, dimids, NULL);
    434. 

  434. 	    IF (err)
    435. 

  435. 		error("nc_inq_var: %s", nc_strerror(err));
    436. 

  436. 	    IF (strcmp(name, var_name[i]) != 0)
    437. 

  437. 		error("Unexpected var_name");
    438. 

  438. 	    IF (datatype != var_type[i])
    439. 

  439. 		error("Unexpected type");
    440. 

  440. 	    IF (ndims != var_rank[i])
    441. 

  441. 		error("Unexpected rank");
    442. 

  442. 	    for (j = 0; j < ndims; j++) {
    443. 

  443. 		err = nc_inq_dim(ncid, dimids[j], 0, &length);
    444. 

  444. 		IF (err)
    445. 

  445. 		    error("nc_inq_dim: %s", nc_strerror(err));
    446. 

  446. 		IF (length != var_shape[i][j])
    447. 

  447. 		    error("Unexpected shape");
    448. 

  448. 	    }
    449. 

  449. 	    for (j = 0; j < var_nels[i]; j++) {
    450. 

  450. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    451. 

  451. 		IF (err)
    452. 

  452. 		    error("error in toMixedBase 2");
    453. 

  453. 		expect = hash4( var_type[i], var_rank[i], index, NCT_SHORT);
    454. 

  454. 		err = nc_get_var1_short(ncid, i, index, &value);
    455. 

  455. 		if (inRange3(expect,datatype,NCT_SHORT)) {
    456. 

  456.                     if (expect >= short_min && expect <= short_max) {
    457. 

  457. 			IF (err) {
    458. 

  458. 			    error("nc_get_var1_short: %s", nc_strerror(err));
    459. 

  459. 			} else {
    460. 

  460.                             IF (!equal(value,expect,var_type[i],NCT_SHORT)) {
    461. 

  461. 				error("Var value read not that expected");
    462. 

  462. 				if (verbose) {
    463. 

  463. 				    error("\n");
    464. 

  464. 				    error("varid: %d, ", i);
    465. 

  465. 				    error("var_name: %s, ", var_name[i]);
    466. 

  466. 				    error("index:");
    467. 

  467. 				    for (d = 0; d < var_rank[i]; d++)
    468. 

  468. 					error(" %d", index[d]);
    469. 

  469. 				    error(", expect: %g, ", expect);
    470. 

  470. 				    error("got: %g", (double) value);
    471. 

  471. 				}
    472. 

  472. 			    } else {
    473. 

  473. 				++nok;
    474. 

  474. 			    }
    475. 

  475. 			}
    476. 

  476. 		    }
    477. 

  477. 		}
    478. 

  478. 	    }
    479. 

  479. 	}
    480. 

  480.     }
    481. 

  481.     err = nc_close (ncid);
    482. 

  482.     IF (err)
    483. 

  483.         error("nc_close: %s", nc_strerror(err));
    484. 

  484.     print_nok(nok);
    485. 

  485. }
    486. 

  486. 

  487. /* 
    488. 

  488.  *  check all vars in file which are (text/numeric) compatible with TYPE
    489. 

  489.  */
    490. 

  490. static
    491. 

  491. void
    492. 

  492. check_vars_int(const char *filename)
    493. 

  493. {
    494. 

  494.     int  ncid;                  /* netCDF id */
    495. 

  495.     size_t index[MAX_RANK];
    496. 

  496.     int  err;           /* status */
    497. 

  497.     int  d;
    498. 

  498.     int  i;
    499. 

  499.     size_t  j;
    500. 

  500.     int value;
    501. 

  501.     nc_type datatype;
    502. 

  502.     int ndims;
    503. 

  503.     int dimids[MAX_RANK];
    504. 

  504.     double expect;
    505. 

  505.     char name[NC_MAX_NAME];
    506. 

  506.     size_t length;
    507. 

  507.     int canConvert;     /* Both text or both numeric */
    508. 

  508.     int nok = 0;      /* count of valid comparisons */
    509. 

  509. 

  510.     err = nc_open(filename, NC_NOWRITE, &ncid);
    511. 

  511.     IF (err)
    512. 

  512.         error("nc_open: %s", nc_strerror(err));
    513. 

  513. 

  514.     for (i = 0; i < NVARS; i++) {
    515. 

  515. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_INT == NCT_TEXT);
    516. 

  516. 	if (canConvert) {
    517. 

  517. 	    err = nc_inq_var(ncid, i, name, &datatype, &ndims, dimids, NULL);
    518. 

  518. 	    IF (err)
    519. 

  519. 		error("nc_inq_var: %s", nc_strerror(err));
    520. 

  520. 	    IF (strcmp(name, var_name[i]) != 0)
    521. 

  521. 		error("Unexpected var_name");
    522. 

  522. 	    IF (datatype != var_type[i])
    523. 

  523. 		error("Unexpected type");
    524. 

  524. 	    IF (ndims != var_rank[i])
    525. 

  525. 		error("Unexpected rank");
    526. 

  526. 	    for (j = 0; j < ndims; j++) {
    527. 

  527. 		err = nc_inq_dim(ncid, dimids[j], 0, &length);
    528. 

  528. 		IF (err)
    529. 

  529. 		    error("nc_inq_dim: %s", nc_strerror(err));
    530. 

  530. 		IF (length != var_shape[i][j])
    531. 

  531. 		    error("Unexpected shape");
    532. 

  532. 	    }
    533. 

  533. 	    for (j = 0; j < var_nels[i]; j++) {
    534. 

  534. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    535. 

  535. 		IF (err)
    536. 

  536. 		    error("error in toMixedBase 2");
    537. 

  537. 		expect = hash4( var_type[i], var_rank[i], index, NCT_INT);
    538. 

  538. 		err = nc_get_var1_int(ncid, i, index, &value);
    539. 

  539. 		if (inRange3(expect,datatype,NCT_INT)) {
    540. 

  540.                     if (expect >= int_min && expect <= int_max) {
    541. 

  541. 			IF (err) {
    542. 

  542. 			    error("nc_get_var1_int: %s", nc_strerror(err));
    543. 

  543. 			} else {
    544. 

  544.                             IF (!equal(value,expect,var_type[i],NCT_INT)) {
    545. 

  545. 				error("Var value read not that expected");
    546. 

  546. 				if (verbose) {
    547. 

  547. 				    error("\n");
    548. 

  548. 				    error("varid: %d, ", i);
    549. 

  549. 				    error("var_name: %s, ", var_name[i]);
    550. 

  550. 				    error("index:");
    551. 

  551. 				    for (d = 0; d < var_rank[i]; d++)
    552. 

  552. 					error(" %d", index[d]);
    553. 

  553. 				    error(", expect: %g, ", expect);
    554. 

  554. 				    error("got: %g", (double) value);
    555. 

  555. 				}
    556. 

  556. 			    } else {
    557. 

  557. 				++nok;
    558. 

  558. 			    }
    559. 

  559. 			}
    560. 

  560. 		    }
    561. 

  561. 		}
    562. 

  562. 	    }
    563. 

  563. 	}
    564. 

  564.     }
    565. 

  565.     err = nc_close (ncid);
    566. 

  566.     IF (err)
    567. 

  567.         error("nc_close: %s", nc_strerror(err));
    568. 

  568.     print_nok(nok);
    569. 

  569. }
    570. 

  570. 

  571. /* 
    572. 

  572.  *  check all vars in file which are (text/numeric) compatible with TYPE
    573. 

  573.  */
    574. 

  574. static
    575. 

  575. void
    576. 

  576. check_vars_long(const char *filename)
    577. 

  577. {
    578. 

  578.     int  ncid;                  /* netCDF id */
    579. 

  579.     size_t index[MAX_RANK];
    580. 

  580.     int  err;           /* status */
    581. 

  581.     int  d;
    582. 

  582.     int  i;
    583. 

  583.     size_t  j;
    584. 

  584.     long value;
    585. 

  585.     nc_type datatype;
    586. 

  586.     int ndims;
    587. 

  587.     int dimids[MAX_RANK];
    588. 

  588.     double expect;
    589. 

  589.     char name[NC_MAX_NAME];
    590. 

  590.     size_t length;
    591. 

  591.     int canConvert;     /* Both text or both numeric */
    592. 

  592.     int nok = 0;      /* count of valid comparisons */
    593. 

  593. 

  594.     err = nc_open(filename, NC_NOWRITE, &ncid);
    595. 

  595.     IF (err)
    596. 

  596.         error("nc_open: %s", nc_strerror(err));
    597. 

  597. 

  598.     for (i = 0; i < NVARS; i++) {
    599. 

  599. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_LONG == NCT_TEXT);
    600. 

  600. 	if (canConvert) {
    601. 

  601. 	    err = nc_inq_var(ncid, i, name, &datatype, &ndims, dimids, NULL);
    602. 

  602. 	    IF (err)
    603. 

  603. 		error("nc_inq_var: %s", nc_strerror(err));
    604. 

  604. 	    IF (strcmp(name, var_name[i]) != 0)
    605. 

  605. 		error("Unexpected var_name");
    606. 

  606. 	    IF (datatype != var_type[i])
    607. 

  607. 		error("Unexpected type");
    608. 

  608. 	    IF (ndims != var_rank[i])
    609. 

  609. 		error("Unexpected rank");
    610. 

  610. 	    for (j = 0; j < ndims; j++) {
    611. 

  611. 		err = nc_inq_dim(ncid, dimids[j], 0, &length);
    612. 

  612. 		IF (err)
    613. 

  613. 		    error("nc_inq_dim: %s", nc_strerror(err));
    614. 

  614. 		IF (length != var_shape[i][j])
    615. 

  615. 		    error("Unexpected shape");
    616. 

  616. 	    }
    617. 

  617. 	    for (j = 0; j < var_nels[i]; j++) {
    618. 

  618. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    619. 

  619. 		IF (err)
    620. 

  620. 		    error("error in toMixedBase 2");
    621. 

  621. 		expect = hash4( var_type[i], var_rank[i], index, NCT_LONG);
    622. 

  622. 		err = nc_get_var1_long(ncid, i, index, &value);
    623. 

  623. 		if (inRange3(expect,datatype,NCT_LONG)) {
    624. 

  624.                     if (expect >= long_min && expect <= long_max) {
    625. 

  625. 			IF (err) {
    626. 

  626. 			    error("nc_get_var1_long: %s", nc_strerror(err));
    627. 

  627. 			} else {
    628. 

  628.                             IF (!equal(value,expect,var_type[i],NCT_LONG)) {
    629. 

  629. 				error("Var value read not that expected");
    630. 

  630. 				if (verbose) {
    631. 

  631. 				    error("\n");
    632. 

  632. 				    error("varid: %d, ", i);
    633. 

  633. 				    error("var_name: %s, ", var_name[i]);
    634. 

  634. 				    error("index:");
    635. 

  635. 				    for (d = 0; d < var_rank[i]; d++)
    636. 

  636. 					error(" %d", index[d]);
    637. 

  637. 				    error(", expect: %g, ", expect);
    638. 

  638. 				    error("got: %g", (double) value);
    639. 

  639. 				}
    640. 

  640. 			    } else {
    641. 

  641. 				++nok;
    642. 

  642. 			    }
    643. 

  643. 			}
    644. 

  644. 		    }
    645. 

  645. 		}
    646. 

  646. 	    }
    647. 

  647. 	}
    648. 

  648.     }
    649. 

  649.     err = nc_close (ncid);
    650. 

  650.     IF (err)
    651. 

  651.         error("nc_close: %s", nc_strerror(err));
    652. 

  652.     print_nok(nok);
    653. 

  653. }
    654. 

  654. 

  655. /* 
    656. 

  656.  *  check all vars in file which are (text/numeric) compatible with TYPE
    657. 

  657.  */
    658. 

  658. static
    659. 

  659. void
    660. 

  660. check_vars_float(const char *filename)
    661. 

  661. {
    662. 

  662.     int  ncid;                  /* netCDF id */
    663. 

  663.     size_t index[MAX_RANK];
    664. 

  664.     int  err;           /* status */
    665. 

  665.     int  d;
    666. 

  666.     int  i;
    667. 

  667.     size_t  j;
    668. 

  668.     float value;
    669. 

  669.     nc_type datatype;
    670. 

  670.     int ndims;
    671. 

  671.     int dimids[MAX_RANK];
    672. 

  672.     double expect;
    673. 

  673.     char name[NC_MAX_NAME];
    674. 

  674.     size_t length;
    675. 

  675.     int canConvert;     /* Both text or both numeric */
    676. 

  676.     int nok = 0;      /* count of valid comparisons */
    677. 

  677. 

  678.     err = nc_open(filename, NC_NOWRITE, &ncid);
    679. 

  679.     IF (err)
    680. 

  680.         error("nc_open: %s", nc_strerror(err));
    681. 

  681. 

  682.     for (i = 0; i < NVARS; i++) {
    683. 

  683. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_FLOAT == NCT_TEXT);
    684. 

  684. 	if (canConvert) {
    685. 

  685. 	    err = nc_inq_var(ncid, i, name, &datatype, &ndims, dimids, NULL);
    686. 

  686. 	    IF (err)
    687. 

  687. 		error("nc_inq_var: %s", nc_strerror(err));
    688. 

  688. 	    IF (strcmp(name, var_name[i]) != 0)
    689. 

  689. 		error("Unexpected var_name");
    690. 

  690. 	    IF (datatype != var_type[i])
    691. 

  691. 		error("Unexpected type");
    692. 

  692. 	    IF (ndims != var_rank[i])
    693. 

  693. 		error("Unexpected rank");
    694. 

  694. 	    for (j = 0; j < ndims; j++) {
    695. 

  695. 		err = nc_inq_dim(ncid, dimids[j], 0, &length);
    696. 

  696. 		IF (err)
    697. 

  697. 		    error("nc_inq_dim: %s", nc_strerror(err));
    698. 

  698. 		IF (length != var_shape[i][j])
    699. 

  699. 		    error("Unexpected shape");
    700. 

  700. 	    }
    701. 

  701. 	    for (j = 0; j < var_nels[i]; j++) {
    702. 

  702. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    703. 

  703. 		IF (err)
    704. 

  704. 		    error("error in toMixedBase 2");
    705. 

  705. 		expect = hash4( var_type[i], var_rank[i], index, NCT_FLOAT);
    706. 

  706. 		err = nc_get_var1_float(ncid, i, index, &value);
    707. 

  707. 		if (inRange3(expect,datatype,NCT_FLOAT)) {
    708. 

  708.                     if (expect >= float_min && expect <= float_max) {
    709. 

  709. 			IF (err) {
    710. 

  710. 			    error("nc_get_var1_float: %s", nc_strerror(err));
    711. 

  711. 			} else {
    712. 

  712.                             IF (!equal(value,expect,var_type[i],NCT_FLOAT)) {
    713. 

  713. 				error("Var value read not that expected");
    714. 

  714. 				if (verbose) {
    715. 

  715. 				    error("\n");
    716. 

  716. 				    error("varid: %d, ", i);
    717. 

  717. 				    error("var_name: %s, ", var_name[i]);
    718. 

  718. 				    error("index:");
    719. 

  719. 				    for (d = 0; d < var_rank[i]; d++)
    720. 

  720. 					error(" %d", index[d]);
    721. 

  721. 				    error(", expect: %g, ", expect);
    722. 

  722. 				    error("got: %g", (double) value);
    723. 

  723. 				}
    724. 

  724. 			    } else {
    725. 

  725. 				++nok;
    726. 

  726. 			    }
    727. 

  727. 			}
    728. 

  728. 		    }
    729. 

  729. 		}
    730. 

  730. 	    }
    731. 

  731. 	}
    732. 

  732.     }
    733. 

  733.     err = nc_close (ncid);
    734. 

  734.     IF (err)
    735. 

  735.         error("nc_close: %s", nc_strerror(err));
    736. 

  736.     print_nok(nok);
    737. 

  737. }
    738. 

  738. 

  739. /* 
    740. 

  740.  *  check all vars in file which are (text/numeric) compatible with TYPE
    741. 

  741.  */
    742. 

  742. static
    743. 

  743. void
    744. 

  744. check_vars_double(const char *filename)
    745. 

  745. {
    746. 

  746.     int  ncid;                  /* netCDF id */
    747. 

  747.     size_t index[MAX_RANK];
    748. 

  748.     int  err;           /* status */
    749. 

  749.     int  d;
    750. 

  750.     int  i;
    751. 

  751.     size_t  j;
    752. 

  752.     double value;
    753. 

  753.     nc_type datatype;
    754. 

  754.     int ndims;
    755. 

  755.     int dimids[MAX_RANK];
    756. 

  756.     double expect;
    757. 

  757.     char name[NC_MAX_NAME];
    758. 

  758.     size_t length;
    759. 

  759.     int canConvert;     /* Both text or both numeric */
    760. 

  760.     int nok = 0;      /* count of valid comparisons */
    761. 

  761. 

  762.     err = nc_open(filename, NC_NOWRITE, &ncid);
    763. 

  763.     IF (err)
    764. 

  764.         error("nc_open: %s", nc_strerror(err));
    765. 

  765. 

  766.     for (i = 0; i < NVARS; i++) {
    767. 

  767. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_DOUBLE == NCT_TEXT);
    768. 

  768. 	if (canConvert) {
    769. 

  769. 	    err = nc_inq_var(ncid, i, name, &datatype, &ndims, dimids, NULL);
    770. 

  770. 	    IF (err)
    771. 

  771. 		error("nc_inq_var: %s", nc_strerror(err));
    772. 

  772. 	    IF (strcmp(name, var_name[i]) != 0)
    773. 

  773. 		error("Unexpected var_name");
    774. 

  774. 	    IF (datatype != var_type[i])
    775. 

  775. 		error("Unexpected type");
    776. 

  776. 	    IF (ndims != var_rank[i])
    777. 

  777. 		error("Unexpected rank");
    778. 

  778. 	    for (j = 0; j < ndims; j++) {
    779. 

  779. 		err = nc_inq_dim(ncid, dimids[j], 0, &length);
    780. 

  780. 		IF (err)
    781. 

  781. 		    error("nc_inq_dim: %s", nc_strerror(err));
    782. 

  782. 		IF (length != var_shape[i][j])
    783. 

  783. 		    error("Unexpected shape");
    784. 

  784. 	    }
    785. 

  785. 	    for (j = 0; j < var_nels[i]; j++) {
    786. 

  786. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    787. 

  787. 		IF (err)
    788. 

  788. 		    error("error in toMixedBase 2");
    789. 

  789. 		expect = hash4( var_type[i], var_rank[i], index, NCT_DOUBLE);
    790. 

  790. 		err = nc_get_var1_double(ncid, i, index, &value);
    791. 

  791. 		if (inRange3(expect,datatype,NCT_DOUBLE)) {
    792. 

  792.                     if (expect >= double_min && expect <= double_max) {
    793. 

  793. 			IF (err) {
    794. 

  794. 			    error("nc_get_var1_double: %s", nc_strerror(err));
    795. 

  795. 			} else {
    796. 

  796.                             IF (!equal(value,expect,var_type[i],NCT_DOUBLE)) {
    797. 

  797. 				error("Var value read not that expected");
    798. 

  798. 				if (verbose) {
    799. 

  799. 				    error("\n");
    800. 

  800. 				    error("varid: %d, ", i);
    801. 

  801. 				    error("var_name: %s, ", var_name[i]);
    802. 

  802. 				    error("index:");
    803. 

  803. 				    for (d = 0; d < var_rank[i]; d++)
    804. 

  804. 					error(" %d", index[d]);
    805. 

  805. 				    error(", expect: %g, ", expect);
    806. 

  806. 				    error("got: %g", (double) value);
    807. 

  807. 				}
    808. 

  808. 			    } else {
    809. 

  809. 				++nok;
    810. 

  810. 			    }
    811. 

  811. 			}
    812. 

  812. 		    }
    813. 

  813. 		}
    814. 

  814. 	    }
    815. 

  815. 	}
    816. 

  816.     }
    817. 

  817.     err = nc_close (ncid);
    818. 

  818.     IF (err)
    819. 

  819.         error("nc_close: %s", nc_strerror(err));
    820. 

  820.     print_nok(nok);
    821. 

  821. }
    822. 

  822. 

  823. 

  824. 

  825. 

  826. /* 
    827. 

  827.  *  check all attributes in file which are (text/numeric) compatible with TYPE
    828. 

  828.  *  ignore any attributes containing values outside range of TYPE
    829. 

  829.  */
    830. 

  830. static
    831. 

  831. void
    832. 

  832. check_atts_text(int  ncid)
    833. 

  833. {
    834. 

  834.     int  err;           /* status */
    835. 

  835.     int  i;
    836. 

  836.     int  j;
    837. 

  837.     size_t  k;
    838. 

  838.     text value[MAX_NELS];
    839. 

  839.     nc_type datatype;
    840. 

  840.     double expect[MAX_NELS];
    841. 

  841.     size_t length;
    842. 

  842.     size_t nInExtRange;  /* number values within external range */
    843. 

  843.     size_t nInIntRange;  /* number values within internal range */
    844. 

  844.     int canConvert;     /* Both text or both numeric */
    845. 

  845.     int nok = 0;      /* count of valid comparisons */
    846. 

  846. 

  847.     for (i = -1; i < NVARS; i++) {
    848. 

  848.         for (j = 0; j < NATTS(i); j++) {
    849. 

  849. 	    canConvert = (ATT_TYPE(i,j) == NC_CHAR) == (NCT_TEXT == NCT_TEXT);
    850. 

  850. 	    if (canConvert) {
    851. 

  851. 		err = nc_inq_att(ncid, i, ATT_NAME(i,j), &datatype, &length);
    852. 

  852. 		IF (err)
    853. 

  853. 		    error("nc_inq_att: %s", nc_strerror(err));
    854. 

  854. 		IF (datatype != ATT_TYPE(i,j))
    855. 

  855. 		error("nc_inq_att: unexpected type");
    856. 

  856. 		IF (length != ATT_LEN(i,j))
    857. 

  857. 		    error("nc_inq_att: unexpected length");
    858. 

  858. 		assert(length <= MAX_NELS);
    859. 

  859. 		nInIntRange = nInExtRange = 0;
    860. 

  860. 		for (k = 0; k < length; k++) {
    861. 

  861. 		    expect[k] = hash4( datatype, -1, &k, NCT_TEXT);
    862. 

  862. 		    if (inRange3(expect[k], datatype, NCT_TEXT)) {
    863. 

  863. 			++nInExtRange;
    864. 

  864. 			if (expect[k] >= text_min && expect[k] <= text_max)
    865. 

  865. 			    ++nInIntRange;
    866. 

  866. 		    }
    867. 

  867. 		}
    868. 

  868. 		err = nc_get_att_text(ncid, i, ATT_NAME(i,j), value);
    869. 

  869.                 if (nInExtRange == length && nInIntRange == length) {
    870. 

  870. 		    IF (err)
    871. 

  871. 			error("%s", nc_strerror(err));
    872. 

  872.                 } else {
    873. 

  873.                     IF (err != 0 && err != NC_ERANGE)
    874. 

  874.                         error("OK or Range error: status = %d", err);
    875. 

  875.                 }
    876. 

  876. 		for (k = 0; k < length; k++) {
    877. 

  877.                     if (inRange3(expect[k],datatype,NCT_TEXT)
    878. 

  878.                             && expect[k] >= text_min && expect[k] <= text_max) {
    879. 

  879.                         IF (!equal(value[k],expect[k],datatype,NCT_TEXT)) {
    880. 

  880.                             error("att. value read not that expected");
    881. 

  881.                             if (verbose) {
    882. 

  882.                                 error("\n");
    883. 

  883.                                 error("varid: %d, ", i);
    884. 

  884.                                 error("att_name: %s, ", ATT_NAME(i,j));
    885. 

  885.                                 error("element number: %d ", k);
    886. 

  886.                                 error("expect: %g, ", expect[k]);
    887. 

  887.                                 error("got: %g", (double) value[k]);
    888. 

  888.                             }
    889. 

  889.                         } else {
    890. 

  890.                             nok++;
    891. 

  891.                         }
    892. 

  892.                     }
    893. 

  893.                 }
    894. 

  894.             }                                               
    895. 

  895.         }
    896. 

  896.     }
    897. 

  897. 

  898.     print_nok(nok);
    899. 

  899. }
    900. 

  900. 

  901. /* 
    902. 

  902.  *  check all attributes in file which are (text/numeric) compatible with TYPE
    903. 

  903.  *  ignore any attributes containing values outside range of TYPE
    904. 

  904.  */
    905. 

  905. static
    906. 

  906. void
    907. 

  907. check_atts_uchar(int  ncid)
    908. 

  908. {
    909. 

  909.     int  err;           /* status */
    910. 

  910.     int  i;
    911. 

  911.     int  j;
    912. 

  912.     size_t  k;
    913. 

  913.     uchar value[MAX_NELS];
    914. 

  914.     nc_type datatype;
    915. 

  915.     double expect[MAX_NELS];
    916. 

  916.     size_t length;
    917. 

  917.     size_t nInExtRange;  /* number values within external range */
    918. 

  918.     size_t nInIntRange;  /* number values within internal range */
    919. 

  919.     int canConvert;     /* Both text or both numeric */
    920. 

  920.     int nok = 0;      /* count of valid comparisons */
    921. 

  921. 

  922.     for (i = -1; i < NVARS; i++) {
    923. 

  923.         for (j = 0; j < NATTS(i); j++) {
    924. 

  924. 	    canConvert = (ATT_TYPE(i,j) == NC_CHAR) == (NCT_UCHAR == NCT_TEXT);
    925. 

  925. 	    if (canConvert) {
    926. 

  926. 		err = nc_inq_att(ncid, i, ATT_NAME(i,j), &datatype, &length);
    927. 

  927. 		IF (err)
    928. 

  928. 		    error("nc_inq_att: %s", nc_strerror(err));
    929. 

  929. 		IF (datatype != ATT_TYPE(i,j))
    930. 

  930. 		error("nc_inq_att: unexpected type");
    931. 

  931. 		IF (length != ATT_LEN(i,j))
    932. 

  932. 		    error("nc_inq_att: unexpected length");
    933. 

  933. 		assert(length <= MAX_NELS);
    934. 

  934. 		nInIntRange = nInExtRange = 0;
    935. 

  935. 		for (k = 0; k < length; k++) {
    936. 

  936. 		    expect[k] = hash4( datatype, -1, &k, NCT_UCHAR);
    937. 

  937. 		    if (inRange3(expect[k], datatype, NCT_UCHAR)) {
    938. 

  938. 			++nInExtRange;
    939. 

  939. 			if (expect[k] >= uchar_min && expect[k] <= uchar_max)
    940. 

  940. 			    ++nInIntRange;
    941. 

  941. 		    }
    942. 

  942. 		}
    943. 

  943. 		err = nc_get_att_uchar(ncid, i, ATT_NAME(i,j), value);
    944. 

  944.                 if (nInExtRange == length && nInIntRange == length) {
    945. 

  945. 		    IF (err)
    946. 

  946. 			error("%s", nc_strerror(err));
    947. 

  947.                 } else {
    948. 

  948.                     IF (err != 0 && err != NC_ERANGE)
    949. 

  949.                         error("OK or Range error: status = %d", err);
    950. 

  950.                 }
    951. 

  951. 		for (k = 0; k < length; k++) {
    952. 

  952.                     if (inRange3(expect[k],datatype,NCT_UCHAR)
    953. 

  953.                             && expect[k] >= uchar_min && expect[k] <= uchar_max) {
    954. 

  954.                         IF (!equal(value[k],expect[k],datatype,NCT_UCHAR)) {
    955. 

  955.                             error("att. value read not that expected");
    956. 

  956.                             if (verbose) {
    957. 

  957.                                 error("\n");
    958. 

  958.                                 error("varid: %d, ", i);
    959. 

  959.                                 error("att_name: %s, ", ATT_NAME(i,j));
    960. 

  960.                                 error("element number: %d ", k);
    961. 

  961.                                 error("expect: %g, ", expect[k]);
    962. 

  962.                                 error("got: %g", (double) value[k]);
    963. 

  963.                             }
    964. 

  964.                         } else {
    965. 

  965.                             nok++;
    966. 

  966.                         }
    967. 

  967.                     }
    968. 

  968.                 }
    969. 

  969.             }                                               
    970. 

  970.         }
    971. 

  971.     }
    972. 

  972. 

  973.     print_nok(nok);
    974. 

  974. }
    975. 

  975. 

  976. /* 
    977. 

  977.  *  check all attributes in file which are (text/numeric) compatible with TYPE
    978. 

  978.  *  ignore any attributes containing values outside range of TYPE
    979. 

  979.  */
    980. 

  980. static
    981. 

  981. void
    982. 

  982. check_atts_schar(int  ncid)
    983. 

  983. {
    984. 

  984.     int  err;           /* status */
    985. 

  985.     int  i;
    986. 

  986.     int  j;
    987. 

  987.     size_t  k;
    988. 

  988.     schar value[MAX_NELS];
    989. 

  989.     nc_type datatype;
    990. 

  990.     double expect[MAX_NELS];
    991. 

  991.     size_t length;
    992. 

  992.     size_t nInExtRange;  /* number values within external range */
    993. 

  993.     size_t nInIntRange;  /* number values within internal range */
    994. 

  994.     int canConvert;     /* Both text or both numeric */
    995. 

  995.     int nok = 0;      /* count of valid comparisons */
    996. 

  996. 

  997.     for (i = -1; i < NVARS; i++) {
    998. 

  998.         for (j = 0; j < NATTS(i); j++) {
    999. 

  999. 	    canConvert = (ATT_TYPE(i,j) == NC_CHAR) == (NCT_SCHAR == NCT_TEXT);
    1000. 

  1000. 	    if (canConvert) {
    1001. 

  1001. 		err = nc_inq_att(ncid, i, ATT_NAME(i,j), &datatype, &length);
    1002. 

  1002. 		IF (err)
    1003. 

  1003. 		    error("nc_inq_att: %s", nc_strerror(err));
    1004. 

  1004. 		IF (datatype != ATT_TYPE(i,j))
    1005. 

  1005. 		error("nc_inq_att: unexpected type");
    1006. 

  1006. 		IF (length != ATT_LEN(i,j))
    1007. 

  1007. 		    error("nc_inq_att: unexpected length");
    1008. 

  1008. 		assert(length <= MAX_NELS);
    1009. 

  1009. 		nInIntRange = nInExtRange = 0;
    1010. 

  1010. 		for (k = 0; k < length; k++) {
    1011. 

  1011. 		    expect[k] = hash4( datatype, -1, &k, NCT_SCHAR);
    1012. 

  1012. 		    if (inRange3(expect[k], datatype, NCT_SCHAR)) {
    1013. 

  1013. 			++nInExtRange;
    1014. 

  1014. 			if (expect[k] >= schar_min && expect[k] <= schar_max)
    1015. 

  1015. 			    ++nInIntRange;
    1016. 

  1016. 		    }
    1017. 

  1017. 		}
    1018. 

  1018. 		err = nc_get_att_schar(ncid, i, ATT_NAME(i,j), value);
    1019. 

  1019.                 if (nInExtRange == length && nInIntRange == length) {
    1020. 

  1020. 		    IF (err)
    1021. 

  1021. 			error("%s", nc_strerror(err));
    1022. 

  1022.                 } else {
    1023. 

  1023.                     IF (err != 0 && err != NC_ERANGE)
    1024. 

  1024.                         error("OK or Range error: status = %d", err);
    1025. 

  1025.                 }
    1026. 

  1026. 		for (k = 0; k < length; k++) {
    1027. 

  1027.                     if (inRange3(expect[k],datatype,NCT_SCHAR)
    1028. 

  1028.                             && expect[k] >= schar_min && expect[k] <= schar_max) {
    1029. 

  1029.                         IF (!equal(value[k],expect[k],datatype,NCT_SCHAR)) {
    1030. 

  1030.                             error("att. value read not that expected");
    1031. 

  1031.                             if (verbose) {
    1032. 

  1032.                                 error("\n");
    1033. 

  1033.                                 error("varid: %d, ", i);
    1034. 

  1034.                                 error("att_name: %s, ", ATT_NAME(i,j));
    1035. 

  1035.                                 error("element number: %d ", k);
    1036. 

  1036.                                 error("expect: %g, ", expect[k]);
    1037. 

  1037.                                 error("got: %g", (double) value[k]);
    1038. 

  1038.                             }
    1039. 

  1039.                         } else {
    1040. 

  1040.                             nok++;
    1041. 

  1041.                         }
    1042. 

  1042.                     }
    1043. 

  1043.                 }
    1044. 

  1044.             }                                               
    1045. 

  1045.         }
    1046. 

  1046.     }
    1047. 

  1047. 

  1048.     print_nok(nok);
    1049. 

  1049. }
    1050. 

  1050. 

  1051. /* 
    1052. 

  1052.  *  check all attributes in file which are (text/numeric) compatible with TYPE
    1053. 

  1053.  *  ignore any attributes containing values outside range of TYPE
    1054. 

  1054.  */
    1055. 

  1055. static
    1056. 

  1056. void
    1057. 

  1057. check_atts_short(int  ncid)
    1058. 

  1058. {
    1059. 

  1059.     int  err;           /* status */
    1060. 

  1060.     int  i;
    1061. 

  1061.     int  j;
    1062. 

  1062.     size_t  k;
    1063. 

  1063.     short value[MAX_NELS];
    1064. 

  1064.     nc_type datatype;
    1065. 

  1065.     double expect[MAX_NELS];
    1066. 

  1066.     size_t length;
    1067. 

  1067.     size_t nInExtRange;  /* number values within external range */
    1068. 

  1068.     size_t nInIntRange;  /* number values within internal range */
    1069. 

  1069.     int canConvert;     /* Both text or both numeric */
    1070. 

  1070.     int nok = 0;      /* count of valid comparisons */
    1071. 

  1071. 

  1072.     for (i = -1; i < NVARS; i++) {
    1073. 

  1073.         for (j = 0; j < NATTS(i); j++) {
    1074. 

  1074. 	    canConvert = (ATT_TYPE(i,j) == NC_CHAR) == (NCT_SHORT == NCT_TEXT);
    1075. 

  1075. 	    if (canConvert) {
    1076. 

  1076. 		err = nc_inq_att(ncid, i, ATT_NAME(i,j), &datatype, &length);
    1077. 

  1077. 		IF (err)
    1078. 

  1078. 		    error("nc_inq_att: %s", nc_strerror(err));
    1079. 

  1079. 		IF (datatype != ATT_TYPE(i,j))
    1080. 

  1080. 		error("nc_inq_att: unexpected type");
    1081. 

  1081. 		IF (length != ATT_LEN(i,j))
    1082. 

  1082. 		    error("nc_inq_att: unexpected length");
    1083. 

  1083. 		assert(length <= MAX_NELS);
    1084. 

  1084. 		nInIntRange = nInExtRange = 0;
    1085. 

  1085. 		for (k = 0; k < length; k++) {
    1086. 

  1086. 		    expect[k] = hash4( datatype, -1, &k, NCT_SHORT);
    1087. 

  1087. 		    if (inRange3(expect[k], datatype, NCT_SHORT)) {
    1088. 

  1088. 			++nInExtRange;
    1089. 

  1089. 			if (expect[k] >= short_min && expect[k] <= short_max)
    1090. 

  1090. 			    ++nInIntRange;
    1091. 

  1091. 		    }
    1092. 

  1092. 		}
    1093. 

  1093. 		err = nc_get_att_short(ncid, i, ATT_NAME(i,j), value);
    1094. 

  1094.                 if (nInExtRange == length && nInIntRange == length) {
    1095. 

  1095. 		    IF (err)
    1096. 

  1096. 			error("%s", nc_strerror(err));
    1097. 

  1097.                 } else {
    1098. 

  1098.                     IF (err != 0 && err != NC_ERANGE)
    1099. 

  1099.                         error("OK or Range error: status = %d", err);
    1100. 

  1100.                 }
    1101. 

  1101. 		for (k = 0; k < length; k++) {
    1102. 

  1102.                     if (inRange3(expect[k],datatype,NCT_SHORT)
    1103. 

  1103.                             && expect[k] >= short_min && expect[k] <= short_max) {
    1104. 

  1104.                         IF (!equal(value[k],expect[k],datatype,NCT_SHORT)) {
    1105. 

  1105.                             error("att. value read not that expected");
    1106. 

  1106.                             if (verbose) {
    1107. 

  1107.                                 error("\n");
    1108. 

  1108.                                 error("varid: %d, ", i);
    1109. 

  1109.                                 error("att_name: %s, ", ATT_NAME(i,j));
    1110. 

  1110.                                 error("element number: %d ", k);
    1111. 

  1111.                                 error("expect: %g, ", expect[k]);
    1112. 

  1112.                                 error("got: %g", (double) value[k]);
    1113. 

  1113.                             }
    1114. 

  1114.                         } else {
    1115. 

  1115.                             nok++;
    1116. 

  1116.                         }
    1117. 

  1117.                     }
    1118. 

  1118.                 }
    1119. 

  1119.             }                                               
    1120. 

  1120.         }
    1121. 

  1121.     }
    1122. 

  1122. 

  1123.     print_nok(nok);
    1124. 

  1124. }
    1125. 

  1125. 

  1126. /* 
    1127. 

  1127.  *  check all attributes in file which are (text/numeric) compatible with TYPE
    1128. 

  1128.  *  ignore any attributes containing values outside range of TYPE
    1129. 

  1129.  */
    1130. 

  1130. static
    1131. 

  1131. void
    1132. 

  1132. check_atts_int(int  ncid)
    1133. 

  1133. {
    1134. 

  1134.     int  err;           /* status */
    1135. 

  1135.     int  i;
    1136. 

  1136.     int  j;
    1137. 

  1137.     size_t  k;
    1138. 

  1138.     int value[MAX_NELS];
    1139. 

  1139.     nc_type datatype;
    1140. 

  1140.     double expect[MAX_NELS];
    1141. 

  1141.     size_t length;
    1142. 

  1142.     size_t nInExtRange;  /* number values within external range */
    1143. 

  1143.     size_t nInIntRange;  /* number values within internal range */
    1144. 

  1144.     int canConvert;     /* Both text or both numeric */
    1145. 

  1145.     int nok = 0;      /* count of valid comparisons */
    1146. 

  1146. 

  1147.     for (i = -1; i < NVARS; i++) {
    1148. 

  1148.         for (j = 0; j < NATTS(i); j++) {
    1149. 

  1149. 	    canConvert = (ATT_TYPE(i,j) == NC_CHAR) == (NCT_INT == NCT_TEXT);
    1150. 

  1150. 	    if (canConvert) {
    1151. 

  1151. 		err = nc_inq_att(ncid, i, ATT_NAME(i,j), &datatype, &length);
    1152. 

  1152. 		IF (err)
    1153. 

  1153. 		    error("nc_inq_att: %s", nc_strerror(err));
    1154. 

  1154. 		IF (datatype != ATT_TYPE(i,j))
    1155. 

  1155. 		error("nc_inq_att: unexpected type");
    1156. 

  1156. 		IF (length != ATT_LEN(i,j))
    1157. 

  1157. 		    error("nc_inq_att: unexpected length");
    1158. 

  1158. 		assert(length <= MAX_NELS);
    1159. 

  1159. 		nInIntRange = nInExtRange = 0;
    1160. 

  1160. 		for (k = 0; k < length; k++) {
    1161. 

  1161. 		    expect[k] = hash4( datatype, -1, &k, NCT_INT);
    1162. 

  1162. 		    if (inRange3(expect[k], datatype, NCT_INT)) {
    1163. 

  1163. 			++nInExtRange;
    1164. 

  1164. 			if (expect[k] >= int_min && expect[k] <= int_max)
    1165. 

  1165. 			    ++nInIntRange;
    1166. 

  1166. 		    }
    1167. 

  1167. 		}
    1168. 

  1168. 		err = nc_get_att_int(ncid, i, ATT_NAME(i,j), value);
    1169. 

  1169.                 if (nInExtRange == length && nInIntRange == length) {
    1170. 

  1170. 		    IF (err)
    1171. 

  1171. 			error("%s", nc_strerror(err));
    1172. 

  1172.                 } else {
    1173. 

  1173.                     IF (err != 0 && err != NC_ERANGE)
    1174. 

  1174.                         error("OK or Range error: status = %d", err);
    1175. 

  1175.                 }
    1176. 

  1176. 		for (k = 0; k < length; k++) {
    1177. 

  1177.                     if (inRange3(expect[k],datatype,NCT_INT)
    1178. 

  1178.                             && expect[k] >= int_min && expect[k] <= int_max) {
    1179. 

  1179.                         IF (!equal(value[k],expect[k],datatype,NCT_INT)) {
    1180. 

  1180.                             error("att. value read not that expected");
    1181. 

  1181.                             if (verbose) {
    1182. 

  1182.                                 error("\n");
    1183. 

  1183.                                 error("varid: %d, ", i);
    1184. 

  1184.                                 error("att_name: %s, ", ATT_NAME(i,j));
    1185. 

  1185.                                 error("element number: %d ", k);
    1186. 

  1186.                                 error("expect: %g, ", expect[k]);
    1187. 

  1187.                                 error("got: %g", (double) value[k]);
    1188. 

  1188.                             }
    1189. 

  1189.                         } else {
    1190. 

  1190.                             nok++;
    1191. 

  1191.                         }
    1192. 

  1192.                     }
    1193. 

  1193.                 }
    1194. 

  1194.             }                                               
    1195. 

  1195.         }
    1196. 

  1196.     }
    1197. 

  1197. 

  1198.     print_nok(nok);
    1199. 

  1199. }
    1200. 

  1200. 

  1201. /* 
    1202. 

  1202.  *  check all attributes in file which are (text/numeric) compatible with TYPE
    1203. 

  1203.  *  ignore any attributes containing values outside range of TYPE
    1204. 

  1204.  */
    1205. 

  1205. static
    1206. 

  1206. void
    1207. 

  1207. check_atts_long(int  ncid)
    1208. 

  1208. {
    1209. 

  1209.     int  err;           /* status */
    1210. 

  1210.     int  i;
    1211. 

  1211.     int  j;
    1212. 

  1212.     size_t  k;
    1213. 

  1213.     long value[MAX_NELS];
    1214. 

  1214.     nc_type datatype;
    1215. 

  1215.     double expect[MAX_NELS];
    1216. 

  1216.     size_t length;
    1217. 

  1217.     size_t nInExtRange;  /* number values within external range */
    1218. 

  1218.     size_t nInIntRange;  /* number values within internal range */
    1219. 

  1219.     int canConvert;     /* Both text or both numeric */
    1220. 

  1220.     int nok = 0;      /* count of valid comparisons */
    1221. 

  1221. 

  1222.     for (i = -1; i < NVARS; i++) {
    1223. 

  1223.         for (j = 0; j < NATTS(i); j++) {
    1224. 

  1224. 	    canConvert = (ATT_TYPE(i,j) == NC_CHAR) == (NCT_LONG == NCT_TEXT);
    1225. 

  1225. 	    if (canConvert) {
    1226. 

  1226. 		err = nc_inq_att(ncid, i, ATT_NAME(i,j), &datatype, &length);
    1227. 

  1227. 		IF (err)
    1228. 

  1228. 		    error("nc_inq_att: %s", nc_strerror(err));
    1229. 

  1229. 		IF (datatype != ATT_TYPE(i,j))
    1230. 

  1230. 		error("nc_inq_att: unexpected type");
    1231. 

  1231. 		IF (length != ATT_LEN(i,j))
    1232. 

  1232. 		    error("nc_inq_att: unexpected length");
    1233. 

  1233. 		assert(length <= MAX_NELS);
    1234. 

  1234. 		nInIntRange = nInExtRange = 0;
    1235. 

  1235. 		for (k = 0; k < length; k++) {
    1236. 

  1236. 		    expect[k] = hash4( datatype, -1, &k, NCT_LONG);
    1237. 

  1237. 		    if (inRange3(expect[k], datatype, NCT_LONG)) {
    1238. 

  1238. 			++nInExtRange;
    1239. 

  1239. 			if (expect[k] >= long_min && expect[k] <= long_max)
    1240. 

  1240. 			    ++nInIntRange;
    1241. 

  1241. 		    }
    1242. 

  1242. 		}
    1243. 

  1243. 		err = nc_get_att_long(ncid, i, ATT_NAME(i,j), value);
    1244. 

  1244.                 if (nInExtRange == length && nInIntRange == length) {
    1245. 

  1245. 		    IF (err)
    1246. 

  1246. 			error("%s", nc_strerror(err));
    1247. 

  1247.                 } else {
    1248. 

  1248.                     IF (err != 0 && err != NC_ERANGE)
    1249. 

  1249.                         error("OK or Range error: status = %d", err);
    1250. 

  1250.                 }
    1251. 

  1251. 		for (k = 0; k < length; k++) {
    1252. 

  1252.                     if (inRange3(expect[k],datatype,NCT_LONG)
    1253. 

  1253.                             && expect[k] >= long_min && expect[k] <= long_max) {
    1254. 

  1254.                         IF (!equal(value[k],expect[k],datatype,NCT_LONG)) {
    1255. 

  1255.                             error("att. value read not that expected");
    1256. 

  1256.                             if (verbose) {
    1257. 

  1257.                                 error("\n");
    1258. 

  1258.                                 error("varid: %d, ", i);
    1259. 

  1259.                                 error("att_name: %s, ", ATT_NAME(i,j));
    1260. 

  1260.                                 error("element number: %d ", k);
    1261. 

  1261.                                 error("expect: %g, ", expect[k]);
    1262. 

  1262.                                 error("got: %g", (double) value[k]);
    1263. 

  1263.                             }
    1264. 

  1264.                         } else {
    1265. 

  1265.                             nok++;
    1266. 

  1266.                         }
    1267. 

  1267.                     }
    1268. 

  1268.                 }
    1269. 

  1269.             }                                               
    1270. 

  1270.         }
    1271. 

  1271.     }
    1272. 

  1272. 

  1273.     print_nok(nok);
    1274. 

  1274. }
    1275. 

  1275. 

  1276. /* 
    1277. 

  1277.  *  check all attributes in file which are (text/numeric) compatible with TYPE
    1278. 

  1278.  *  ignore any attributes containing values outside range of TYPE
    1279. 

  1279.  */
    1280. 

  1280. static
    1281. 

  1281. void
    1282. 

  1282. check_atts_float(int  ncid)
    1283. 

  1283. {
    1284. 

  1284.     int  err;           /* status */
    1285. 

  1285.     int  i;
    1286. 

  1286.     int  j;
    1287. 

  1287.     size_t  k;
    1288. 

  1288.     float value[MAX_NELS];
    1289. 

  1289.     nc_type datatype;
    1290. 

  1290.     double expect[MAX_NELS];
    1291. 

  1291.     size_t length;
    1292. 

  1292.     size_t nInExtRange;  /* number values within external range */
    1293. 

  1293.     size_t nInIntRange;  /* number values within internal range */
    1294. 

  1294.     int canConvert;     /* Both text or both numeric */
    1295. 

  1295.     int nok = 0;      /* count of valid comparisons */
    1296. 

  1296. 

  1297.     for (i = -1; i < NVARS; i++) {
    1298. 

  1298.         for (j = 0; j < NATTS(i); j++) {
    1299. 

  1299. 	    canConvert = (ATT_TYPE(i,j) == NC_CHAR) == (NCT_FLOAT == NCT_TEXT);
    1300. 

  1300. 	    if (canConvert) {
    1301. 

  1301. 		err = nc_inq_att(ncid, i, ATT_NAME(i,j), &datatype, &length);
    1302. 

  1302. 		IF (err)
    1303. 

  1303. 		    error("nc_inq_att: %s", nc_strerror(err));
    1304. 

  1304. 		IF (datatype != ATT_TYPE(i,j))
    1305. 

  1305. 		error("nc_inq_att: unexpected type");
    1306. 

  1306. 		IF (length != ATT_LEN(i,j))
    1307. 

  1307. 		    error("nc_inq_att: unexpected length");
    1308. 

  1308. 		assert(length <= MAX_NELS);
    1309. 

  1309. 		nInIntRange = nInExtRange = 0;
    1310. 

  1310. 		for (k = 0; k < length; k++) {
    1311. 

  1311. 		    expect[k] = hash4( datatype, -1, &k, NCT_FLOAT);
    1312. 

  1312. 		    if (inRange3(expect[k], datatype, NCT_FLOAT)) {
    1313. 

  1313. 			++nInExtRange;
    1314. 

  1314. 			if (expect[k] >= float_min && expect[k] <= float_max)
    1315. 

  1315. 			    ++nInIntRange;
    1316. 

  1316. 		    }
    1317. 

  1317. 		}
    1318. 

  1318. 		err = nc_get_att_float(ncid, i, ATT_NAME(i,j), value);
    1319. 

  1319.                 if (nInExtRange == length && nInIntRange == length) {
    1320. 

  1320. 		    IF (err)
    1321. 

  1321. 			error("%s", nc_strerror(err));
    1322. 

  1322.                 } else {
    1323. 

  1323.                     IF (err != 0 && err != NC_ERANGE)
    1324. 

  1324.                         error("OK or Range error: status = %d", err);
    1325. 

  1325.                 }
    1326. 

  1326. 		for (k = 0; k < length; k++) {
    1327. 

  1327.                     if (inRange3(expect[k],datatype,NCT_FLOAT)
    1328. 

  1328.                             && expect[k] >= float_min && expect[k] <= float_max) {
    1329. 

  1329.                         IF (!equal(value[k],expect[k],datatype,NCT_FLOAT)) {
    1330. 

  1330.                             error("att. value read not that expected");
    1331. 

  1331.                             if (verbose) {
    1332. 

  1332.                                 error("\n");
    1333. 

  1333.                                 error("varid: %d, ", i);
    1334. 

  1334.                                 error("att_name: %s, ", ATT_NAME(i,j));
    1335. 

  1335.                                 error("element number: %d ", k);
    1336. 

  1336.                                 error("expect: %g, ", expect[k]);
    1337. 

  1337.                                 error("got: %g", (double) value[k]);
    1338. 

  1338.                             }
    1339. 

  1339.                         } else {
    1340. 

  1340.                             nok++;
    1341. 

  1341.                         }
    1342. 

  1342.                     }
    1343. 

  1343.                 }
    1344. 

  1344.             }                                               
    1345. 

  1345.         }
    1346. 

  1346.     }
    1347. 

  1347. 

  1348.     print_nok(nok);
    1349. 

  1349. }
    1350. 

  1350. 

  1351. /* 
    1352. 

  1352.  *  check all attributes in file which are (text/numeric) compatible with TYPE
    1353. 

  1353.  *  ignore any attributes containing values outside range of TYPE
    1354. 

  1354.  */
    1355. 

  1355. static
    1356. 

  1356. void
    1357. 

  1357. check_atts_double(int  ncid)
    1358. 

  1358. {
    1359. 

  1359.     int  err;           /* status */
    1360. 

  1360.     int  i;
    1361. 

  1361.     int  j;
    1362. 

  1362.     size_t  k;
    1363. 

  1363.     double value[MAX_NELS];
    1364. 

  1364.     nc_type datatype;
    1365. 

  1365.     double expect[MAX_NELS];
    1366. 

  1366.     size_t length;
    1367. 

  1367.     size_t nInExtRange;  /* number values within external range */
    1368. 

  1368.     size_t nInIntRange;  /* number values within internal range */
    1369. 

  1369.     int canConvert;     /* Both text or both numeric */
    1370. 

  1370.     int nok = 0;      /* count of valid comparisons */
    1371. 

  1371. 

  1372.     for (i = -1; i < NVARS; i++) {
    1373. 

  1373.         for (j = 0; j < NATTS(i); j++) {
    1374. 

  1374. 	    canConvert = (ATT_TYPE(i,j) == NC_CHAR) == (NCT_DOUBLE == NCT_TEXT);
    1375. 

  1375. 	    if (canConvert) {
    1376. 

  1376. 		err = nc_inq_att(ncid, i, ATT_NAME(i,j), &datatype, &length);
    1377. 

  1377. 		IF (err)
    1378. 

  1378. 		    error("nc_inq_att: %s", nc_strerror(err));
    1379. 

  1379. 		IF (datatype != ATT_TYPE(i,j))
    1380. 

  1380. 		error("nc_inq_att: unexpected type");
    1381. 

  1381. 		IF (length != ATT_LEN(i,j))
    1382. 

  1382. 		    error("nc_inq_att: unexpected length");
    1383. 

  1383. 		assert(length <= MAX_NELS);
    1384. 

  1384. 		nInIntRange = nInExtRange = 0;
    1385. 

  1385. 		for (k = 0; k < length; k++) {
    1386. 

  1386. 		    expect[k] = hash4( datatype, -1, &k, NCT_DOUBLE);
    1387. 

  1387. 		    if (inRange3(expect[k], datatype, NCT_DOUBLE)) {
    1388. 

  1388. 			++nInExtRange;
    1389. 

  1389. 			if (expect[k] >= double_min && expect[k] <= double_max)
    1390. 

  1390. 			    ++nInIntRange;
    1391. 

  1391. 		    }
    1392. 

  1392. 		}
    1393. 

  1393. 		err = nc_get_att_double(ncid, i, ATT_NAME(i,j), value);
    1394. 

  1394.                 if (nInExtRange == length && nInIntRange == length) {
    1395. 

  1395. 		    IF (err)
    1396. 

  1396. 			error("%s", nc_strerror(err));
    1397. 

  1397.                 } else {
    1398. 

  1398.                     IF (err != 0 && err != NC_ERANGE)
    1399. 

  1399.                         error("OK or Range error: status = %d", err);
    1400. 

  1400.                 }
    1401. 

  1401. 		for (k = 0; k < length; k++) {
    1402. 

  1402.                     if (inRange3(expect[k],datatype,NCT_DOUBLE)
    1403. 

  1403.                             && expect[k] >= double_min && expect[k] <= double_max) {
    1404. 

  1404.                         IF (!equal(value[k],expect[k],datatype,NCT_DOUBLE)) {
    1405. 

  1405.                             error("att. value read not that expected");
    1406. 

  1406.                             if (verbose) {
    1407. 

  1407.                                 error("\n");
    1408. 

  1408.                                 error("varid: %d, ", i);
    1409. 

  1409.                                 error("att_name: %s, ", ATT_NAME(i,j));
    1410. 

  1410.                                 error("element number: %d ", k);
    1411. 

  1411.                                 error("expect: %g, ", expect[k]);
    1412. 

  1412.                                 error("got: %g", (double) value[k]);
    1413. 

  1413.                             }
    1414. 

  1414.                         } else {
    1415. 

  1415.                             nok++;
    1416. 

  1416.                         }
    1417. 

  1417.                     }
    1418. 

  1418.                 }
    1419. 

  1419.             }                                               
    1420. 

  1420.         }
    1421. 

  1421.     }
    1422. 

  1422. 

  1423.     print_nok(nok);
    1424. 

  1424. }
    1425. 

  1425. 

  1426. 

  1427. 

  1428. 

  1429. void
    1430. 

  1430. test_nc_put_var1_text(void)
    1431. 

  1431. {
    1432. 

  1432.     int ncid;
    1433. 

  1433.     int i;
    1434. 

  1434.     int j;
    1435. 

  1435.     int err;
    1436. 

  1436.     size_t index[MAX_RANK];
    1437. 

  1437.     int canConvert;	/* Both text or both numeric */
    1438. 

  1438.     text value = 5;	/* any value would do - only for error cases */
    1439. 

  1439. 

  1440.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    1441. 

  1441.     IF (err) {
    1442. 

  1442.         error("nc_create: %s", nc_strerror(err));
    1443. 

  1443.         return;
    1444. 

  1444.     }
    1445. 

  1445.     def_dims(ncid);
    1446. 

  1446.     def_vars(ncid);
    1447. 

  1447.     err = nc_enddef(ncid);
    1448. 

  1448.     IF (err)
    1449. 

  1449.         error("nc_enddef: %s", nc_strerror(err));
    1450. 

  1450. 

  1451.     for (i = 0; i < NVARS; i++) {
    1452. 

  1452. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_TEXT == NCT_TEXT);
    1453. 

  1453.         for (j = 0; j < var_rank[i]; j++)
    1454. 

  1454.             index[j] = 0;
    1455. 

  1455.         err = nc_put_var1_text(BAD_ID, i, index, &value);
    1456. 

  1456.         IF (err != NC_EBADID) 
    1457. 

  1457. 	    error("bad ncid: status = %d", err);
    1458. 

  1458.         err = nc_put_var1_text(ncid, BAD_VARID, index, &value);
    1459. 

  1459.         IF (err != NC_ENOTVAR) 
    1460. 

  1460. 	    error("bad var id: status = %d", err);
    1461. 

  1461.         for (j = 0; j < var_rank[i]; j++) {
    1462. 

  1462. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    1463. 

  1463. 		index[j] = var_shape[i][j];
    1464. 

  1464. 		err = nc_put_var1_text(ncid, i, index, &value);
    1465. 

  1465. 		IF (canConvert && err != NC_EINVALCOORDS)
    1466. 

  1466. 		    error("bad index: status = %d", err);
    1467. 

  1467. 		index[j] = 0;
    1468. 

  1468. 	    }
    1469. 

  1469.         }
    1470. 

  1470.         for (j = 0; j < var_nels[i]; j++) {
    1471. 

  1471.             err = toMixedBase(j, var_rank[i], var_shape[i], index);
    1472. 

  1472.             IF (err) 
    1473. 

  1473. 		error("error in toMixedBase 1");
    1474. 

  1474.             value = hash_text( var_type[i], var_rank[i], index, NCT_TEXT);
    1475. 

  1475. 	    if (var_rank[i] == 0 && i%2 == 0)
    1476. 

  1476. 		err = nc_put_var1_text(ncid, i, NULL, &value);
    1477. 

  1477. 	    else
    1478. 

  1478. 		err = nc_put_var1_text(ncid, i, index, &value);
    1479. 

  1479. 	    if (canConvert) {
    1480. 

  1480. 		if (inRange3(value, var_type[i],NCT_TEXT)) {
    1481. 

  1481. 		    IF (err)
    1482. 

  1482. 			error("%s", nc_strerror(err));
    1483. 

  1483. 		} else {
    1484. 

  1484. 		    IF (err != NC_ERANGE) {
    1485. 

  1485. 			error("Range error: status = %d", err);
    1486. 

  1486. 			error("\n\t\tfor type %s value %.17e %ld",
    1487. 

  1487. 				s_nc_type(var_type[i]),
    1488. 

  1488. 				(double)value, (long)value);
    1489. 

  1489. 		    }
    1490. 

  1490. 		}
    1491. 

  1491. 	    } else {
    1492. 

  1492. 		IF (err != NC_ECHAR)
    1493. 

  1493. 		    error("wrong type: status = %d", err);
    1494. 

  1494.             }
    1495. 

  1495.         }
    1496. 

  1496.     }
    1497. 

  1497. 

  1498.     err = nc_close(ncid);
    1499. 

  1499.     IF (err) 
    1500. 

  1500. 	error("nc_close: %s", nc_strerror(err));
    1501. 

  1501. 

  1502.     check_vars_text(scratch);
    1503. 

  1503. 

  1504.     err = remove(scratch);
    1505. 

  1505.     IF (err)
    1506. 

  1506.         error("remove of %s failed", scratch);
    1507. 

  1507. }
    1508. 

  1508. 

  1509. void
    1510. 

  1510. test_nc_put_var1_uchar(void)
    1511. 

  1511. {
    1512. 

  1512.     int ncid;
    1513. 

  1513.     int i;
    1514. 

  1514.     int j;
    1515. 

  1515.     int err;
    1516. 

  1516.     size_t index[MAX_RANK];
    1517. 

  1517.     int canConvert;	/* Both text or both numeric */
    1518. 

  1518.     uchar value = 5;	/* any value would do - only for error cases */
    1519. 

  1519. 

  1520.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    1521. 

  1521.     IF (err) {
    1522. 

  1522.         error("nc_create: %s", nc_strerror(err));
    1523. 

  1523.         return;
    1524. 

  1524.     }
    1525. 

  1525.     def_dims(ncid);
    1526. 

  1526.     def_vars(ncid);
    1527. 

  1527.     err = nc_enddef(ncid);
    1528. 

  1528.     IF (err)
    1529. 

  1529.         error("nc_enddef: %s", nc_strerror(err));
    1530. 

  1530. 

  1531.     for (i = 0; i < NVARS; i++) {
    1532. 

  1532. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_UCHAR == NCT_TEXT);
    1533. 

  1533.         for (j = 0; j < var_rank[i]; j++)
    1534. 

  1534.             index[j] = 0;
    1535. 

  1535.         err = nc_put_var1_uchar(BAD_ID, i, index, &value);
    1536. 

  1536.         IF (err != NC_EBADID) 
    1537. 

  1537. 	    error("bad ncid: status = %d", err);
    1538. 

  1538.         err = nc_put_var1_uchar(ncid, BAD_VARID, index, &value);
    1539. 

  1539.         IF (err != NC_ENOTVAR) 
    1540. 

  1540. 	    error("bad var id: status = %d", err);
    1541. 

  1541.         for (j = 0; j < var_rank[i]; j++) {
    1542. 

  1542. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    1543. 

  1543. 		index[j] = var_shape[i][j];
    1544. 

  1544. 		err = nc_put_var1_uchar(ncid, i, index, &value);
    1545. 

  1545. 		IF (canConvert && err != NC_EINVALCOORDS)
    1546. 

  1546. 		    error("bad index: status = %d", err);
    1547. 

  1547. 		index[j] = 0;
    1548. 

  1548. 	    }
    1549. 

  1549.         }
    1550. 

  1550.         for (j = 0; j < var_nels[i]; j++) {
    1551. 

  1551.             err = toMixedBase(j, var_rank[i], var_shape[i], index);
    1552. 

  1552.             IF (err) 
    1553. 

  1553. 		error("error in toMixedBase 1");
    1554. 

  1554.             value = hash_uchar( var_type[i], var_rank[i], index, NCT_UCHAR);
    1555. 

  1555. 	    if (var_rank[i] == 0 && i%2 == 0)
    1556. 

  1556. 		err = nc_put_var1_uchar(ncid, i, NULL, &value);
    1557. 

  1557. 	    else
    1558. 

  1558. 		err = nc_put_var1_uchar(ncid, i, index, &value);
    1559. 

  1559. 	    if (canConvert) {
    1560. 

  1560. 		if (inRange3(value, var_type[i],NCT_UCHAR)) {
    1561. 

  1561. 		    IF (err)
    1562. 

  1562. 			error("%s", nc_strerror(err));
    1563. 

  1563. 		} else {
    1564. 

  1564. 		    IF (err != NC_ERANGE) {
    1565. 

  1565. 			error("Range error: status = %d", err);
    1566. 

  1566. 			error("\n\t\tfor type %s value %.17e %ld",
    1567. 

  1567. 				s_nc_type(var_type[i]),
    1568. 

  1568. 				(double)value, (long)value);
    1569. 

  1569. 		    }
    1570. 

  1570. 		}
    1571. 

  1571. 	    } else {
    1572. 

  1572. 		IF (err != NC_ECHAR)
    1573. 

  1573. 		    error("wrong type: status = %d", err);
    1574. 

  1574.             }
    1575. 

  1575.         }
    1576. 

  1576.     }
    1577. 

  1577. 

  1578.     err = nc_close(ncid);
    1579. 

  1579.     IF (err) 
    1580. 

  1580. 	error("nc_close: %s", nc_strerror(err));
    1581. 

  1581. 

  1582.     check_vars_uchar(scratch);
    1583. 

  1583. 

  1584.     err = remove(scratch);
    1585. 

  1585.     IF (err)
    1586. 

  1586.         error("remove of %s failed", scratch);
    1587. 

  1587. }
    1588. 

  1588. 

  1589. void
    1590. 

  1590. test_nc_put_var1_schar(void)
    1591. 

  1591. {
    1592. 

  1592.     int ncid;
    1593. 

  1593.     int i;
    1594. 

  1594.     int j;
    1595. 

  1595.     int err;
    1596. 

  1596.     size_t index[MAX_RANK];
    1597. 

  1597.     int canConvert;	/* Both text or both numeric */
    1598. 

  1598.     schar value = 5;	/* any value would do - only for error cases */
    1599. 

  1599. 

  1600.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    1601. 

  1601.     IF (err) {
    1602. 

  1602.         error("nc_create: %s", nc_strerror(err));
    1603. 

  1603.         return;
    1604. 

  1604.     }
    1605. 

  1605.     def_dims(ncid);
    1606. 

  1606.     def_vars(ncid);
    1607. 

  1607.     err = nc_enddef(ncid);
    1608. 

  1608.     IF (err)
    1609. 

  1609.         error("nc_enddef: %s", nc_strerror(err));
    1610. 

  1610. 

  1611.     for (i = 0; i < NVARS; i++) {
    1612. 

  1612. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SCHAR == NCT_TEXT);
    1613. 

  1613.         for (j = 0; j < var_rank[i]; j++)
    1614. 

  1614.             index[j] = 0;
    1615. 

  1615.         err = nc_put_var1_schar(BAD_ID, i, index, &value);
    1616. 

  1616.         IF (err != NC_EBADID) 
    1617. 

  1617. 	    error("bad ncid: status = %d", err);
    1618. 

  1618.         err = nc_put_var1_schar(ncid, BAD_VARID, index, &value);
    1619. 

  1619.         IF (err != NC_ENOTVAR) 
    1620. 

  1620. 	    error("bad var id: status = %d", err);
    1621. 

  1621.         for (j = 0; j < var_rank[i]; j++) {
    1622. 

  1622. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    1623. 

  1623. 		index[j] = var_shape[i][j];
    1624. 

  1624. 		err = nc_put_var1_schar(ncid, i, index, &value);
    1625. 

  1625. 		IF (canConvert && err != NC_EINVALCOORDS)
    1626. 

  1626. 		    error("bad index: status = %d", err);
    1627. 

  1627. 		index[j] = 0;
    1628. 

  1628. 	    }
    1629. 

  1629.         }
    1630. 

  1630.         for (j = 0; j < var_nels[i]; j++) {
    1631. 

  1631.             err = toMixedBase(j, var_rank[i], var_shape[i], index);
    1632. 

  1632.             IF (err) 
    1633. 

  1633. 		error("error in toMixedBase 1");
    1634. 

  1634.             value = hash_schar( var_type[i], var_rank[i], index, NCT_SCHAR);
    1635. 

  1635. 	    if (var_rank[i] == 0 && i%2 == 0)
    1636. 

  1636. 		err = nc_put_var1_schar(ncid, i, NULL, &value);
    1637. 

  1637. 	    else
    1638. 

  1638. 		err = nc_put_var1_schar(ncid, i, index, &value);
    1639. 

  1639. 	    if (canConvert) {
    1640. 

  1640. 		if (inRange3(value, var_type[i],NCT_SCHAR)) {
    1641. 

  1641. 		    IF (err)
    1642. 

  1642. 			error("%s", nc_strerror(err));
    1643. 

  1643. 		} else {
    1644. 

  1644. 		    IF (err != NC_ERANGE) {
    1645. 

  1645. 			error("Range error: status = %d", err);
    1646. 

  1646. 			error("\n\t\tfor type %s value %.17e %ld",
    1647. 

  1647. 				s_nc_type(var_type[i]),
    1648. 

  1648. 				(double)value, (long)value);
    1649. 

  1649. 		    }
    1650. 

  1650. 		}
    1651. 

  1651. 	    } else {
    1652. 

  1652. 		IF (err != NC_ECHAR)
    1653. 

  1653. 		    error("wrong type: status = %d", err);
    1654. 

  1654.             }
    1655. 

  1655.         }
    1656. 

  1656.     }
    1657. 

  1657. 

  1658.     err = nc_close(ncid);
    1659. 

  1659.     IF (err) 
    1660. 

  1660. 	error("nc_close: %s", nc_strerror(err));
    1661. 

  1661. 

  1662.     check_vars_schar(scratch);
    1663. 

  1663. 

  1664.     err = remove(scratch);
    1665. 

  1665.     IF (err)
    1666. 

  1666.         error("remove of %s failed", scratch);
    1667. 

  1667. }
    1668. 

  1668. 

  1669. void
    1670. 

  1670. test_nc_put_var1_short(void)
    1671. 

  1671. {
    1672. 

  1672.     int ncid;
    1673. 

  1673.     int i;
    1674. 

  1674.     int j;
    1675. 

  1675.     int err;
    1676. 

  1676.     size_t index[MAX_RANK];
    1677. 

  1677.     int canConvert;	/* Both text or both numeric */
    1678. 

  1678.     short value = 5;	/* any value would do - only for error cases */
    1679. 

  1679. 

  1680.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    1681. 

  1681.     IF (err) {
    1682. 

  1682.         error("nc_create: %s", nc_strerror(err));
    1683. 

  1683.         return;
    1684. 

  1684.     }
    1685. 

  1685.     def_dims(ncid);
    1686. 

  1686.     def_vars(ncid);
    1687. 

  1687.     err = nc_enddef(ncid);
    1688. 

  1688.     IF (err)
    1689. 

  1689.         error("nc_enddef: %s", nc_strerror(err));
    1690. 

  1690. 

  1691.     for (i = 0; i < NVARS; i++) {
    1692. 

  1692. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SHORT == NCT_TEXT);
    1693. 

  1693.         for (j = 0; j < var_rank[i]; j++)
    1694. 

  1694.             index[j] = 0;
    1695. 

  1695.         err = nc_put_var1_short(BAD_ID, i, index, &value);
    1696. 

  1696.         IF (err != NC_EBADID) 
    1697. 

  1697. 	    error("bad ncid: status = %d", err);
    1698. 

  1698.         err = nc_put_var1_short(ncid, BAD_VARID, index, &value);
    1699. 

  1699.         IF (err != NC_ENOTVAR) 
    1700. 

  1700. 	    error("bad var id: status = %d", err);
    1701. 

  1701.         for (j = 0; j < var_rank[i]; j++) {
    1702. 

  1702. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    1703. 

  1703. 		index[j] = var_shape[i][j];
    1704. 

  1704. 		err = nc_put_var1_short(ncid, i, index, &value);
    1705. 

  1705. 		IF (canConvert && err != NC_EINVALCOORDS)
    1706. 

  1706. 		    error("bad index: status = %d", err);
    1707. 

  1707. 		index[j] = 0;
    1708. 

  1708. 	    }
    1709. 

  1709.         }
    1710. 

  1710.         for (j = 0; j < var_nels[i]; j++) {
    1711. 

  1711.             err = toMixedBase(j, var_rank[i], var_shape[i], index);
    1712. 

  1712.             IF (err) 
    1713. 

  1713. 		error("error in toMixedBase 1");
    1714. 

  1714.             value = hash_short( var_type[i], var_rank[i], index, NCT_SHORT);
    1715. 

  1715. 	    if (var_rank[i] == 0 && i%2 == 0)
    1716. 

  1716. 		err = nc_put_var1_short(ncid, i, NULL, &value);
    1717. 

  1717. 	    else
    1718. 

  1718. 		err = nc_put_var1_short(ncid, i, index, &value);
    1719. 

  1719. 	    if (canConvert) {
    1720. 

  1720. 		if (inRange3(value, var_type[i],NCT_SHORT)) {
    1721. 

  1721. 		    IF (err)
    1722. 

  1722. 			error("%s", nc_strerror(err));
    1723. 

  1723. 		} else {
    1724. 

  1724. 		    IF (err != NC_ERANGE) {
    1725. 

  1725. 			error("Range error: status = %d", err);
    1726. 

  1726. 			error("\n\t\tfor type %s value %.17e %ld",
    1727. 

  1727. 				s_nc_type(var_type[i]),
    1728. 

  1728. 				(double)value, (long)value);
    1729. 

  1729. 		    }
    1730. 

  1730. 		}
    1731. 

  1731. 	    } else {
    1732. 

  1732. 		IF (err != NC_ECHAR)
    1733. 

  1733. 		    error("wrong type: status = %d", err);
    1734. 

  1734.             }
    1735. 

  1735.         }
    1736. 

  1736.     }
    1737. 

  1737. 

  1738.     err = nc_close(ncid);
    1739. 

  1739.     IF (err) 
    1740. 

  1740. 	error("nc_close: %s", nc_strerror(err));
    1741. 

  1741. 

  1742.     check_vars_short(scratch);
    1743. 

  1743. 

  1744.     err = remove(scratch);
    1745. 

  1745.     IF (err)
    1746. 

  1746.         error("remove of %s failed", scratch);
    1747. 

  1747. }
    1748. 

  1748. 

  1749. void
    1750. 

  1750. test_nc_put_var1_int(void)
    1751. 

  1751. {
    1752. 

  1752.     int ncid;
    1753. 

  1753.     int i;
    1754. 

  1754.     int j;
    1755. 

  1755.     int err;
    1756. 

  1756.     size_t index[MAX_RANK];
    1757. 

  1757.     int canConvert;	/* Both text or both numeric */
    1758. 

  1758.     int value = 5;	/* any value would do - only for error cases */
    1759. 

  1759. 

  1760.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    1761. 

  1761.     IF (err) {
    1762. 

  1762.         error("nc_create: %s", nc_strerror(err));
    1763. 

  1763.         return;
    1764. 

  1764.     }
    1765. 

  1765.     def_dims(ncid);
    1766. 

  1766.     def_vars(ncid);
    1767. 

  1767.     err = nc_enddef(ncid);
    1768. 

  1768.     IF (err)
    1769. 

  1769.         error("nc_enddef: %s", nc_strerror(err));
    1770. 

  1770. 

  1771.     for (i = 0; i < NVARS; i++) {
    1772. 

  1772. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_INT == NCT_TEXT);
    1773. 

  1773.         for (j = 0; j < var_rank[i]; j++)
    1774. 

  1774.             index[j] = 0;
    1775. 

  1775.         err = nc_put_var1_int(BAD_ID, i, index, &value);
    1776. 

  1776.         IF (err != NC_EBADID) 
    1777. 

  1777. 	    error("bad ncid: status = %d", err);
    1778. 

  1778.         err = nc_put_var1_int(ncid, BAD_VARID, index, &value);
    1779. 

  1779.         IF (err != NC_ENOTVAR) 
    1780. 

  1780. 	    error("bad var id: status = %d", err);
    1781. 

  1781.         for (j = 0; j < var_rank[i]; j++) {
    1782. 

  1782. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    1783. 

  1783. 		index[j] = var_shape[i][j];
    1784. 

  1784. 		err = nc_put_var1_int(ncid, i, index, &value);
    1785. 

  1785. 		IF (canConvert && err != NC_EINVALCOORDS)
    1786. 

  1786. 		    error("bad index: status = %d", err);
    1787. 

  1787. 		index[j] = 0;
    1788. 

  1788. 	    }
    1789. 

  1789.         }
    1790. 

  1790.         for (j = 0; j < var_nels[i]; j++) {
    1791. 

  1791.             err = toMixedBase(j, var_rank[i], var_shape[i], index);
    1792. 

  1792.             IF (err) 
    1793. 

  1793. 		error("error in toMixedBase 1");
    1794. 

  1794.             value = hash_int( var_type[i], var_rank[i], index, NCT_INT);
    1795. 

  1795. 	    if (var_rank[i] == 0 && i%2 == 0)
    1796. 

  1796. 		err = nc_put_var1_int(ncid, i, NULL, &value);
    1797. 

  1797. 	    else
    1798. 

  1798. 		err = nc_put_var1_int(ncid, i, index, &value);
    1799. 

  1799. 	    if (canConvert) {
    1800. 

  1800. 		if (inRange3(value, var_type[i],NCT_INT)) {
    1801. 

  1801. 		    IF (err)
    1802. 

  1802. 			error("%s", nc_strerror(err));
    1803. 

  1803. 		} else {
    1804. 

  1804. 		    IF (err != NC_ERANGE) {
    1805. 

  1805. 			error("Range error: status = %d", err);
    1806. 

  1806. 			error("\n\t\tfor type %s value %.17e %ld",
    1807. 

  1807. 				s_nc_type(var_type[i]),
    1808. 

  1808. 				(double)value, (long)value);
    1809. 

  1809. 		    }
    1810. 

  1810. 		}
    1811. 

  1811. 	    } else {
    1812. 

  1812. 		IF (err != NC_ECHAR)
    1813. 

  1813. 		    error("wrong type: status = %d", err);
    1814. 

  1814.             }
    1815. 

  1815.         }
    1816. 

  1816.     }
    1817. 

  1817. 

  1818.     err = nc_close(ncid);
    1819. 

  1819.     IF (err) 
    1820. 

  1820. 	error("nc_close: %s", nc_strerror(err));
    1821. 

  1821. 

  1822.     check_vars_int(scratch);
    1823. 

  1823. 

  1824.     err = remove(scratch);
    1825. 

  1825.     IF (err)
    1826. 

  1826.         error("remove of %s failed", scratch);
    1827. 

  1827. }
    1828. 

  1828. 

  1829. void
    1830. 

  1830. test_nc_put_var1_long(void)
    1831. 

  1831. {
    1832. 

  1832.     int ncid;
    1833. 

  1833.     int i;
    1834. 

  1834.     int j;
    1835. 

  1835.     int err;
    1836. 

  1836.     size_t index[MAX_RANK];
    1837. 

  1837.     int canConvert;	/* Both text or both numeric */
    1838. 

  1838.     long value = 5;	/* any value would do - only for error cases */
    1839. 

  1839. 

  1840.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    1841. 

  1841.     IF (err) {
    1842. 

  1842.         error("nc_create: %s", nc_strerror(err));
    1843. 

  1843.         return;
    1844. 

  1844.     }
    1845. 

  1845.     def_dims(ncid);
    1846. 

  1846.     def_vars(ncid);
    1847. 

  1847.     err = nc_enddef(ncid);
    1848. 

  1848.     IF (err)
    1849. 

  1849.         error("nc_enddef: %s", nc_strerror(err));
    1850. 

  1850. 

  1851.     for (i = 0; i < NVARS; i++) {
    1852. 

  1852. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_LONG == NCT_TEXT);
    1853. 

  1853.         for (j = 0; j < var_rank[i]; j++)
    1854. 

  1854.             index[j] = 0;
    1855. 

  1855.         err = nc_put_var1_long(BAD_ID, i, index, &value);
    1856. 

  1856.         IF (err != NC_EBADID) 
    1857. 

  1857. 	    error("bad ncid: status = %d", err);
    1858. 

  1858.         err = nc_put_var1_long(ncid, BAD_VARID, index, &value);
    1859. 

  1859.         IF (err != NC_ENOTVAR) 
    1860. 

  1860. 	    error("bad var id: status = %d", err);
    1861. 

  1861.         for (j = 0; j < var_rank[i]; j++) {
    1862. 

  1862. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    1863. 

  1863. 		index[j] = var_shape[i][j];
    1864. 

  1864. 		err = nc_put_var1_long(ncid, i, index, &value);
    1865. 

  1865. 		IF (canConvert && err != NC_EINVALCOORDS)
    1866. 

  1866. 		    error("bad index: status = %d", err);
    1867. 

  1867. 		index[j] = 0;
    1868. 

  1868. 	    }
    1869. 

  1869.         }
    1870. 

  1870.         for (j = 0; j < var_nels[i]; j++) {
    1871. 

  1871.             err = toMixedBase(j, var_rank[i], var_shape[i], index);
    1872. 

  1872.             IF (err) 
    1873. 

  1873. 		error("error in toMixedBase 1");
    1874. 

  1874.             value = hash_long( var_type[i], var_rank[i], index, NCT_LONG);
    1875. 

  1875. 	    if (var_rank[i] == 0 && i%2 == 0)
    1876. 

  1876. 		err = nc_put_var1_long(ncid, i, NULL, &value);
    1877. 

  1877. 	    else
    1878. 

  1878. 		err = nc_put_var1_long(ncid, i, index, &value);
    1879. 

  1879. 	    if (canConvert) {
    1880. 

  1880. 		if (inRange3(value, var_type[i],NCT_LONG)) {
    1881. 

  1881. 		    IF (err)
    1882. 

  1882. 			error("%s", nc_strerror(err));
    1883. 

  1883. 		} else {
    1884. 

  1884. 		    IF (err != NC_ERANGE) {
    1885. 

  1885. 			error("Range error: status = %d", err);
    1886. 

  1886. 			error("\n\t\tfor type %s value %.17e %ld",
    1887. 

  1887. 				s_nc_type(var_type[i]),
    1888. 

  1888. 				(double)value, (long)value);
    1889. 

  1889. 		    }
    1890. 

  1890. 		}
    1891. 

  1891. 	    } else {
    1892. 

  1892. 		IF (err != NC_ECHAR)
    1893. 

  1893. 		    error("wrong type: status = %d", err);
    1894. 

  1894.             }
    1895. 

  1895.         }
    1896. 

  1896.     }
    1897. 

  1897. 

  1898.     err = nc_close(ncid);
    1899. 

  1899.     IF (err) 
    1900. 

  1900. 	error("nc_close: %s", nc_strerror(err));
    1901. 

  1901. 

  1902.     check_vars_long(scratch);
    1903. 

  1903. 

  1904.     err = remove(scratch);
    1905. 

  1905.     IF (err)
    1906. 

  1906.         error("remove of %s failed", scratch);
    1907. 

  1907. }
    1908. 

  1908. 

  1909. void
    1910. 

  1910. test_nc_put_var1_float(void)
    1911. 

  1911. {
    1912. 

  1912.     int ncid;
    1913. 

  1913.     int i;
    1914. 

  1914.     int j;
    1915. 

  1915.     int err;
    1916. 

  1916.     size_t index[MAX_RANK];
    1917. 

  1917.     int canConvert;	/* Both text or both numeric */
    1918. 

  1918.     float value = 5;	/* any value would do - only for error cases */
    1919. 

  1919. 

  1920.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    1921. 

  1921.     IF (err) {
    1922. 

  1922.         error("nc_create: %s", nc_strerror(err));
    1923. 

  1923.         return;
    1924. 

  1924.     }
    1925. 

  1925.     def_dims(ncid);
    1926. 

  1926.     def_vars(ncid);
    1927. 

  1927.     err = nc_enddef(ncid);
    1928. 

  1928.     IF (err)
    1929. 

  1929.         error("nc_enddef: %s", nc_strerror(err));
    1930. 

  1930. 

  1931.     for (i = 0; i < NVARS; i++) {
    1932. 

  1932. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_FLOAT == NCT_TEXT);
    1933. 

  1933.         for (j = 0; j < var_rank[i]; j++)
    1934. 

  1934.             index[j] = 0;
    1935. 

  1935.         err = nc_put_var1_float(BAD_ID, i, index, &value);
    1936. 

  1936.         IF (err != NC_EBADID) 
    1937. 

  1937. 	    error("bad ncid: status = %d", err);
    1938. 

  1938.         err = nc_put_var1_float(ncid, BAD_VARID, index, &value);
    1939. 

  1939.         IF (err != NC_ENOTVAR) 
    1940. 

  1940. 	    error("bad var id: status = %d", err);
    1941. 

  1941.         for (j = 0; j < var_rank[i]; j++) {
    1942. 

  1942. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    1943. 

  1943. 		index[j] = var_shape[i][j];
    1944. 

  1944. 		err = nc_put_var1_float(ncid, i, index, &value);
    1945. 

  1945. 		IF (canConvert && err != NC_EINVALCOORDS)
    1946. 

  1946. 		    error("bad index: status = %d", err);
    1947. 

  1947. 		index[j] = 0;
    1948. 

  1948. 	    }
    1949. 

  1949.         }
    1950. 

  1950.         for (j = 0; j < var_nels[i]; j++) {
    1951. 

  1951.             err = toMixedBase(j, var_rank[i], var_shape[i], index);
    1952. 

  1952.             IF (err) 
    1953. 

  1953. 		error("error in toMixedBase 1");
    1954. 

  1954.             value = hash_float( var_type[i], var_rank[i], index, NCT_FLOAT);
    1955. 

  1955. 	    if (var_rank[i] == 0 && i%2 == 0)
    1956. 

  1956. 		err = nc_put_var1_float(ncid, i, NULL, &value);
    1957. 

  1957. 	    else
    1958. 

  1958. 		err = nc_put_var1_float(ncid, i, index, &value);
    1959. 

  1959. 	    if (canConvert) {
    1960. 

  1960. 		if (inRange3(value, var_type[i],NCT_FLOAT)) {
    1961. 

  1961. 		    IF (err)
    1962. 

  1962. 			error("%s", nc_strerror(err));
    1963. 

  1963. 		} else {
    1964. 

  1964. 		    IF (err != NC_ERANGE) {
    1965. 

  1965. 			error("Range error: status = %d", err);
    1966. 

  1966. 			error("\n\t\tfor type %s value %.17e %ld",
    1967. 

  1967. 				s_nc_type(var_type[i]),
    1968. 

  1968. 				(double)value, (long)value);
    1969. 

  1969. 		    }
    1970. 

  1970. 		}
    1971. 

  1971. 	    } else {
    1972. 

  1972. 		IF (err != NC_ECHAR)
    1973. 

  1973. 		    error("wrong type: status = %d", err);
    1974. 

  1974.             }
    1975. 

  1975.         }
    1976. 

  1976.     }
    1977. 

  1977. 

  1978.     err = nc_close(ncid);
    1979. 

  1979.     IF (err) 
    1980. 

  1980. 	error("nc_close: %s", nc_strerror(err));
    1981. 

  1981. 

  1982.     check_vars_float(scratch);
    1983. 

  1983. 

  1984.     err = remove(scratch);
    1985. 

  1985.     IF (err)
    1986. 

  1986.         error("remove of %s failed", scratch);
    1987. 

  1987. }
    1988. 

  1988. 

  1989. void
    1990. 

  1990. test_nc_put_var1_double(void)
    1991. 

  1991. {
    1992. 

  1992.     int ncid;
    1993. 

  1993.     int i;
    1994. 

  1994.     int j;
    1995. 

  1995.     int err;
    1996. 

  1996.     size_t index[MAX_RANK];
    1997. 

  1997.     int canConvert;	/* Both text or both numeric */
    1998. 

  1998.     double value = 5;	/* any value would do - only for error cases */
    1999. 

  1999. 

  2000.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2001. 

  2001.     IF (err) {
    2002. 

  2002.         error("nc_create: %s", nc_strerror(err));
    2003. 

  2003.         return;
    2004. 

  2004.     }
    2005. 

  2005.     def_dims(ncid);
    2006. 

  2006.     def_vars(ncid);
    2007. 

  2007.     err = nc_enddef(ncid);
    2008. 

  2008.     IF (err)
    2009. 

  2009.         error("nc_enddef: %s", nc_strerror(err));
    2010. 

  2010. 

  2011.     for (i = 0; i < NVARS; i++) {
    2012. 

  2012. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_DOUBLE == NCT_TEXT);
    2013. 

  2013.         for (j = 0; j < var_rank[i]; j++)
    2014. 

  2014.             index[j] = 0;
    2015. 

  2015.         err = nc_put_var1_double(BAD_ID, i, index, &value);
    2016. 

  2016.         IF (err != NC_EBADID) 
    2017. 

  2017. 	    error("bad ncid: status = %d", err);
    2018. 

  2018.         err = nc_put_var1_double(ncid, BAD_VARID, index, &value);
    2019. 

  2019.         IF (err != NC_ENOTVAR) 
    2020. 

  2020. 	    error("bad var id: status = %d", err);
    2021. 

  2021.         for (j = 0; j < var_rank[i]; j++) {
    2022. 

  2022. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    2023. 

  2023. 		index[j] = var_shape[i][j];
    2024. 

  2024. 		err = nc_put_var1_double(ncid, i, index, &value);
    2025. 

  2025. 		IF (canConvert && err != NC_EINVALCOORDS)
    2026. 

  2026. 		    error("bad index: status = %d", err);
    2027. 

  2027. 		index[j] = 0;
    2028. 

  2028. 	    }
    2029. 

  2029.         }
    2030. 

  2030.         for (j = 0; j < var_nels[i]; j++) {
    2031. 

  2031.             err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2032. 

  2032.             IF (err) 
    2033. 

  2033. 		error("error in toMixedBase 1");
    2034. 

  2034.             value = hash_double( var_type[i], var_rank[i], index, NCT_DOUBLE);
    2035. 

  2035. 	    if (var_rank[i] == 0 && i%2 == 0)
    2036. 

  2036. 		err = nc_put_var1_double(ncid, i, NULL, &value);
    2037. 

  2037. 	    else
    2038. 

  2038. 		err = nc_put_var1_double(ncid, i, index, &value);
    2039. 

  2039. 	    if (canConvert) {
    2040. 

  2040. 		if (inRange3(value, var_type[i],NCT_DOUBLE)) {
    2041. 

  2041. 		    IF (err)
    2042. 

  2042. 			error("%s", nc_strerror(err));
    2043. 

  2043. 		} else {
    2044. 

  2044. 		    IF (err != NC_ERANGE) {
    2045. 

  2045. 			error("Range error: status = %d", err);
    2046. 

  2046. 			error("\n\t\tfor type %s value %.17e %ld",
    2047. 

  2047. 				s_nc_type(var_type[i]),
    2048. 

  2048. 				(double)value, (long)value);
    2049. 

  2049. 		    }
    2050. 

  2050. 		}
    2051. 

  2051. 	    } else {
    2052. 

  2052. 		IF (err != NC_ECHAR)
    2053. 

  2053. 		    error("wrong type: status = %d", err);
    2054. 

  2054.             }
    2055. 

  2055.         }
    2056. 

  2056.     }
    2057. 

  2057. 

  2058.     err = nc_close(ncid);
    2059. 

  2059.     IF (err) 
    2060. 

  2060. 	error("nc_close: %s", nc_strerror(err));
    2061. 

  2061. 

  2062.     check_vars_double(scratch);
    2063. 

  2063. 

  2064.     err = remove(scratch);
    2065. 

  2065.     IF (err)
    2066. 

  2066.         error("remove of %s failed", scratch);
    2067. 

  2067. }
    2068. 

  2068. 

  2069. 

  2070. 

  2071. 

  2072. void
    2073. 

  2073. test_nc_put_var_text(void)
    2074. 

  2074. {
    2075. 

  2075.     int ncid;
    2076. 

  2076.     int varid;
    2077. 

  2077.     int i;
    2078. 

  2078.     int j;
    2079. 

  2079.     int err;
    2080. 

  2080.     int nels;
    2081. 

  2081.     size_t index[MAX_RANK];
    2082. 

  2082.     int canConvert;	/* Both text or both numeric */
    2083. 

  2083.     int allInExtRange;	/* all values within external range? */
    2084. 

  2084.     text value[MAX_NELS];
    2085. 

  2085. 

  2086.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2087. 

  2087.     IF (err) {
    2088. 

  2088.         error("nc_create: %s", nc_strerror(err));
    2089. 

  2089.         return;
    2090. 

  2090.     }
    2091. 

  2091.     def_dims(ncid);
    2092. 

  2092.     def_vars(ncid);
    2093. 

  2093.     err = nc_enddef(ncid);
    2094. 

  2094.     IF (err)
    2095. 

  2095.         error("nc_enddef: %s", nc_strerror(err));
    2096. 

  2096. 

  2097.     for (i = 0; i < NVARS; i++) {
    2098. 

  2098. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_TEXT == NCT_TEXT);
    2099. 

  2099.         assert(var_rank[i] <= MAX_RANK);
    2100. 

  2100.         assert(var_nels[i] <= MAX_NELS);
    2101. 

  2101.         err = nc_put_var_text(BAD_ID, i, value);
    2102. 

  2102.         IF (err != NC_EBADID) 
    2103. 

  2103. 	    error("bad ncid: status = %d", err);
    2104. 

  2104.         err = nc_put_var_text(ncid, BAD_VARID, value);
    2105. 

  2105.         IF (err != NC_ENOTVAR) 
    2106. 

  2106. 	    error("bad var id: status = %d", err);
    2107. 

  2107. 

  2108. 	nels = 1;
    2109. 

  2109. 	for (j = 0; j < var_rank[i]; j++) {
    2110. 

  2110. 	    nels *= var_shape[i][j];
    2111. 

  2111. 	}
    2112. 

  2112. 	for (allInExtRange = 1, j = 0; j < nels; j++) {
    2113. 

  2113. 	    err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2114. 

  2114. 	    IF (err) 
    2115. 

  2115. 		error("error in toMixedBase 1");
    2116. 

  2116. 	    value[j]= hash_text(var_type[i], var_rank[i], index, NCT_TEXT);
    2117. 

  2117. 	    allInExtRange = allInExtRange 
    2118. 

  2118. 		&& inRange3(value[j], var_type[i], NCT_TEXT);
    2119. 

  2119. 	}
    2120. 

  2120.         err = nc_put_var_text(ncid, i, value);
    2121. 

  2121. 	if (canConvert) {
    2122. 

  2122. 	    if (allInExtRange) {
    2123. 

  2123. 		IF (err) 
    2124. 

  2124. 		    error("%s", nc_strerror(err));
    2125. 

  2125. 	    } else {
    2126. 

  2126. 		IF (err != NC_ERANGE && var_dimid[i][0] != RECDIM)
    2127. 

  2127. 		    error("range error: status = %d", err);
    2128. 

  2128. 	    }
    2129. 

  2129. 	} else {       /* should flag wrong type even if nothing to write */
    2130. 

  2130. 	    IF (nels > 0 && err != NC_ECHAR)
    2131. 

  2131. 		error("wrong type: status = %d", err);
    2132. 

  2132. 	}
    2133. 

  2133.     }
    2134. 

  2134. 

  2135.         /* Preceeding has written nothing for record variables, now try */
    2136. 

  2136.         /* again with more than 0 records */
    2137. 

  2137. 

  2138. 	/* Write record number NRECS to force writing of preceding records */
    2139. 

  2139. 	/* Assumes variable cr is char vector with UNLIMITED dimension */
    2140. 

  2140.     err = nc_inq_varid(ncid, "cr", &varid);
    2141. 

  2141.     IF (err)
    2142. 

  2142.         error("nc_inq_varid: %s", nc_strerror(err));
    2143. 

  2143.     index[0] = NRECS-1;
    2144. 

  2144.     err = nc_put_var1_text(ncid, varid, index, "x");
    2145. 

  2145.     IF (err)
    2146. 

  2146.         error("nc_put_var1_text: %s", nc_strerror(err));
    2147. 

  2147. 

  2148.     for (i = 0; i < NVARS; i++) {
    2149. 

  2149.         if (var_dimid[i][0] == RECDIM) {  /* only test record variables here */
    2150. 

  2150. 	    canConvert = (var_type[i] == NC_CHAR) == (NCT_TEXT == NCT_TEXT);
    2151. 

  2151. 	    assert(var_rank[i] <= MAX_RANK);
    2152. 

  2152. 	    assert(var_nels[i] <= MAX_NELS);
    2153. 

  2153. 	    err = nc_put_var_text(BAD_ID, i, value);
    2154. 

  2154. 

  2155. 	    nels = 1;
    2156. 

  2156. 	    for (j = 0; j < var_rank[i]; j++) {
    2157. 

  2157. 		nels *= var_shape[i][j];
    2158. 

  2158. 	    }
    2159. 

  2159. 	    for (allInExtRange = 1, j = 0; j < nels; j++) {
    2160. 

  2160. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2161. 

  2161. 		IF (err) 
    2162. 

  2162. 		    error("error in toMixedBase 1");
    2163. 

  2163. 		value[j]= hash_text(var_type[i], var_rank[i], index, NCT_TEXT);
    2164. 

  2164. 		allInExtRange = allInExtRange 
    2165. 

  2165. 		    && inRange3(value[j], var_type[i], NCT_TEXT);
    2166. 

  2166. 	    }
    2167. 

  2167. 	    err = nc_put_var_text(ncid, i, value);
    2168. 

  2168. 	    if (canConvert) {
    2169. 

  2169. 		if (allInExtRange) {
    2170. 

  2170. 		    IF (err) 
    2171. 

  2171. 			error("%s", nc_strerror(err));
    2172. 

  2172. 		} else {
    2173. 

  2173. 		    IF (err != NC_ERANGE)
    2174. 

  2174. 			error("range error: status = %d", err);
    2175. 

  2175. 		}
    2176. 

  2176. 	    } else {
    2177. 

  2177. 		IF (nels > 0 && err != NC_ECHAR)
    2178. 

  2178. 		    error("wrong type: status = %d", err);
    2179. 

  2179. 	    }
    2180. 

  2180.         }
    2181. 

  2181.     }
    2182. 

  2182. 

  2183.     err = nc_close(ncid);
    2184. 

  2184.     IF (err) 
    2185. 

  2185. 	error("nc_close: %s", nc_strerror(err));
    2186. 

  2186. 

  2187.     check_vars_text(scratch);
    2188. 

  2188. 

  2189.     err = remove(scratch);
    2190. 

  2190.     IF (err)
    2191. 

  2191.         error("remove of %s failed", scratch);
    2192. 

  2192. }
    2193. 

  2193. 

  2194. void
    2195. 

  2195. test_nc_put_var_uchar(void)
    2196. 

  2196. {
    2197. 

  2197.     int ncid;
    2198. 

  2198.     int varid;
    2199. 

  2199.     int i;
    2200. 

  2200.     int j;
    2201. 

  2201.     int err;
    2202. 

  2202.     int nels;
    2203. 

  2203.     size_t index[MAX_RANK];
    2204. 

  2204.     int canConvert;	/* Both text or both numeric */
    2205. 

  2205.     int allInExtRange;	/* all values within external range? */
    2206. 

  2206.     uchar value[MAX_NELS];
    2207. 

  2207. 

  2208.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2209. 

  2209.     IF (err) {
    2210. 

  2210.         error("nc_create: %s", nc_strerror(err));
    2211. 

  2211.         return;
    2212. 

  2212.     }
    2213. 

  2213.     def_dims(ncid);
    2214. 

  2214.     def_vars(ncid);
    2215. 

  2215.     err = nc_enddef(ncid);
    2216. 

  2216.     IF (err)
    2217. 

  2217.         error("nc_enddef: %s", nc_strerror(err));
    2218. 

  2218. 

  2219.     for (i = 0; i < NVARS; i++) {
    2220. 

  2220. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_UCHAR == NCT_TEXT);
    2221. 

  2221.         assert(var_rank[i] <= MAX_RANK);
    2222. 

  2222.         assert(var_nels[i] <= MAX_NELS);
    2223. 

  2223.         err = nc_put_var_uchar(BAD_ID, i, value);
    2224. 

  2224.         IF (err != NC_EBADID) 
    2225. 

  2225. 	    error("bad ncid: status = %d", err);
    2226. 

  2226.         err = nc_put_var_uchar(ncid, BAD_VARID, value);
    2227. 

  2227.         IF (err != NC_ENOTVAR) 
    2228. 

  2228. 	    error("bad var id: status = %d", err);
    2229. 

  2229. 

  2230. 	nels = 1;
    2231. 

  2231. 	for (j = 0; j < var_rank[i]; j++) {
    2232. 

  2232. 	    nels *= var_shape[i][j];
    2233. 

  2233. 	}
    2234. 

  2234. 	for (allInExtRange = 1, j = 0; j < nels; j++) {
    2235. 

  2235. 	    err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2236. 

  2236. 	    IF (err) 
    2237. 

  2237. 		error("error in toMixedBase 1");
    2238. 

  2238. 	    value[j]= hash_uchar(var_type[i], var_rank[i], index, NCT_UCHAR);
    2239. 

  2239. 	    allInExtRange = allInExtRange 
    2240. 

  2240. 		&& inRange3(value[j], var_type[i], NCT_UCHAR);
    2241. 

  2241. 	}
    2242. 

  2242.         err = nc_put_var_uchar(ncid, i, value);
    2243. 

  2243. 	if (canConvert) {
    2244. 

  2244. 	    if (allInExtRange) {
    2245. 

  2245. 		IF (err) 
    2246. 

  2246. 		    error("%s", nc_strerror(err));
    2247. 

  2247. 	    } else {
    2248. 

  2248. 		IF (err != NC_ERANGE && var_dimid[i][0] != RECDIM)
    2249. 

  2249. 		    error("range error: status = %d", err);
    2250. 

  2250. 	    }
    2251. 

  2251. 	} else {       /* should flag wrong type even if nothing to write */
    2252. 

  2252. 	    IF (nels > 0 && err != NC_ECHAR)
    2253. 

  2253. 		error("wrong type: status = %d", err);
    2254. 

  2254. 	}
    2255. 

  2255.     }
    2256. 

  2256. 

  2257.         /* Preceeding has written nothing for record variables, now try */
    2258. 

  2258.         /* again with more than 0 records */
    2259. 

  2259. 

  2260. 	/* Write record number NRECS to force writing of preceding records */
    2261. 

  2261. 	/* Assumes variable cr is char vector with UNLIMITED dimension */
    2262. 

  2262.     err = nc_inq_varid(ncid, "cr", &varid);
    2263. 

  2263.     IF (err)
    2264. 

  2264.         error("nc_inq_varid: %s", nc_strerror(err));
    2265. 

  2265.     index[0] = NRECS-1;
    2266. 

  2266.     err = nc_put_var1_text(ncid, varid, index, "x");
    2267. 

  2267.     IF (err)
    2268. 

  2268.         error("nc_put_var1_text: %s", nc_strerror(err));
    2269. 

  2269. 

  2270.     for (i = 0; i < NVARS; i++) {
    2271. 

  2271.         if (var_dimid[i][0] == RECDIM) {  /* only test record variables here */
    2272. 

  2272. 	    canConvert = (var_type[i] == NC_CHAR) == (NCT_UCHAR == NCT_TEXT);
    2273. 

  2273. 	    assert(var_rank[i] <= MAX_RANK);
    2274. 

  2274. 	    assert(var_nels[i] <= MAX_NELS);
    2275. 

  2275. 	    err = nc_put_var_uchar(BAD_ID, i, value);
    2276. 

  2276. 

  2277. 	    nels = 1;
    2278. 

  2278. 	    for (j = 0; j < var_rank[i]; j++) {
    2279. 

  2279. 		nels *= var_shape[i][j];
    2280. 

  2280. 	    }
    2281. 

  2281. 	    for (allInExtRange = 1, j = 0; j < nels; j++) {
    2282. 

  2282. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2283. 

  2283. 		IF (err) 
    2284. 

  2284. 		    error("error in toMixedBase 1");
    2285. 

  2285. 		value[j]= hash_uchar(var_type[i], var_rank[i], index, NCT_UCHAR);
    2286. 

  2286. 		allInExtRange = allInExtRange 
    2287. 

  2287. 		    && inRange3(value[j], var_type[i], NCT_UCHAR);
    2288. 

  2288. 	    }
    2289. 

  2289. 	    err = nc_put_var_uchar(ncid, i, value);
    2290. 

  2290. 	    if (canConvert) {
    2291. 

  2291. 		if (allInExtRange) {
    2292. 

  2292. 		    IF (err) 
    2293. 

  2293. 			error("%s", nc_strerror(err));
    2294. 

  2294. 		} else {
    2295. 

  2295. 		    IF (err != NC_ERANGE)
    2296. 

  2296. 			error("range error: status = %d", err);
    2297. 

  2297. 		}
    2298. 

  2298. 	    } else {
    2299. 

  2299. 		IF (nels > 0 && err != NC_ECHAR)
    2300. 

  2300. 		    error("wrong type: status = %d", err);
    2301. 

  2301. 	    }
    2302. 

  2302.         }
    2303. 

  2303.     }
    2304. 

  2304. 

  2305.     err = nc_close(ncid);
    2306. 

  2306.     IF (err) 
    2307. 

  2307. 	error("nc_close: %s", nc_strerror(err));
    2308. 

  2308. 

  2309.     check_vars_uchar(scratch);
    2310. 

  2310. 

  2311.     err = remove(scratch);
    2312. 

  2312.     IF (err)
    2313. 

  2313.         error("remove of %s failed", scratch);
    2314. 

  2314. }
    2315. 

  2315. 

  2316. void
    2317. 

  2317. test_nc_put_var_schar(void)
    2318. 

  2318. {
    2319. 

  2319.     int ncid;
    2320. 

  2320.     int varid;
    2321. 

  2321.     int i;
    2322. 

  2322.     int j;
    2323. 

  2323.     int err;
    2324. 

  2324.     int nels;
    2325. 

  2325.     size_t index[MAX_RANK];
    2326. 

  2326.     int canConvert;	/* Both text or both numeric */
    2327. 

  2327.     int allInExtRange;	/* all values within external range? */
    2328. 

  2328.     schar value[MAX_NELS];
    2329. 

  2329. 

  2330.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2331. 

  2331.     IF (err) {
    2332. 

  2332.         error("nc_create: %s", nc_strerror(err));
    2333. 

  2333.         return;
    2334. 

  2334.     }
    2335. 

  2335.     def_dims(ncid);
    2336. 

  2336.     def_vars(ncid);
    2337. 

  2337.     err = nc_enddef(ncid);
    2338. 

  2338.     IF (err)
    2339. 

  2339.         error("nc_enddef: %s", nc_strerror(err));
    2340. 

  2340. 

  2341.     for (i = 0; i < NVARS; i++) {
    2342. 

  2342. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SCHAR == NCT_TEXT);
    2343. 

  2343.         assert(var_rank[i] <= MAX_RANK);
    2344. 

  2344.         assert(var_nels[i] <= MAX_NELS);
    2345. 

  2345.         err = nc_put_var_schar(BAD_ID, i, value);
    2346. 

  2346.         IF (err != NC_EBADID) 
    2347. 

  2347. 	    error("bad ncid: status = %d", err);
    2348. 

  2348.         err = nc_put_var_schar(ncid, BAD_VARID, value);
    2349. 

  2349.         IF (err != NC_ENOTVAR) 
    2350. 

  2350. 	    error("bad var id: status = %d", err);
    2351. 

  2351. 

  2352. 	nels = 1;
    2353. 

  2353. 	for (j = 0; j < var_rank[i]; j++) {
    2354. 

  2354. 	    nels *= var_shape[i][j];
    2355. 

  2355. 	}
    2356. 

  2356. 	for (allInExtRange = 1, j = 0; j < nels; j++) {
    2357. 

  2357. 	    err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2358. 

  2358. 	    IF (err) 
    2359. 

  2359. 		error("error in toMixedBase 1");
    2360. 

  2360. 	    value[j]= hash_schar(var_type[i], var_rank[i], index, NCT_SCHAR);
    2361. 

  2361. 	    allInExtRange = allInExtRange 
    2362. 

  2362. 		&& inRange3(value[j], var_type[i], NCT_SCHAR);
    2363. 

  2363. 	}
    2364. 

  2364.         err = nc_put_var_schar(ncid, i, value);
    2365. 

  2365. 	if (canConvert) {
    2366. 

  2366. 	    if (allInExtRange) {
    2367. 

  2367. 		IF (err) 
    2368. 

  2368. 		    error("%s", nc_strerror(err));
    2369. 

  2369. 	    } else {
    2370. 

  2370. 		IF (err != NC_ERANGE && var_dimid[i][0] != RECDIM)
    2371. 

  2371. 		    error("range error: status = %d", err);
    2372. 

  2372. 	    }
    2373. 

  2373. 	} else {       /* should flag wrong type even if nothing to write */
    2374. 

  2374. 	    IF (nels > 0 && err != NC_ECHAR)
    2375. 

  2375. 		error("wrong type: status = %d", err);
    2376. 

  2376. 	}
    2377. 

  2377.     }
    2378. 

  2378. 

  2379.         /* Preceeding has written nothing for record variables, now try */
    2380. 

  2380.         /* again with more than 0 records */
    2381. 

  2381. 

  2382. 	/* Write record number NRECS to force writing of preceding records */
    2383. 

  2383. 	/* Assumes variable cr is char vector with UNLIMITED dimension */
    2384. 

  2384.     err = nc_inq_varid(ncid, "cr", &varid);
    2385. 

  2385.     IF (err)
    2386. 

  2386.         error("nc_inq_varid: %s", nc_strerror(err));
    2387. 

  2387.     index[0] = NRECS-1;
    2388. 

  2388.     err = nc_put_var1_text(ncid, varid, index, "x");
    2389. 

  2389.     IF (err)
    2390. 

  2390.         error("nc_put_var1_text: %s", nc_strerror(err));
    2391. 

  2391. 

  2392.     for (i = 0; i < NVARS; i++) {
    2393. 

  2393.         if (var_dimid[i][0] == RECDIM) {  /* only test record variables here */
    2394. 

  2394. 	    canConvert = (var_type[i] == NC_CHAR) == (NCT_SCHAR == NCT_TEXT);
    2395. 

  2395. 	    assert(var_rank[i] <= MAX_RANK);
    2396. 

  2396. 	    assert(var_nels[i] <= MAX_NELS);
    2397. 

  2397. 	    err = nc_put_var_schar(BAD_ID, i, value);
    2398. 

  2398. 

  2399. 	    nels = 1;
    2400. 

  2400. 	    for (j = 0; j < var_rank[i]; j++) {
    2401. 

  2401. 		nels *= var_shape[i][j];
    2402. 

  2402. 	    }
    2403. 

  2403. 	    for (allInExtRange = 1, j = 0; j < nels; j++) {
    2404. 

  2404. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2405. 

  2405. 		IF (err) 
    2406. 

  2406. 		    error("error in toMixedBase 1");
    2407. 

  2407. 		value[j]= hash_schar(var_type[i], var_rank[i], index, NCT_SCHAR);
    2408. 

  2408. 		allInExtRange = allInExtRange 
    2409. 

  2409. 		    && inRange3(value[j], var_type[i], NCT_SCHAR);
    2410. 

  2410. 	    }
    2411. 

  2411. 	    err = nc_put_var_schar(ncid, i, value);
    2412. 

  2412. 	    if (canConvert) {
    2413. 

  2413. 		if (allInExtRange) {
    2414. 

  2414. 		    IF (err) 
    2415. 

  2415. 			error("%s", nc_strerror(err));
    2416. 

  2416. 		} else {
    2417. 

  2417. 		    IF (err != NC_ERANGE)
    2418. 

  2418. 			error("range error: status = %d", err);
    2419. 

  2419. 		}
    2420. 

  2420. 	    } else {
    2421. 

  2421. 		IF (nels > 0 && err != NC_ECHAR)
    2422. 

  2422. 		    error("wrong type: status = %d", err);
    2423. 

  2423. 	    }
    2424. 

  2424.         }
    2425. 

  2425.     }
    2426. 

  2426. 

  2427.     err = nc_close(ncid);
    2428. 

  2428.     IF (err) 
    2429. 

  2429. 	error("nc_close: %s", nc_strerror(err));
    2430. 

  2430. 

  2431.     check_vars_schar(scratch);
    2432. 

  2432. 

  2433.     err = remove(scratch);
    2434. 

  2434.     IF (err)
    2435. 

  2435.         error("remove of %s failed", scratch);
    2436. 

  2436. }
    2437. 

  2437. 

  2438. void
    2439. 

  2439. test_nc_put_var_short(void)
    2440. 

  2440. {
    2441. 

  2441.     int ncid;
    2442. 

  2442.     int varid;
    2443. 

  2443.     int i;
    2444. 

  2444.     int j;
    2445. 

  2445.     int err;
    2446. 

  2446.     int nels;
    2447. 

  2447.     size_t index[MAX_RANK];
    2448. 

  2448.     int canConvert;	/* Both text or both numeric */
    2449. 

  2449.     int allInExtRange;	/* all values within external range? */
    2450. 

  2450.     short value[MAX_NELS];
    2451. 

  2451. 

  2452.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2453. 

  2453.     IF (err) {
    2454. 

  2454.         error("nc_create: %s", nc_strerror(err));
    2455. 

  2455.         return;
    2456. 

  2456.     }
    2457. 

  2457.     def_dims(ncid);
    2458. 

  2458.     def_vars(ncid);
    2459. 

  2459.     err = nc_enddef(ncid);
    2460. 

  2460.     IF (err)
    2461. 

  2461.         error("nc_enddef: %s", nc_strerror(err));
    2462. 

  2462. 

  2463.     for (i = 0; i < NVARS; i++) {
    2464. 

  2464. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SHORT == NCT_TEXT);
    2465. 

  2465.         assert(var_rank[i] <= MAX_RANK);
    2466. 

  2466.         assert(var_nels[i] <= MAX_NELS);
    2467. 

  2467.         err = nc_put_var_short(BAD_ID, i, value);
    2468. 

  2468.         IF (err != NC_EBADID) 
    2469. 

  2469. 	    error("bad ncid: status = %d", err);
    2470. 

  2470.         err = nc_put_var_short(ncid, BAD_VARID, value);
    2471. 

  2471.         IF (err != NC_ENOTVAR) 
    2472. 

  2472. 	    error("bad var id: status = %d", err);
    2473. 

  2473. 

  2474. 	nels = 1;
    2475. 

  2475. 	for (j = 0; j < var_rank[i]; j++) {
    2476. 

  2476. 	    nels *= var_shape[i][j];
    2477. 

  2477. 	}
    2478. 

  2478. 	for (allInExtRange = 1, j = 0; j < nels; j++) {
    2479. 

  2479. 	    err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2480. 

  2480. 	    IF (err) 
    2481. 

  2481. 		error("error in toMixedBase 1");
    2482. 

  2482. 	    value[j]= hash_short(var_type[i], var_rank[i], index, NCT_SHORT);
    2483. 

  2483. 	    allInExtRange = allInExtRange 
    2484. 

  2484. 		&& inRange3(value[j], var_type[i], NCT_SHORT);
    2485. 

  2485. 	}
    2486. 

  2486.         err = nc_put_var_short(ncid, i, value);
    2487. 

  2487. 	if (canConvert) {
    2488. 

  2488. 	    if (allInExtRange) {
    2489. 

  2489. 		IF (err) 
    2490. 

  2490. 		    error("%s", nc_strerror(err));
    2491. 

  2491. 	    } else {
    2492. 

  2492. 		IF (err != NC_ERANGE && var_dimid[i][0] != RECDIM)
    2493. 

  2493. 		    error("range error: status = %d", err);
    2494. 

  2494. 	    }
    2495. 

  2495. 	} else {       /* should flag wrong type even if nothing to write */
    2496. 

  2496. 	    IF (nels > 0 && err != NC_ECHAR)
    2497. 

  2497. 		error("wrong type: status = %d", err);
    2498. 

  2498. 	}
    2499. 

  2499.     }
    2500. 

  2500. 

  2501.         /* Preceeding has written nothing for record variables, now try */
    2502. 

  2502.         /* again with more than 0 records */
    2503. 

  2503. 

  2504. 	/* Write record number NRECS to force writing of preceding records */
    2505. 

  2505. 	/* Assumes variable cr is char vector with UNLIMITED dimension */
    2506. 

  2506.     err = nc_inq_varid(ncid, "cr", &varid);
    2507. 

  2507.     IF (err)
    2508. 

  2508.         error("nc_inq_varid: %s", nc_strerror(err));
    2509. 

  2509.     index[0] = NRECS-1;
    2510. 

  2510.     err = nc_put_var1_text(ncid, varid, index, "x");
    2511. 

  2511.     IF (err)
    2512. 

  2512.         error("nc_put_var1_text: %s", nc_strerror(err));
    2513. 

  2513. 

  2514.     for (i = 0; i < NVARS; i++) {
    2515. 

  2515.         if (var_dimid[i][0] == RECDIM) {  /* only test record variables here */
    2516. 

  2516. 	    canConvert = (var_type[i] == NC_CHAR) == (NCT_SHORT == NCT_TEXT);
    2517. 

  2517. 	    assert(var_rank[i] <= MAX_RANK);
    2518. 

  2518. 	    assert(var_nels[i] <= MAX_NELS);
    2519. 

  2519. 	    err = nc_put_var_short(BAD_ID, i, value);
    2520. 

  2520. 

  2521. 	    nels = 1;
    2522. 

  2522. 	    for (j = 0; j < var_rank[i]; j++) {
    2523. 

  2523. 		nels *= var_shape[i][j];
    2524. 

  2524. 	    }
    2525. 

  2525. 	    for (allInExtRange = 1, j = 0; j < nels; j++) {
    2526. 

  2526. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2527. 

  2527. 		IF (err) 
    2528. 

  2528. 		    error("error in toMixedBase 1");
    2529. 

  2529. 		value[j]= hash_short(var_type[i], var_rank[i], index, NCT_SHORT);
    2530. 

  2530. 		allInExtRange = allInExtRange 
    2531. 

  2531. 		    && inRange3(value[j], var_type[i], NCT_SHORT);
    2532. 

  2532. 	    }
    2533. 

  2533. 	    err = nc_put_var_short(ncid, i, value);
    2534. 

  2534. 	    if (canConvert) {
    2535. 

  2535. 		if (allInExtRange) {
    2536. 

  2536. 		    IF (err) 
    2537. 

  2537. 			error("%s", nc_strerror(err));
    2538. 

  2538. 		} else {
    2539. 

  2539. 		    IF (err != NC_ERANGE)
    2540. 

  2540. 			error("range error: status = %d", err);
    2541. 

  2541. 		}
    2542. 

  2542. 	    } else {
    2543. 

  2543. 		IF (nels > 0 && err != NC_ECHAR)
    2544. 

  2544. 		    error("wrong type: status = %d", err);
    2545. 

  2545. 	    }
    2546. 

  2546.         }
    2547. 

  2547.     }
    2548. 

  2548. 

  2549.     err = nc_close(ncid);
    2550. 

  2550.     IF (err) 
    2551. 

  2551. 	error("nc_close: %s", nc_strerror(err));
    2552. 

  2552. 

  2553.     check_vars_short(scratch);
    2554. 

  2554. 

  2555.     err = remove(scratch);
    2556. 

  2556.     IF (err)
    2557. 

  2557.         error("remove of %s failed", scratch);
    2558. 

  2558. }
    2559. 

  2559. 

  2560. void
    2561. 

  2561. test_nc_put_var_int(void)
    2562. 

  2562. {
    2563. 

  2563.     int ncid;
    2564. 

  2564.     int varid;
    2565. 

  2565.     int i;
    2566. 

  2566.     int j;
    2567. 

  2567.     int err;
    2568. 

  2568.     int nels;
    2569. 

  2569.     size_t index[MAX_RANK];
    2570. 

  2570.     int canConvert;	/* Both text or both numeric */
    2571. 

  2571.     int allInExtRange;	/* all values within external range? */
    2572. 

  2572.     int value[MAX_NELS];
    2573. 

  2573. 

  2574.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2575. 

  2575.     IF (err) {
    2576. 

  2576.         error("nc_create: %s", nc_strerror(err));
    2577. 

  2577.         return;
    2578. 

  2578.     }
    2579. 

  2579.     def_dims(ncid);
    2580. 

  2580.     def_vars(ncid);
    2581. 

  2581.     err = nc_enddef(ncid);
    2582. 

  2582.     IF (err)
    2583. 

  2583.         error("nc_enddef: %s", nc_strerror(err));
    2584. 

  2584. 

  2585.     for (i = 0; i < NVARS; i++) {
    2586. 

  2586. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_INT == NCT_TEXT);
    2587. 

  2587.         assert(var_rank[i] <= MAX_RANK);
    2588. 

  2588.         assert(var_nels[i] <= MAX_NELS);
    2589. 

  2589.         err = nc_put_var_int(BAD_ID, i, value);
    2590. 

  2590.         IF (err != NC_EBADID) 
    2591. 

  2591. 	    error("bad ncid: status = %d", err);
    2592. 

  2592.         err = nc_put_var_int(ncid, BAD_VARID, value);
    2593. 

  2593.         IF (err != NC_ENOTVAR) 
    2594. 

  2594. 	    error("bad var id: status = %d", err);
    2595. 

  2595. 

  2596. 	nels = 1;
    2597. 

  2597. 	for (j = 0; j < var_rank[i]; j++) {
    2598. 

  2598. 	    nels *= var_shape[i][j];
    2599. 

  2599. 	}
    2600. 

  2600. 	for (allInExtRange = 1, j = 0; j < nels; j++) {
    2601. 

  2601. 	    err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2602. 

  2602. 	    IF (err) 
    2603. 

  2603. 		error("error in toMixedBase 1");
    2604. 

  2604. 	    value[j]= hash_int(var_type[i], var_rank[i], index, NCT_INT);
    2605. 

  2605. 	    allInExtRange = allInExtRange 
    2606. 

  2606. 		&& inRange3(value[j], var_type[i], NCT_INT);
    2607. 

  2607. 	}
    2608. 

  2608.         err = nc_put_var_int(ncid, i, value);
    2609. 

  2609. 	if (canConvert) {
    2610. 

  2610. 	    if (allInExtRange) {
    2611. 

  2611. 		IF (err) 
    2612. 

  2612. 		    error("%s", nc_strerror(err));
    2613. 

  2613. 	    } else {
    2614. 

  2614. 		IF (err != NC_ERANGE && var_dimid[i][0] != RECDIM)
    2615. 

  2615. 		    error("range error: status = %d", err);
    2616. 

  2616. 	    }
    2617. 

  2617. 	} else {       /* should flag wrong type even if nothing to write */
    2618. 

  2618. 	    IF (nels > 0 && err != NC_ECHAR)
    2619. 

  2619. 		error("wrong type: status = %d", err);
    2620. 

  2620. 	}
    2621. 

  2621.     }
    2622. 

  2622. 

  2623.         /* Preceeding has written nothing for record variables, now try */
    2624. 

  2624.         /* again with more than 0 records */
    2625. 

  2625. 

  2626. 	/* Write record number NRECS to force writing of preceding records */
    2627. 

  2627. 	/* Assumes variable cr is char vector with UNLIMITED dimension */
    2628. 

  2628.     err = nc_inq_varid(ncid, "cr", &varid);
    2629. 

  2629.     IF (err)
    2630. 

  2630.         error("nc_inq_varid: %s", nc_strerror(err));
    2631. 

  2631.     index[0] = NRECS-1;
    2632. 

  2632.     err = nc_put_var1_text(ncid, varid, index, "x");
    2633. 

  2633.     IF (err)
    2634. 

  2634.         error("nc_put_var1_text: %s", nc_strerror(err));
    2635. 

  2635. 

  2636.     for (i = 0; i < NVARS; i++) {
    2637. 

  2637.         if (var_dimid[i][0] == RECDIM) {  /* only test record variables here */
    2638. 

  2638. 	    canConvert = (var_type[i] == NC_CHAR) == (NCT_INT == NCT_TEXT);
    2639. 

  2639. 	    assert(var_rank[i] <= MAX_RANK);
    2640. 

  2640. 	    assert(var_nels[i] <= MAX_NELS);
    2641. 

  2641. 	    err = nc_put_var_int(BAD_ID, i, value);
    2642. 

  2642. 

  2643. 	    nels = 1;
    2644. 

  2644. 	    for (j = 0; j < var_rank[i]; j++) {
    2645. 

  2645. 		nels *= var_shape[i][j];
    2646. 

  2646. 	    }
    2647. 

  2647. 	    for (allInExtRange = 1, j = 0; j < nels; j++) {
    2648. 

  2648. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2649. 

  2649. 		IF (err) 
    2650. 

  2650. 		    error("error in toMixedBase 1");
    2651. 

  2651. 		value[j]= hash_int(var_type[i], var_rank[i], index, NCT_INT);
    2652. 

  2652. 		allInExtRange = allInExtRange 
    2653. 

  2653. 		    && inRange3(value[j], var_type[i], NCT_INT);
    2654. 

  2654. 	    }
    2655. 

  2655. 	    err = nc_put_var_int(ncid, i, value);
    2656. 

  2656. 	    if (canConvert) {
    2657. 

  2657. 		if (allInExtRange) {
    2658. 

  2658. 		    IF (err) 
    2659. 

  2659. 			error("%s", nc_strerror(err));
    2660. 

  2660. 		} else {
    2661. 

  2661. 		    IF (err != NC_ERANGE)
    2662. 

  2662. 			error("range error: status = %d", err);
    2663. 

  2663. 		}
    2664. 

  2664. 	    } else {
    2665. 

  2665. 		IF (nels > 0 && err != NC_ECHAR)
    2666. 

  2666. 		    error("wrong type: status = %d", err);
    2667. 

  2667. 	    }
    2668. 

  2668.         }
    2669. 

  2669.     }
    2670. 

  2670. 

  2671.     err = nc_close(ncid);
    2672. 

  2672.     IF (err) 
    2673. 

  2673. 	error("nc_close: %s", nc_strerror(err));
    2674. 

  2674. 

  2675.     check_vars_int(scratch);
    2676. 

  2676. 

  2677.     err = remove(scratch);
    2678. 

  2678.     IF (err)
    2679. 

  2679.         error("remove of %s failed", scratch);
    2680. 

  2680. }
    2681. 

  2681. 

  2682. void
    2683. 

  2683. test_nc_put_var_long(void)
    2684. 

  2684. {
    2685. 

  2685.     int ncid;
    2686. 

  2686.     int varid;
    2687. 

  2687.     int i;
    2688. 

  2688.     int j;
    2689. 

  2689.     int err;
    2690. 

  2690.     int nels;
    2691. 

  2691.     size_t index[MAX_RANK];
    2692. 

  2692.     int canConvert;	/* Both text or both numeric */
    2693. 

  2693.     int allInExtRange;	/* all values within external range? */
    2694. 

  2694.     long value[MAX_NELS];
    2695. 

  2695. 

  2696.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2697. 

  2697.     IF (err) {
    2698. 

  2698.         error("nc_create: %s", nc_strerror(err));
    2699. 

  2699.         return;
    2700. 

  2700.     }
    2701. 

  2701.     def_dims(ncid);
    2702. 

  2702.     def_vars(ncid);
    2703. 

  2703.     err = nc_enddef(ncid);
    2704. 

  2704.     IF (err)
    2705. 

  2705.         error("nc_enddef: %s", nc_strerror(err));
    2706. 

  2706. 

  2707.     for (i = 0; i < NVARS; i++) {
    2708. 

  2708. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_LONG == NCT_TEXT);
    2709. 

  2709.         assert(var_rank[i] <= MAX_RANK);
    2710. 

  2710.         assert(var_nels[i] <= MAX_NELS);
    2711. 

  2711.         err = nc_put_var_long(BAD_ID, i, value);
    2712. 

  2712.         IF (err != NC_EBADID) 
    2713. 

  2713. 	    error("bad ncid: status = %d", err);
    2714. 

  2714.         err = nc_put_var_long(ncid, BAD_VARID, value);
    2715. 

  2715.         IF (err != NC_ENOTVAR) 
    2716. 

  2716. 	    error("bad var id: status = %d", err);
    2717. 

  2717. 

  2718. 	nels = 1;
    2719. 

  2719. 	for (j = 0; j < var_rank[i]; j++) {
    2720. 

  2720. 	    nels *= var_shape[i][j];
    2721. 

  2721. 	}
    2722. 

  2722. 	for (allInExtRange = 1, j = 0; j < nels; j++) {
    2723. 

  2723. 	    err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2724. 

  2724. 	    IF (err) 
    2725. 

  2725. 		error("error in toMixedBase 1");
    2726. 

  2726. 	    value[j]= hash_long(var_type[i], var_rank[i], index, NCT_LONG);
    2727. 

  2727. 	    allInExtRange = allInExtRange 
    2728. 

  2728. 		&& inRange3(value[j], var_type[i], NCT_LONG);
    2729. 

  2729. 	}
    2730. 

  2730.         err = nc_put_var_long(ncid, i, value);
    2731. 

  2731. 	if (canConvert) {
    2732. 

  2732. 	    if (allInExtRange) {
    2733. 

  2733. 		IF (err) 
    2734. 

  2734. 		    error("%s", nc_strerror(err));
    2735. 

  2735. 	    } else {
    2736. 

  2736. 		IF (err != NC_ERANGE && var_dimid[i][0] != RECDIM)
    2737. 

  2737. 		    error("range error: status = %d", err);
    2738. 

  2738. 	    }
    2739. 

  2739. 	} else {       /* should flag wrong type even if nothing to write */
    2740. 

  2740. 	    IF (nels > 0 && err != NC_ECHAR)
    2741. 

  2741. 		error("wrong type: status = %d", err);
    2742. 

  2742. 	}
    2743. 

  2743.     }
    2744. 

  2744. 

  2745.         /* Preceeding has written nothing for record variables, now try */
    2746. 

  2746.         /* again with more than 0 records */
    2747. 

  2747. 

  2748. 	/* Write record number NRECS to force writing of preceding records */
    2749. 

  2749. 	/* Assumes variable cr is char vector with UNLIMITED dimension */
    2750. 

  2750.     err = nc_inq_varid(ncid, "cr", &varid);
    2751. 

  2751.     IF (err)
    2752. 

  2752.         error("nc_inq_varid: %s", nc_strerror(err));
    2753. 

  2753.     index[0] = NRECS-1;
    2754. 

  2754.     err = nc_put_var1_text(ncid, varid, index, "x");
    2755. 

  2755.     IF (err)
    2756. 

  2756.         error("nc_put_var1_text: %s", nc_strerror(err));
    2757. 

  2757. 

  2758.     for (i = 0; i < NVARS; i++) {
    2759. 

  2759.         if (var_dimid[i][0] == RECDIM) {  /* only test record variables here */
    2760. 

  2760. 	    canConvert = (var_type[i] == NC_CHAR) == (NCT_LONG == NCT_TEXT);
    2761. 

  2761. 	    assert(var_rank[i] <= MAX_RANK);
    2762. 

  2762. 	    assert(var_nels[i] <= MAX_NELS);
    2763. 

  2763. 	    err = nc_put_var_long(BAD_ID, i, value);
    2764. 

  2764. 

  2765. 	    nels = 1;
    2766. 

  2766. 	    for (j = 0; j < var_rank[i]; j++) {
    2767. 

  2767. 		nels *= var_shape[i][j];
    2768. 

  2768. 	    }
    2769. 

  2769. 	    for (allInExtRange = 1, j = 0; j < nels; j++) {
    2770. 

  2770. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2771. 

  2771. 		IF (err) 
    2772. 

  2772. 		    error("error in toMixedBase 1");
    2773. 

  2773. 		value[j]= hash_long(var_type[i], var_rank[i], index, NCT_LONG);
    2774. 

  2774. 		allInExtRange = allInExtRange 
    2775. 

  2775. 		    && inRange3(value[j], var_type[i], NCT_LONG);
    2776. 

  2776. 	    }
    2777. 

  2777. 	    err = nc_put_var_long(ncid, i, value);
    2778. 

  2778. 	    if (canConvert) {
    2779. 

  2779. 		if (allInExtRange) {
    2780. 

  2780. 		    IF (err) 
    2781. 

  2781. 			error("%s", nc_strerror(err));
    2782. 

  2782. 		} else {
    2783. 

  2783. 		    IF (err != NC_ERANGE)
    2784. 

  2784. 			error("range error: status = %d", err);
    2785. 

  2785. 		}
    2786. 

  2786. 	    } else {
    2787. 

  2787. 		IF (nels > 0 && err != NC_ECHAR)
    2788. 

  2788. 		    error("wrong type: status = %d", err);
    2789. 

  2789. 	    }
    2790. 

  2790.         }
    2791. 

  2791.     }
    2792. 

  2792. 

  2793.     err = nc_close(ncid);
    2794. 

  2794.     IF (err) 
    2795. 

  2795. 	error("nc_close: %s", nc_strerror(err));
    2796. 

  2796. 

  2797.     check_vars_long(scratch);
    2798. 

  2798. 

  2799.     err = remove(scratch);
    2800. 

  2800.     IF (err)
    2801. 

  2801.         error("remove of %s failed", scratch);
    2802. 

  2802. }
    2803. 

  2803. 

  2804. void
    2805. 

  2805. test_nc_put_var_float(void)
    2806. 

  2806. {
    2807. 

  2807.     int ncid;
    2808. 

  2808.     int varid;
    2809. 

  2809.     int i;
    2810. 

  2810.     int j;
    2811. 

  2811.     int err;
    2812. 

  2812.     int nels;
    2813. 

  2813.     size_t index[MAX_RANK];
    2814. 

  2814.     int canConvert;	/* Both text or both numeric */
    2815. 

  2815.     int allInExtRange;	/* all values within external range? */
    2816. 

  2816.     float value[MAX_NELS];
    2817. 

  2817. 

  2818.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2819. 

  2819.     IF (err) {
    2820. 

  2820.         error("nc_create: %s", nc_strerror(err));
    2821. 

  2821.         return;
    2822. 

  2822.     }
    2823. 

  2823.     def_dims(ncid);
    2824. 

  2824.     def_vars(ncid);
    2825. 

  2825.     err = nc_enddef(ncid);
    2826. 

  2826.     IF (err)
    2827. 

  2827.         error("nc_enddef: %s", nc_strerror(err));
    2828. 

  2828. 

  2829.     for (i = 0; i < NVARS; i++) {
    2830. 

  2830. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_FLOAT == NCT_TEXT);
    2831. 

  2831.         assert(var_rank[i] <= MAX_RANK);
    2832. 

  2832.         assert(var_nels[i] <= MAX_NELS);
    2833. 

  2833.         err = nc_put_var_float(BAD_ID, i, value);
    2834. 

  2834.         IF (err != NC_EBADID) 
    2835. 

  2835. 	    error("bad ncid: status = %d", err);
    2836. 

  2836.         err = nc_put_var_float(ncid, BAD_VARID, value);
    2837. 

  2837.         IF (err != NC_ENOTVAR) 
    2838. 

  2838. 	    error("bad var id: status = %d", err);
    2839. 

  2839. 

  2840. 	nels = 1;
    2841. 

  2841. 	for (j = 0; j < var_rank[i]; j++) {
    2842. 

  2842. 	    nels *= var_shape[i][j];
    2843. 

  2843. 	}
    2844. 

  2844. 	for (allInExtRange = 1, j = 0; j < nels; j++) {
    2845. 

  2845. 	    err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2846. 

  2846. 	    IF (err) 
    2847. 

  2847. 		error("error in toMixedBase 1");
    2848. 

  2848. 	    value[j]= hash_float(var_type[i], var_rank[i], index, NCT_FLOAT);
    2849. 

  2849. 	    allInExtRange = allInExtRange 
    2850. 

  2850. 		&& inRange3(value[j], var_type[i], NCT_FLOAT);
    2851. 

  2851. 	}
    2852. 

  2852.         err = nc_put_var_float(ncid, i, value);
    2853. 

  2853. 	if (canConvert) {
    2854. 

  2854. 	    if (allInExtRange) {
    2855. 

  2855. 		IF (err) 
    2856. 

  2856. 		    error("%s", nc_strerror(err));
    2857. 

  2857. 	    } else {
    2858. 

  2858. 		IF (err != NC_ERANGE && var_dimid[i][0] != RECDIM)
    2859. 

  2859. 		    error("range error: status = %d", err);
    2860. 

  2860. 	    }
    2861. 

  2861. 	} else {       /* should flag wrong type even if nothing to write */
    2862. 

  2862. 	    IF (nels > 0 && err != NC_ECHAR)
    2863. 

  2863. 		error("wrong type: status = %d", err);
    2864. 

  2864. 	}
    2865. 

  2865.     }
    2866. 

  2866. 

  2867.         /* Preceeding has written nothing for record variables, now try */
    2868. 

  2868.         /* again with more than 0 records */
    2869. 

  2869. 

  2870. 	/* Write record number NRECS to force writing of preceding records */
    2871. 

  2871. 	/* Assumes variable cr is char vector with UNLIMITED dimension */
    2872. 

  2872.     err = nc_inq_varid(ncid, "cr", &varid);
    2873. 

  2873.     IF (err)
    2874. 

  2874.         error("nc_inq_varid: %s", nc_strerror(err));
    2875. 

  2875.     index[0] = NRECS-1;
    2876. 

  2876.     err = nc_put_var1_text(ncid, varid, index, "x");
    2877. 

  2877.     IF (err)
    2878. 

  2878.         error("nc_put_var1_text: %s", nc_strerror(err));
    2879. 

  2879. 

  2880.     for (i = 0; i < NVARS; i++) {
    2881. 

  2881.         if (var_dimid[i][0] == RECDIM) {  /* only test record variables here */
    2882. 

  2882. 	    canConvert = (var_type[i] == NC_CHAR) == (NCT_FLOAT == NCT_TEXT);
    2883. 

  2883. 	    assert(var_rank[i] <= MAX_RANK);
    2884. 

  2884. 	    assert(var_nels[i] <= MAX_NELS);
    2885. 

  2885. 	    err = nc_put_var_float(BAD_ID, i, value);
    2886. 

  2886. 

  2887. 	    nels = 1;
    2888. 

  2888. 	    for (j = 0; j < var_rank[i]; j++) {
    2889. 

  2889. 		nels *= var_shape[i][j];
    2890. 

  2890. 	    }
    2891. 

  2891. 	    for (allInExtRange = 1, j = 0; j < nels; j++) {
    2892. 

  2892. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2893. 

  2893. 		IF (err) 
    2894. 

  2894. 		    error("error in toMixedBase 1");
    2895. 

  2895. 		value[j]= hash_float(var_type[i], var_rank[i], index, NCT_FLOAT);
    2896. 

  2896. 		allInExtRange = allInExtRange 
    2897. 

  2897. 		    && inRange3(value[j], var_type[i], NCT_FLOAT);
    2898. 

  2898. 	    }
    2899. 

  2899. 	    err = nc_put_var_float(ncid, i, value);
    2900. 

  2900. 	    if (canConvert) {
    2901. 

  2901. 		if (allInExtRange) {
    2902. 

  2902. 		    IF (err) 
    2903. 

  2903. 			error("%s", nc_strerror(err));
    2904. 

  2904. 		} else {
    2905. 

  2905. 		    IF (err != NC_ERANGE)
    2906. 

  2906. 			error("range error: status = %d", err);
    2907. 

  2907. 		}
    2908. 

  2908. 	    } else {
    2909. 

  2909. 		IF (nels > 0 && err != NC_ECHAR)
    2910. 

  2910. 		    error("wrong type: status = %d", err);
    2911. 

  2911. 	    }
    2912. 

  2912.         }
    2913. 

  2913.     }
    2914. 

  2914. 

  2915.     err = nc_close(ncid);
    2916. 

  2916.     IF (err) 
    2917. 

  2917. 	error("nc_close: %s", nc_strerror(err));
    2918. 

  2918. 

  2919.     check_vars_float(scratch);
    2920. 

  2920. 

  2921.     err = remove(scratch);
    2922. 

  2922.     IF (err)
    2923. 

  2923.         error("remove of %s failed", scratch);
    2924. 

  2924. }
    2925. 

  2925. 

  2926. void
    2927. 

  2927. test_nc_put_var_double(void)
    2928. 

  2928. {
    2929. 

  2929.     int ncid;
    2930. 

  2930.     int varid;
    2931. 

  2931.     int i;
    2932. 

  2932.     int j;
    2933. 

  2933.     int err;
    2934. 

  2934.     int nels;
    2935. 

  2935.     size_t index[MAX_RANK];
    2936. 

  2936.     int canConvert;	/* Both text or both numeric */
    2937. 

  2937.     int allInExtRange;	/* all values within external range? */
    2938. 

  2938.     double value[MAX_NELS];
    2939. 

  2939. 

  2940.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    2941. 

  2941.     IF (err) {
    2942. 

  2942.         error("nc_create: %s", nc_strerror(err));
    2943. 

  2943.         return;
    2944. 

  2944.     }
    2945. 

  2945.     def_dims(ncid);
    2946. 

  2946.     def_vars(ncid);
    2947. 

  2947.     err = nc_enddef(ncid);
    2948. 

  2948.     IF (err)
    2949. 

  2949.         error("nc_enddef: %s", nc_strerror(err));
    2950. 

  2950. 

  2951.     for (i = 0; i < NVARS; i++) {
    2952. 

  2952. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_DOUBLE == NCT_TEXT);
    2953. 

  2953.         assert(var_rank[i] <= MAX_RANK);
    2954. 

  2954.         assert(var_nels[i] <= MAX_NELS);
    2955. 

  2955.         err = nc_put_var_double(BAD_ID, i, value);
    2956. 

  2956.         IF (err != NC_EBADID) 
    2957. 

  2957. 	    error("bad ncid: status = %d", err);
    2958. 

  2958.         err = nc_put_var_double(ncid, BAD_VARID, value);
    2959. 

  2959.         IF (err != NC_ENOTVAR) 
    2960. 

  2960. 	    error("bad var id: status = %d", err);
    2961. 

  2961. 

  2962. 	nels = 1;
    2963. 

  2963. 	for (j = 0; j < var_rank[i]; j++) {
    2964. 

  2964. 	    nels *= var_shape[i][j];
    2965. 

  2965. 	}
    2966. 

  2966. 	for (allInExtRange = 1, j = 0; j < nels; j++) {
    2967. 

  2967. 	    err = toMixedBase(j, var_rank[i], var_shape[i], index);
    2968. 

  2968. 	    IF (err) 
    2969. 

  2969. 		error("error in toMixedBase 1");
    2970. 

  2970. 	    value[j]= hash_double(var_type[i], var_rank[i], index, NCT_DOUBLE);
    2971. 

  2971. 	    allInExtRange = allInExtRange 
    2972. 

  2972. 		&& inRange3(value[j], var_type[i], NCT_DOUBLE);
    2973. 

  2973. 	}
    2974. 

  2974.         err = nc_put_var_double(ncid, i, value);
    2975. 

  2975. 	if (canConvert) {
    2976. 

  2976. 	    if (allInExtRange) {
    2977. 

  2977. 		IF (err) 
    2978. 

  2978. 		    error("%s", nc_strerror(err));
    2979. 

  2979. 	    } else {
    2980. 

  2980. 		IF (err != NC_ERANGE && var_dimid[i][0] != RECDIM)
    2981. 

  2981. 		    error("range error: status = %d", err);
    2982. 

  2982. 	    }
    2983. 

  2983. 	} else {       /* should flag wrong type even if nothing to write */
    2984. 

  2984. 	    IF (nels > 0 && err != NC_ECHAR)
    2985. 

  2985. 		error("wrong type: status = %d", err);
    2986. 

  2986. 	}
    2987. 

  2987.     }
    2988. 

  2988. 

  2989.         /* Preceeding has written nothing for record variables, now try */
    2990. 

  2990.         /* again with more than 0 records */
    2991. 

  2991. 

  2992. 	/* Write record number NRECS to force writing of preceding records */
    2993. 

  2993. 	/* Assumes variable cr is char vector with UNLIMITED dimension */
    2994. 

  2994.     err = nc_inq_varid(ncid, "cr", &varid);
    2995. 

  2995.     IF (err)
    2996. 

  2996.         error("nc_inq_varid: %s", nc_strerror(err));
    2997. 

  2997.     index[0] = NRECS-1;
    2998. 

  2998.     err = nc_put_var1_text(ncid, varid, index, "x");
    2999. 

  2999.     IF (err)
    3000. 

  3000.         error("nc_put_var1_text: %s", nc_strerror(err));
    3001. 

  3001. 

  3002.     for (i = 0; i < NVARS; i++) {
    3003. 

  3003.         if (var_dimid[i][0] == RECDIM) {  /* only test record variables here */
    3004. 

  3004. 	    canConvert = (var_type[i] == NC_CHAR) == (NCT_DOUBLE == NCT_TEXT);
    3005. 

  3005. 	    assert(var_rank[i] <= MAX_RANK);
    3006. 

  3006. 	    assert(var_nels[i] <= MAX_NELS);
    3007. 

  3007. 	    err = nc_put_var_double(BAD_ID, i, value);
    3008. 

  3008. 

  3009. 	    nels = 1;
    3010. 

  3010. 	    for (j = 0; j < var_rank[i]; j++) {
    3011. 

  3011. 		nels *= var_shape[i][j];
    3012. 

  3012. 	    }
    3013. 

  3013. 	    for (allInExtRange = 1, j = 0; j < nels; j++) {
    3014. 

  3014. 		err = toMixedBase(j, var_rank[i], var_shape[i], index);
    3015. 

  3015. 		IF (err) 
    3016. 

  3016. 		    error("error in toMixedBase 1");
    3017. 

  3017. 		value[j]= hash_double(var_type[i], var_rank[i], index, NCT_DOUBLE);
    3018. 

  3018. 		allInExtRange = allInExtRange 
    3019. 

  3019. 		    && inRange3(value[j], var_type[i], NCT_DOUBLE);
    3020. 

  3020. 	    }
    3021. 

  3021. 	    err = nc_put_var_double(ncid, i, value);
    3022. 

  3022. 	    if (canConvert) {
    3023. 

  3023. 		if (allInExtRange) {
    3024. 

  3024. 		    IF (err) 
    3025. 

  3025. 			error("%s", nc_strerror(err));
    3026. 

  3026. 		} else {
    3027. 

  3027. 		    IF (err != NC_ERANGE)
    3028. 

  3028. 			error("range error: status = %d", err);
    3029. 

  3029. 		}
    3030. 

  3030. 	    } else {
    3031. 

  3031. 		IF (nels > 0 && err != NC_ECHAR)
    3032. 

  3032. 		    error("wrong type: status = %d", err);
    3033. 

  3033. 	    }
    3034. 

  3034.         }
    3035. 

  3035.     }
    3036. 

  3036. 

  3037.     err = nc_close(ncid);
    3038. 

  3038.     IF (err) 
    3039. 

  3039. 	error("nc_close: %s", nc_strerror(err));
    3040. 

  3040. 

  3041.     check_vars_double(scratch);
    3042. 

  3042. 

  3043.     err = remove(scratch);
    3044. 

  3044.     IF (err)
    3045. 

  3045.         error("remove of %s failed", scratch);
    3046. 

  3046. }
    3047. 

  3047. 

  3048. 

  3049. 

  3050. 

  3051. void
    3052. 

  3052. test_nc_put_vara_text(void)
    3053. 

  3053. {
    3054. 

  3054.     int ncid;
    3055. 

  3055.     int d;
    3056. 

  3056.     int i;
    3057. 

  3057.     int j;
    3058. 

  3058.     int k;
    3059. 

  3059.     int err;
    3060. 

  3060.     int nslabs;
    3061. 

  3061.     int nels;
    3062. 

  3062.     size_t start[MAX_RANK];
    3063. 

  3063.     size_t edge[MAX_RANK];
    3064. 

  3064.     size_t mid[MAX_RANK];
    3065. 

  3065.     size_t index[MAX_RANK];
    3066. 

  3066.     int canConvert;	/* Both text or both numeric */
    3067. 

  3067.     int allInExtRange;	/* all values within external range? */
    3068. 

  3068.     text value[MAX_NELS];
    3069. 

  3069. 

  3070.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    3071. 

  3071.     IF (err) {
    3072. 

  3072.         error("nc_create: %s", nc_strerror(err));
    3073. 

  3073.         return;
    3074. 

  3074.     }
    3075. 

  3075.     def_dims(ncid);
    3076. 

  3076.     def_vars(ncid);
    3077. 

  3077.     err = nc_enddef(ncid);
    3078. 

  3078.     IF (err)
    3079. 

  3079.         error("nc_enddef: %s", nc_strerror(err));
    3080. 

  3080. 

  3081.     value[0] = 0;
    3082. 

  3082.     for (i = 0; i < NVARS; i++) {
    3083. 

  3083. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_TEXT == NCT_TEXT);
    3084. 

  3084.         assert(var_rank[i] <= MAX_RANK);
    3085. 

  3085.         assert(var_nels[i] <= MAX_NELS);
    3086. 

  3086.         for (j = 0; j < var_rank[i]; j++) {
    3087. 

  3087.             start[j] = 0;
    3088. 

  3088.             edge[j] = 1;
    3089. 

  3089. 	}
    3090. 

  3090.         err = nc_put_vara_text(BAD_ID, i, start, edge, value);
    3091. 

  3091.         IF (err != NC_EBADID) 
    3092. 

  3092. 	    error("bad ncid: status = %d", err);
    3093. 

  3093.         err = nc_put_vara_text(ncid, BAD_VARID, start, edge, value);
    3094. 

  3094.         IF (err != NC_ENOTVAR) 
    3095. 

  3095. 	    error("bad var id: status = %d", err);
    3096. 

  3096.         for (j = 0; j < var_rank[i]; j++) {
    3097. 

  3097. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3098. 

  3098. 		start[j] = var_shape[i][j];
    3099. 

  3099. 		err = nc_put_vara_text(ncid, i, start, edge, value);
    3100. 

  3100. 		IF (canConvert && err != NC_EINVALCOORDS)
    3101. 

  3101. 		    error("bad start: status = %d", err);
    3102. 

  3102. 		start[j] = 0;
    3103. 

  3103. 		edge[j] = var_shape[i][j] + 1;
    3104. 

  3104. 		err = nc_put_vara_text(ncid, i, start, edge, value);
    3105. 

  3105. 		IF (canConvert && err != NC_EEDGE)
    3106. 

  3106. 		    error("bad edge: status = %d", err);
    3107. 

  3107. 		edge[j] = 1;
    3108. 

  3108. 	    }
    3109. 

  3109.         }
    3110. 

  3110.             /* Check correct error returned even when nothing to put */
    3111. 

  3111.         for (j = 0; j < var_rank[i]; j++) {
    3112. 

  3112.             edge[j] = 0;
    3113. 

  3113. 	}
    3114. 

  3114.         err = nc_put_vara_text(BAD_ID, i, start, edge, value);
    3115. 

  3115.         IF (err != NC_EBADID) 
    3116. 

  3116. 	    error("bad ncid: status = %d", err);
    3117. 

  3117.         err = nc_put_vara_text(ncid, BAD_VARID, start, edge, value);
    3118. 

  3118.         IF (err != NC_ENOTVAR) 
    3119. 

  3119. 	    error("bad var id: status = %d", err);
    3120. 

  3120.         for (j = 0; j < var_rank[i]; j++) {
    3121. 

  3121. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3122. 

  3122. 		start[j] = var_shape[i][j];
    3123. 

  3123. 		err = nc_put_vara_text(ncid, i, start, edge, value);
    3124. 

  3124. 		IF (canConvert && err != NC_EINVALCOORDS)
    3125. 

  3125. 		    error("bad start: status = %d", err);
    3126. 

  3126. 		start[j] = 0;
    3127. 

  3127. 	    }
    3128. 

  3128.         }
    3129. 

  3129. 	err = nc_put_vara_text(ncid, i, start, edge, value);
    3130. 

  3130. 	if (canConvert) {
    3131. 

  3131. 	    IF (err) 
    3132. 

  3132. 		error("%s", nc_strerror(err));
    3133. 

  3133. 	} else {
    3134. 

  3134. 	    IF (err != NC_ECHAR)
    3135. 

  3135. 		error("wrong type: status = %d", err);
    3136. 

  3136.         }
    3137. 

  3137.         for (j = 0; j < var_rank[i]; j++) {
    3138. 

  3138.             edge[j] = 1;
    3139. 

  3139. 	}
    3140. 

  3140. 

  3141. 	    /* Choose a random point dividing each dim into 2 parts */
    3142. 

  3142. 	    /* Put 2^rank (nslabs) slabs so defined */
    3143. 

  3143. 	nslabs = 1;
    3144. 

  3144. 	for (j = 0; j < var_rank[i]; j++) {
    3145. 

  3145.             mid[j] = roll( var_shape[i][j] );
    3146. 

  3146. 	    nslabs *= 2;
    3147. 

  3147. 	}
    3148. 

  3148. 	    /* bits of k determine whether to put lower or upper part of dim */
    3149. 

  3149. 	for (k = 0; k < nslabs; k++) {
    3150. 

  3150. 	    nels = 1;
    3151. 

  3151. 	    for (j = 0; j < var_rank[i]; j++) {
    3152. 

  3152. 		if ((k >> j) & 1) {
    3153. 

  3153. 		    start[j] = 0;
    3154. 

  3154. 		    edge[j] = mid[j];
    3155. 

  3155. 		}else{
    3156. 

  3156. 		    start[j] = mid[j];
    3157. 

  3157. 		    edge[j] = var_shape[i][j] - mid[j];
    3158. 

  3158. 		}
    3159. 

  3159. 		nels *= edge[j];
    3160. 

  3160. 	    }
    3161. 

  3161.             for (allInExtRange = 1, j = 0; j < nels; j++) {
    3162. 

  3162. 		err = toMixedBase(j, var_rank[i], edge, index);
    3163. 

  3163. 		IF (err) 
    3164. 

  3164. 		    error("error in toMixedBase 1");
    3165. 

  3165. 		for (d = 0; d < var_rank[i]; d++) 
    3166. 

  3166. 		    index[d] += start[d];
    3167. 

  3167. 		value[j]= hash_text(var_type[i], var_rank[i], index, NCT_TEXT);
    3168. 

  3168. 		allInExtRange = allInExtRange 
    3169. 

  3169. 		    && inRange3(value[j], var_type[i], NCT_TEXT);
    3170. 

  3170. 	    }
    3171. 

  3171. 	    if (var_rank[i] == 0 && i%2 == 0)
    3172. 

  3172. 		err = nc_put_vara_text(ncid, i, NULL, NULL, value);
    3173. 

  3173. 	    else
    3174. 

  3174. 		err = nc_put_vara_text(ncid, i, start, edge, value);
    3175. 

  3175. 	    if (canConvert) {
    3176. 

  3176. 		if (allInExtRange) {
    3177. 

  3177. 		    IF (err) 
    3178. 

  3178. 			error("%s", nc_strerror(err));
    3179. 

  3179. 		} else {
    3180. 

  3180. 		    IF (err != NC_ERANGE)
    3181. 

  3181. 			error("range error: status = %d", err);
    3182. 

  3182. 		}
    3183. 

  3183. 	    } else {
    3184. 

  3184. 		IF (nels > 0 && err != NC_ECHAR)
    3185. 

  3185. 		    error("wrong type: status = %d", err);
    3186. 

  3186.             }
    3187. 

  3187.         }
    3188. 

  3188.     }
    3189. 

  3189. 

  3190.     err = nc_close(ncid);
    3191. 

  3191.     IF (err) 
    3192. 

  3192. 	error("nc_close: %s", nc_strerror(err));
    3193. 

  3193. 

  3194.     check_vars_text(scratch);
    3195. 

  3195. 

  3196.     err = remove(scratch);
    3197. 

  3197.     IF (err)
    3198. 

  3198.         error("remove of %s failed", scratch);
    3199. 

  3199. }
    3200. 

  3200. 

  3201. void
    3202. 

  3202. test_nc_put_vara_uchar(void)
    3203. 

  3203. {
    3204. 

  3204.     int ncid;
    3205. 

  3205.     int d;
    3206. 

  3206.     int i;
    3207. 

  3207.     int j;
    3208. 

  3208.     int k;
    3209. 

  3209.     int err;
    3210. 

  3210.     int nslabs;
    3211. 

  3211.     int nels;
    3212. 

  3212.     size_t start[MAX_RANK];
    3213. 

  3213.     size_t edge[MAX_RANK];
    3214. 

  3214.     size_t mid[MAX_RANK];
    3215. 

  3215.     size_t index[MAX_RANK];
    3216. 

  3216.     int canConvert;	/* Both text or both numeric */
    3217. 

  3217.     int allInExtRange;	/* all values within external range? */
    3218. 

  3218.     uchar value[MAX_NELS];
    3219. 

  3219. 

  3220.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    3221. 

  3221.     IF (err) {
    3222. 

  3222.         error("nc_create: %s", nc_strerror(err));
    3223. 

  3223.         return;
    3224. 

  3224.     }
    3225. 

  3225.     def_dims(ncid);
    3226. 

  3226.     def_vars(ncid);
    3227. 

  3227.     err = nc_enddef(ncid);
    3228. 

  3228.     IF (err)
    3229. 

  3229.         error("nc_enddef: %s", nc_strerror(err));
    3230. 

  3230. 

  3231.     value[0] = 0;
    3232. 

  3232.     for (i = 0; i < NVARS; i++) {
    3233. 

  3233. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_UCHAR == NCT_TEXT);
    3234. 

  3234.         assert(var_rank[i] <= MAX_RANK);
    3235. 

  3235.         assert(var_nels[i] <= MAX_NELS);
    3236. 

  3236.         for (j = 0; j < var_rank[i]; j++) {
    3237. 

  3237.             start[j] = 0;
    3238. 

  3238.             edge[j] = 1;
    3239. 

  3239. 	}
    3240. 

  3240.         err = nc_put_vara_uchar(BAD_ID, i, start, edge, value);
    3241. 

  3241.         IF (err != NC_EBADID) 
    3242. 

  3242. 	    error("bad ncid: status = %d", err);
    3243. 

  3243.         err = nc_put_vara_uchar(ncid, BAD_VARID, start, edge, value);
    3244. 

  3244.         IF (err != NC_ENOTVAR) 
    3245. 

  3245. 	    error("bad var id: status = %d", err);
    3246. 

  3246.         for (j = 0; j < var_rank[i]; j++) {
    3247. 

  3247. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3248. 

  3248. 		start[j] = var_shape[i][j];
    3249. 

  3249. 		err = nc_put_vara_uchar(ncid, i, start, edge, value);
    3250. 

  3250. 		IF (canConvert && err != NC_EINVALCOORDS)
    3251. 

  3251. 		    error("bad start: status = %d", err);
    3252. 

  3252. 		start[j] = 0;
    3253. 

  3253. 		edge[j] = var_shape[i][j] + 1;
    3254. 

  3254. 		err = nc_put_vara_uchar(ncid, i, start, edge, value);
    3255. 

  3255. 		IF (canConvert && err != NC_EEDGE)
    3256. 

  3256. 		    error("bad edge: status = %d", err);
    3257. 

  3257. 		edge[j] = 1;
    3258. 

  3258. 	    }
    3259. 

  3259.         }
    3260. 

  3260.             /* Check correct error returned even when nothing to put */
    3261. 

  3261.         for (j = 0; j < var_rank[i]; j++) {
    3262. 

  3262.             edge[j] = 0;
    3263. 

  3263. 	}
    3264. 

  3264.         err = nc_put_vara_uchar(BAD_ID, i, start, edge, value);
    3265. 

  3265.         IF (err != NC_EBADID) 
    3266. 

  3266. 	    error("bad ncid: status = %d", err);
    3267. 

  3267.         err = nc_put_vara_uchar(ncid, BAD_VARID, start, edge, value);
    3268. 

  3268.         IF (err != NC_ENOTVAR) 
    3269. 

  3269. 	    error("bad var id: status = %d", err);
    3270. 

  3270.         for (j = 0; j < var_rank[i]; j++) {
    3271. 

  3271. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3272. 

  3272. 		start[j] = var_shape[i][j];
    3273. 

  3273. 		err = nc_put_vara_uchar(ncid, i, start, edge, value);
    3274. 

  3274. 		IF (canConvert && err != NC_EINVALCOORDS)
    3275. 

  3275. 		    error("bad start: status = %d", err);
    3276. 

  3276. 		start[j] = 0;
    3277. 

  3277. 	    }
    3278. 

  3278.         }
    3279. 

  3279. 	err = nc_put_vara_uchar(ncid, i, start, edge, value);
    3280. 

  3280. 	if (canConvert) {
    3281. 

  3281. 	    IF (err) 
    3282. 

  3282. 		error("%s", nc_strerror(err));
    3283. 

  3283. 	} else {
    3284. 

  3284. 	    IF (err != NC_ECHAR)
    3285. 

  3285. 		error("wrong type: status = %d", err);
    3286. 

  3286.         }
    3287. 

  3287.         for (j = 0; j < var_rank[i]; j++) {
    3288. 

  3288.             edge[j] = 1;
    3289. 

  3289. 	}
    3290. 

  3290. 

  3291. 	    /* Choose a random point dividing each dim into 2 parts */
    3292. 

  3292. 	    /* Put 2^rank (nslabs) slabs so defined */
    3293. 

  3293. 	nslabs = 1;
    3294. 

  3294. 	for (j = 0; j < var_rank[i]; j++) {
    3295. 

  3295.             mid[j] = roll( var_shape[i][j] );
    3296. 

  3296. 	    nslabs *= 2;
    3297. 

  3297. 	}
    3298. 

  3298. 	    /* bits of k determine whether to put lower or upper part of dim */
    3299. 

  3299. 	for (k = 0; k < nslabs; k++) {
    3300. 

  3300. 	    nels = 1;
    3301. 

  3301. 	    for (j = 0; j < var_rank[i]; j++) {
    3302. 

  3302. 		if ((k >> j) & 1) {
    3303. 

  3303. 		    start[j] = 0;
    3304. 

  3304. 		    edge[j] = mid[j];
    3305. 

  3305. 		}else{
    3306. 

  3306. 		    start[j] = mid[j];
    3307. 

  3307. 		    edge[j] = var_shape[i][j] - mid[j];
    3308. 

  3308. 		}
    3309. 

  3309. 		nels *= edge[j];
    3310. 

  3310. 	    }
    3311. 

  3311.             for (allInExtRange = 1, j = 0; j < nels; j++) {
    3312. 

  3312. 		err = toMixedBase(j, var_rank[i], edge, index);
    3313. 

  3313. 		IF (err) 
    3314. 

  3314. 		    error("error in toMixedBase 1");
    3315. 

  3315. 		for (d = 0; d < var_rank[i]; d++) 
    3316. 

  3316. 		    index[d] += start[d];
    3317. 

  3317. 		value[j]= hash_uchar(var_type[i], var_rank[i], index, NCT_UCHAR);
    3318. 

  3318. 		allInExtRange = allInExtRange 
    3319. 

  3319. 		    && inRange3(value[j], var_type[i], NCT_UCHAR);
    3320. 

  3320. 	    }
    3321. 

  3321. 	    if (var_rank[i] == 0 && i%2 == 0)
    3322. 

  3322. 		err = nc_put_vara_uchar(ncid, i, NULL, NULL, value);
    3323. 

  3323. 	    else
    3324. 

  3324. 		err = nc_put_vara_uchar(ncid, i, start, edge, value);
    3325. 

  3325. 	    if (canConvert) {
    3326. 

  3326. 		if (allInExtRange) {
    3327. 

  3327. 		    IF (err) 
    3328. 

  3328. 			error("%s", nc_strerror(err));
    3329. 

  3329. 		} else {
    3330. 

  3330. 		    IF (err != NC_ERANGE)
    3331. 

  3331. 			error("range error: status = %d", err);
    3332. 

  3332. 		}
    3333. 

  3333. 	    } else {
    3334. 

  3334. 		IF (nels > 0 && err != NC_ECHAR)
    3335. 

  3335. 		    error("wrong type: status = %d", err);
    3336. 

  3336.             }
    3337. 

  3337.         }
    3338. 

  3338.     }
    3339. 

  3339. 

  3340.     err = nc_close(ncid);
    3341. 

  3341.     IF (err) 
    3342. 

  3342. 	error("nc_close: %s", nc_strerror(err));
    3343. 

  3343. 

  3344.     check_vars_uchar(scratch);
    3345. 

  3345. 

  3346.     err = remove(scratch);
    3347. 

  3347.     IF (err)
    3348. 

  3348.         error("remove of %s failed", scratch);
    3349. 

  3349. }
    3350. 

  3350. 

  3351. void
    3352. 

  3352. test_nc_put_vara_schar(void)
    3353. 

  3353. {
    3354. 

  3354.     int ncid;
    3355. 

  3355.     int d;
    3356. 

  3356.     int i;
    3357. 

  3357.     int j;
    3358. 

  3358.     int k;
    3359. 

  3359.     int err;
    3360. 

  3360.     int nslabs;
    3361. 

  3361.     int nels;
    3362. 

  3362.     size_t start[MAX_RANK];
    3363. 

  3363.     size_t edge[MAX_RANK];
    3364. 

  3364.     size_t mid[MAX_RANK];
    3365. 

  3365.     size_t index[MAX_RANK];
    3366. 

  3366.     int canConvert;	/* Both text or both numeric */
    3367. 

  3367.     int allInExtRange;	/* all values within external range? */
    3368. 

  3368.     schar value[MAX_NELS];
    3369. 

  3369. 

  3370.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    3371. 

  3371.     IF (err) {
    3372. 

  3372.         error("nc_create: %s", nc_strerror(err));
    3373. 

  3373.         return;
    3374. 

  3374.     }
    3375. 

  3375.     def_dims(ncid);
    3376. 

  3376.     def_vars(ncid);
    3377. 

  3377.     err = nc_enddef(ncid);
    3378. 

  3378.     IF (err)
    3379. 

  3379.         error("nc_enddef: %s", nc_strerror(err));
    3380. 

  3380. 

  3381.     value[0] = 0;
    3382. 

  3382.     for (i = 0; i < NVARS; i++) {
    3383. 

  3383. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SCHAR == NCT_TEXT);
    3384. 

  3384.         assert(var_rank[i] <= MAX_RANK);
    3385. 

  3385.         assert(var_nels[i] <= MAX_NELS);
    3386. 

  3386.         for (j = 0; j < var_rank[i]; j++) {
    3387. 

  3387.             start[j] = 0;
    3388. 

  3388.             edge[j] = 1;
    3389. 

  3389. 	}
    3390. 

  3390.         err = nc_put_vara_schar(BAD_ID, i, start, edge, value);
    3391. 

  3391.         IF (err != NC_EBADID) 
    3392. 

  3392. 	    error("bad ncid: status = %d", err);
    3393. 

  3393.         err = nc_put_vara_schar(ncid, BAD_VARID, start, edge, value);
    3394. 

  3394.         IF (err != NC_ENOTVAR) 
    3395. 

  3395. 	    error("bad var id: status = %d", err);
    3396. 

  3396.         for (j = 0; j < var_rank[i]; j++) {
    3397. 

  3397. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3398. 

  3398. 		start[j] = var_shape[i][j];
    3399. 

  3399. 		err = nc_put_vara_schar(ncid, i, start, edge, value);
    3400. 

  3400. 		IF (canConvert && err != NC_EINVALCOORDS)
    3401. 

  3401. 		    error("bad start: status = %d", err);
    3402. 

  3402. 		start[j] = 0;
    3403. 

  3403. 		edge[j] = var_shape[i][j] + 1;
    3404. 

  3404. 		err = nc_put_vara_schar(ncid, i, start, edge, value);
    3405. 

  3405. 		IF (canConvert && err != NC_EEDGE)
    3406. 

  3406. 		    error("bad edge: status = %d", err);
    3407. 

  3407. 		edge[j] = 1;
    3408. 

  3408. 	    }
    3409. 

  3409.         }
    3410. 

  3410.             /* Check correct error returned even when nothing to put */
    3411. 

  3411.         for (j = 0; j < var_rank[i]; j++) {
    3412. 

  3412.             edge[j] = 0;
    3413. 

  3413. 	}
    3414. 

  3414.         err = nc_put_vara_schar(BAD_ID, i, start, edge, value);
    3415. 

  3415.         IF (err != NC_EBADID) 
    3416. 

  3416. 	    error("bad ncid: status = %d", err);
    3417. 

  3417.         err = nc_put_vara_schar(ncid, BAD_VARID, start, edge, value);
    3418. 

  3418.         IF (err != NC_ENOTVAR) 
    3419. 

  3419. 	    error("bad var id: status = %d", err);
    3420. 

  3420.         for (j = 0; j < var_rank[i]; j++) {
    3421. 

  3421. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3422. 

  3422. 		start[j] = var_shape[i][j];
    3423. 

  3423. 		err = nc_put_vara_schar(ncid, i, start, edge, value);
    3424. 

  3424. 		IF (canConvert && err != NC_EINVALCOORDS)
    3425. 

  3425. 		    error("bad start: status = %d", err);
    3426. 

  3426. 		start[j] = 0;
    3427. 

  3427. 	    }
    3428. 

  3428.         }
    3429. 

  3429. 	err = nc_put_vara_schar(ncid, i, start, edge, value);
    3430. 

  3430. 	if (canConvert) {
    3431. 

  3431. 	    IF (err) 
    3432. 

  3432. 		error("%s", nc_strerror(err));
    3433. 

  3433. 	} else {
    3434. 

  3434. 	    IF (err != NC_ECHAR)
    3435. 

  3435. 		error("wrong type: status = %d", err);
    3436. 

  3436.         }
    3437. 

  3437.         for (j = 0; j < var_rank[i]; j++) {
    3438. 

  3438.             edge[j] = 1;
    3439. 

  3439. 	}
    3440. 

  3440. 

  3441. 	    /* Choose a random point dividing each dim into 2 parts */
    3442. 

  3442. 	    /* Put 2^rank (nslabs) slabs so defined */
    3443. 

  3443. 	nslabs = 1;
    3444. 

  3444. 	for (j = 0; j < var_rank[i]; j++) {
    3445. 

  3445.             mid[j] = roll( var_shape[i][j] );
    3446. 

  3446. 	    nslabs *= 2;
    3447. 

  3447. 	}
    3448. 

  3448. 	    /* bits of k determine whether to put lower or upper part of dim */
    3449. 

  3449. 	for (k = 0; k < nslabs; k++) {
    3450. 

  3450. 	    nels = 1;
    3451. 

  3451. 	    for (j = 0; j < var_rank[i]; j++) {
    3452. 

  3452. 		if ((k >> j) & 1) {
    3453. 

  3453. 		    start[j] = 0;
    3454. 

  3454. 		    edge[j] = mid[j];
    3455. 

  3455. 		}else{
    3456. 

  3456. 		    start[j] = mid[j];
    3457. 

  3457. 		    edge[j] = var_shape[i][j] - mid[j];
    3458. 

  3458. 		}
    3459. 

  3459. 		nels *= edge[j];
    3460. 

  3460. 	    }
    3461. 

  3461.             for (allInExtRange = 1, j = 0; j < nels; j++) {
    3462. 

  3462. 		err = toMixedBase(j, var_rank[i], edge, index);
    3463. 

  3463. 		IF (err) 
    3464. 

  3464. 		    error("error in toMixedBase 1");
    3465. 

  3465. 		for (d = 0; d < var_rank[i]; d++) 
    3466. 

  3466. 		    index[d] += start[d];
    3467. 

  3467. 		value[j]= hash_schar(var_type[i], var_rank[i], index, NCT_SCHAR);
    3468. 

  3468. 		allInExtRange = allInExtRange 
    3469. 

  3469. 		    && inRange3(value[j], var_type[i], NCT_SCHAR);
    3470. 

  3470. 	    }
    3471. 

  3471. 	    if (var_rank[i] == 0 && i%2 == 0)
    3472. 

  3472. 		err = nc_put_vara_schar(ncid, i, NULL, NULL, value);
    3473. 

  3473. 	    else
    3474. 

  3474. 		err = nc_put_vara_schar(ncid, i, start, edge, value);
    3475. 

  3475. 	    if (canConvert) {
    3476. 

  3476. 		if (allInExtRange) {
    3477. 

  3477. 		    IF (err) 
    3478. 

  3478. 			error("%s", nc_strerror(err));
    3479. 

  3479. 		} else {
    3480. 

  3480. 		    IF (err != NC_ERANGE)
    3481. 

  3481. 			error("range error: status = %d", err);
    3482. 

  3482. 		}
    3483. 

  3483. 	    } else {
    3484. 

  3484. 		IF (nels > 0 && err != NC_ECHAR)
    3485. 

  3485. 		    error("wrong type: status = %d", err);
    3486. 

  3486.             }
    3487. 

  3487.         }
    3488. 

  3488.     }
    3489. 

  3489. 

  3490.     err = nc_close(ncid);
    3491. 

  3491.     IF (err) 
    3492. 

  3492. 	error("nc_close: %s", nc_strerror(err));
    3493. 

  3493. 

  3494.     check_vars_schar(scratch);
    3495. 

  3495. 

  3496.     err = remove(scratch);
    3497. 

  3497.     IF (err)
    3498. 

  3498.         error("remove of %s failed", scratch);
    3499. 

  3499. }
    3500. 

  3500. 

  3501. void
    3502. 

  3502. test_nc_put_vara_short(void)
    3503. 

  3503. {
    3504. 

  3504.     int ncid;
    3505. 

  3505.     int d;
    3506. 

  3506.     int i;
    3507. 

  3507.     int j;
    3508. 

  3508.     int k;
    3509. 

  3509.     int err;
    3510. 

  3510.     int nslabs;
    3511. 

  3511.     int nels;
    3512. 

  3512.     size_t start[MAX_RANK];
    3513. 

  3513.     size_t edge[MAX_RANK];
    3514. 

  3514.     size_t mid[MAX_RANK];
    3515. 

  3515.     size_t index[MAX_RANK];
    3516. 

  3516.     int canConvert;	/* Both text or both numeric */
    3517. 

  3517.     int allInExtRange;	/* all values within external range? */
    3518. 

  3518.     short value[MAX_NELS];
    3519. 

  3519. 

  3520.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    3521. 

  3521.     IF (err) {
    3522. 

  3522.         error("nc_create: %s", nc_strerror(err));
    3523. 

  3523.         return;
    3524. 

  3524.     }
    3525. 

  3525.     def_dims(ncid);
    3526. 

  3526.     def_vars(ncid);
    3527. 

  3527.     err = nc_enddef(ncid);
    3528. 

  3528.     IF (err)
    3529. 

  3529.         error("nc_enddef: %s", nc_strerror(err));
    3530. 

  3530. 

  3531.     value[0] = 0;
    3532. 

  3532.     for (i = 0; i < NVARS; i++) {
    3533. 

  3533. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SHORT == NCT_TEXT);
    3534. 

  3534.         assert(var_rank[i] <= MAX_RANK);
    3535. 

  3535.         assert(var_nels[i] <= MAX_NELS);
    3536. 

  3536.         for (j = 0; j < var_rank[i]; j++) {
    3537. 

  3537.             start[j] = 0;
    3538. 

  3538.             edge[j] = 1;
    3539. 

  3539. 	}
    3540. 

  3540.         err = nc_put_vara_short(BAD_ID, i, start, edge, value);
    3541. 

  3541.         IF (err != NC_EBADID) 
    3542. 

  3542. 	    error("bad ncid: status = %d", err);
    3543. 

  3543.         err = nc_put_vara_short(ncid, BAD_VARID, start, edge, value);
    3544. 

  3544.         IF (err != NC_ENOTVAR) 
    3545. 

  3545. 	    error("bad var id: status = %d", err);
    3546. 

  3546.         for (j = 0; j < var_rank[i]; j++) {
    3547. 

  3547. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3548. 

  3548. 		start[j] = var_shape[i][j];
    3549. 

  3549. 		err = nc_put_vara_short(ncid, i, start, edge, value);
    3550. 

  3550. 		IF (canConvert && err != NC_EINVALCOORDS)
    3551. 

  3551. 		    error("bad start: status = %d", err);
    3552. 

  3552. 		start[j] = 0;
    3553. 

  3553. 		edge[j] = var_shape[i][j] + 1;
    3554. 

  3554. 		err = nc_put_vara_short(ncid, i, start, edge, value);
    3555. 

  3555. 		IF (canConvert && err != NC_EEDGE)
    3556. 

  3556. 		    error("bad edge: status = %d", err);
    3557. 

  3557. 		edge[j] = 1;
    3558. 

  3558. 	    }
    3559. 

  3559.         }
    3560. 

  3560.             /* Check correct error returned even when nothing to put */
    3561. 

  3561.         for (j = 0; j < var_rank[i]; j++) {
    3562. 

  3562.             edge[j] = 0;
    3563. 

  3563. 	}
    3564. 

  3564.         err = nc_put_vara_short(BAD_ID, i, start, edge, value);
    3565. 

  3565.         IF (err != NC_EBADID) 
    3566. 

  3566. 	    error("bad ncid: status = %d", err);
    3567. 

  3567.         err = nc_put_vara_short(ncid, BAD_VARID, start, edge, value);
    3568. 

  3568.         IF (err != NC_ENOTVAR) 
    3569. 

  3569. 	    error("bad var id: status = %d", err);
    3570. 

  3570.         for (j = 0; j < var_rank[i]; j++) {
    3571. 

  3571. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3572. 

  3572. 		start[j] = var_shape[i][j];
    3573. 

  3573. 		err = nc_put_vara_short(ncid, i, start, edge, value);
    3574. 

  3574. 		IF (canConvert && err != NC_EINVALCOORDS)
    3575. 

  3575. 		    error("bad start: status = %d", err);
    3576. 

  3576. 		start[j] = 0;
    3577. 

  3577. 	    }
    3578. 

  3578.         }
    3579. 

  3579. 	err = nc_put_vara_short(ncid, i, start, edge, value);
    3580. 

  3580. 	if (canConvert) {
    3581. 

  3581. 	    IF (err) 
    3582. 

  3582. 		error("%s", nc_strerror(err));
    3583. 

  3583. 	} else {
    3584. 

  3584. 	    IF (err != NC_ECHAR)
    3585. 

  3585. 		error("wrong type: status = %d", err);
    3586. 

  3586.         }
    3587. 

  3587.         for (j = 0; j < var_rank[i]; j++) {
    3588. 

  3588.             edge[j] = 1;
    3589. 

  3589. 	}
    3590. 

  3590. 

  3591. 	    /* Choose a random point dividing each dim into 2 parts */
    3592. 

  3592. 	    /* Put 2^rank (nslabs) slabs so defined */
    3593. 

  3593. 	nslabs = 1;
    3594. 

  3594. 	for (j = 0; j < var_rank[i]; j++) {
    3595. 

  3595.             mid[j] = roll( var_shape[i][j] );
    3596. 

  3596. 	    nslabs *= 2;
    3597. 

  3597. 	}
    3598. 

  3598. 	    /* bits of k determine whether to put lower or upper part of dim */
    3599. 

  3599. 	for (k = 0; k < nslabs; k++) {
    3600. 

  3600. 	    nels = 1;
    3601. 

  3601. 	    for (j = 0; j < var_rank[i]; j++) {
    3602. 

  3602. 		if ((k >> j) & 1) {
    3603. 

  3603. 		    start[j] = 0;
    3604. 

  3604. 		    edge[j] = mid[j];
    3605. 

  3605. 		}else{
    3606. 

  3606. 		    start[j] = mid[j];
    3607. 

  3607. 		    edge[j] = var_shape[i][j] - mid[j];
    3608. 

  3608. 		}
    3609. 

  3609. 		nels *= edge[j];
    3610. 

  3610. 	    }
    3611. 

  3611.             for (allInExtRange = 1, j = 0; j < nels; j++) {
    3612. 

  3612. 		err = toMixedBase(j, var_rank[i], edge, index);
    3613. 

  3613. 		IF (err) 
    3614. 

  3614. 		    error("error in toMixedBase 1");
    3615. 

  3615. 		for (d = 0; d < var_rank[i]; d++) 
    3616. 

  3616. 		    index[d] += start[d];
    3617. 

  3617. 		value[j]= hash_short(var_type[i], var_rank[i], index, NCT_SHORT);
    3618. 

  3618. 		allInExtRange = allInExtRange 
    3619. 

  3619. 		    && inRange3(value[j], var_type[i], NCT_SHORT);
    3620. 

  3620. 	    }
    3621. 

  3621. 	    if (var_rank[i] == 0 && i%2 == 0)
    3622. 

  3622. 		err = nc_put_vara_short(ncid, i, NULL, NULL, value);
    3623. 

  3623. 	    else
    3624. 

  3624. 		err = nc_put_vara_short(ncid, i, start, edge, value);
    3625. 

  3625. 	    if (canConvert) {
    3626. 

  3626. 		if (allInExtRange) {
    3627. 

  3627. 		    IF (err) 
    3628. 

  3628. 			error("%s", nc_strerror(err));
    3629. 

  3629. 		} else {
    3630. 

  3630. 		    IF (err != NC_ERANGE)
    3631. 

  3631. 			error("range error: status = %d", err);
    3632. 

  3632. 		}
    3633. 

  3633. 	    } else {
    3634. 

  3634. 		IF (nels > 0 && err != NC_ECHAR)
    3635. 

  3635. 		    error("wrong type: status = %d", err);
    3636. 

  3636.             }
    3637. 

  3637.         }
    3638. 

  3638.     }
    3639. 

  3639. 

  3640.     err = nc_close(ncid);
    3641. 

  3641.     IF (err) 
    3642. 

  3642. 	error("nc_close: %s", nc_strerror(err));
    3643. 

  3643. 

  3644.     check_vars_short(scratch);
    3645. 

  3645. 

  3646.     err = remove(scratch);
    3647. 

  3647.     IF (err)
    3648. 

  3648.         error("remove of %s failed", scratch);
    3649. 

  3649. }
    3650. 

  3650. 

  3651. void
    3652. 

  3652. test_nc_put_vara_int(void)
    3653. 

  3653. {
    3654. 

  3654.     int ncid;
    3655. 

  3655.     int d;
    3656. 

  3656.     int i;
    3657. 

  3657.     int j;
    3658. 

  3658.     int k;
    3659. 

  3659.     int err;
    3660. 

  3660.     int nslabs;
    3661. 

  3661.     int nels;
    3662. 

  3662.     size_t start[MAX_RANK];
    3663. 

  3663.     size_t edge[MAX_RANK];
    3664. 

  3664.     size_t mid[MAX_RANK];
    3665. 

  3665.     size_t index[MAX_RANK];
    3666. 

  3666.     int canConvert;	/* Both text or both numeric */
    3667. 

  3667.     int allInExtRange;	/* all values within external range? */
    3668. 

  3668.     int value[MAX_NELS];
    3669. 

  3669. 

  3670.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    3671. 

  3671.     IF (err) {
    3672. 

  3672.         error("nc_create: %s", nc_strerror(err));
    3673. 

  3673.         return;
    3674. 

  3674.     }
    3675. 

  3675.     def_dims(ncid);
    3676. 

  3676.     def_vars(ncid);
    3677. 

  3677.     err = nc_enddef(ncid);
    3678. 

  3678.     IF (err)
    3679. 

  3679.         error("nc_enddef: %s", nc_strerror(err));
    3680. 

  3680. 

  3681.     value[0] = 0;
    3682. 

  3682.     for (i = 0; i < NVARS; i++) {
    3683. 

  3683. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_INT == NCT_TEXT);
    3684. 

  3684.         assert(var_rank[i] <= MAX_RANK);
    3685. 

  3685.         assert(var_nels[i] <= MAX_NELS);
    3686. 

  3686.         for (j = 0; j < var_rank[i]; j++) {
    3687. 

  3687.             start[j] = 0;
    3688. 

  3688.             edge[j] = 1;
    3689. 

  3689. 	}
    3690. 

  3690.         err = nc_put_vara_int(BAD_ID, i, start, edge, value);
    3691. 

  3691.         IF (err != NC_EBADID) 
    3692. 

  3692. 	    error("bad ncid: status = %d", err);
    3693. 

  3693.         err = nc_put_vara_int(ncid, BAD_VARID, start, edge, value);
    3694. 

  3694.         IF (err != NC_ENOTVAR) 
    3695. 

  3695. 	    error("bad var id: status = %d", err);
    3696. 

  3696.         for (j = 0; j < var_rank[i]; j++) {
    3697. 

  3697. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3698. 

  3698. 		start[j] = var_shape[i][j];
    3699. 

  3699. 		err = nc_put_vara_int(ncid, i, start, edge, value);
    3700. 

  3700. 		IF (canConvert && err != NC_EINVALCOORDS)
    3701. 

  3701. 		    error("bad start: status = %d", err);
    3702. 

  3702. 		start[j] = 0;
    3703. 

  3703. 		edge[j] = var_shape[i][j] + 1;
    3704. 

  3704. 		err = nc_put_vara_int(ncid, i, start, edge, value);
    3705. 

  3705. 		IF (canConvert && err != NC_EEDGE)
    3706. 

  3706. 		    error("bad edge: status = %d", err);
    3707. 

  3707. 		edge[j] = 1;
    3708. 

  3708. 	    }
    3709. 

  3709.         }
    3710. 

  3710.             /* Check correct error returned even when nothing to put */
    3711. 

  3711.         for (j = 0; j < var_rank[i]; j++) {
    3712. 

  3712.             edge[j] = 0;
    3713. 

  3713. 	}
    3714. 

  3714.         err = nc_put_vara_int(BAD_ID, i, start, edge, value);
    3715. 

  3715.         IF (err != NC_EBADID) 
    3716. 

  3716. 	    error("bad ncid: status = %d", err);
    3717. 

  3717.         err = nc_put_vara_int(ncid, BAD_VARID, start, edge, value);
    3718. 

  3718.         IF (err != NC_ENOTVAR) 
    3719. 

  3719. 	    error("bad var id: status = %d", err);
    3720. 

  3720.         for (j = 0; j < var_rank[i]; j++) {
    3721. 

  3721. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3722. 

  3722. 		start[j] = var_shape[i][j];
    3723. 

  3723. 		err = nc_put_vara_int(ncid, i, start, edge, value);
    3724. 

  3724. 		IF (canConvert && err != NC_EINVALCOORDS)
    3725. 

  3725. 		    error("bad start: status = %d", err);
    3726. 

  3726. 		start[j] = 0;
    3727. 

  3727. 	    }
    3728. 

  3728.         }
    3729. 

  3729. 	err = nc_put_vara_int(ncid, i, start, edge, value);
    3730. 

  3730. 	if (canConvert) {
    3731. 

  3731. 	    IF (err) 
    3732. 

  3732. 		error("%s", nc_strerror(err));
    3733. 

  3733. 	} else {
    3734. 

  3734. 	    IF (err != NC_ECHAR)
    3735. 

  3735. 		error("wrong type: status = %d", err);
    3736. 

  3736.         }
    3737. 

  3737.         for (j = 0; j < var_rank[i]; j++) {
    3738. 

  3738.             edge[j] = 1;
    3739. 

  3739. 	}
    3740. 

  3740. 

  3741. 	    /* Choose a random point dividing each dim into 2 parts */
    3742. 

  3742. 	    /* Put 2^rank (nslabs) slabs so defined */
    3743. 

  3743. 	nslabs = 1;
    3744. 

  3744. 	for (j = 0; j < var_rank[i]; j++) {
    3745. 

  3745.             mid[j] = roll( var_shape[i][j] );
    3746. 

  3746. 	    nslabs *= 2;
    3747. 

  3747. 	}
    3748. 

  3748. 	    /* bits of k determine whether to put lower or upper part of dim */
    3749. 

  3749. 	for (k = 0; k < nslabs; k++) {
    3750. 

  3750. 	    nels = 1;
    3751. 

  3751. 	    for (j = 0; j < var_rank[i]; j++) {
    3752. 

  3752. 		if ((k >> j) & 1) {
    3753. 

  3753. 		    start[j] = 0;
    3754. 

  3754. 		    edge[j] = mid[j];
    3755. 

  3755. 		}else{
    3756. 

  3756. 		    start[j] = mid[j];
    3757. 

  3757. 		    edge[j] = var_shape[i][j] - mid[j];
    3758. 

  3758. 		}
    3759. 

  3759. 		nels *= edge[j];
    3760. 

  3760. 	    }
    3761. 

  3761.             for (allInExtRange = 1, j = 0; j < nels; j++) {
    3762. 

  3762. 		err = toMixedBase(j, var_rank[i], edge, index);
    3763. 

  3763. 		IF (err) 
    3764. 

  3764. 		    error("error in toMixedBase 1");
    3765. 

  3765. 		for (d = 0; d < var_rank[i]; d++) 
    3766. 

  3766. 		    index[d] += start[d];
    3767. 

  3767. 		value[j]= hash_int(var_type[i], var_rank[i], index, NCT_INT);
    3768. 

  3768. 		allInExtRange = allInExtRange 
    3769. 

  3769. 		    && inRange3(value[j], var_type[i], NCT_INT);
    3770. 

  3770. 	    }
    3771. 

  3771. 	    if (var_rank[i] == 0 && i%2 == 0)
    3772. 

  3772. 		err = nc_put_vara_int(ncid, i, NULL, NULL, value);
    3773. 

  3773. 	    else
    3774. 

  3774. 		err = nc_put_vara_int(ncid, i, start, edge, value);
    3775. 

  3775. 	    if (canConvert) {
    3776. 

  3776. 		if (allInExtRange) {
    3777. 

  3777. 		    IF (err) 
    3778. 

  3778. 			error("%s", nc_strerror(err));
    3779. 

  3779. 		} else {
    3780. 

  3780. 		    IF (err != NC_ERANGE)
    3781. 

  3781. 			error("range error: status = %d", err);
    3782. 

  3782. 		}
    3783. 

  3783. 	    } else {
    3784. 

  3784. 		IF (nels > 0 && err != NC_ECHAR)
    3785. 

  3785. 		    error("wrong type: status = %d", err);
    3786. 

  3786.             }
    3787. 

  3787.         }
    3788. 

  3788.     }
    3789. 

  3789. 

  3790.     err = nc_close(ncid);
    3791. 

  3791.     IF (err) 
    3792. 

  3792. 	error("nc_close: %s", nc_strerror(err));
    3793. 

  3793. 

  3794.     check_vars_int(scratch);
    3795. 

  3795. 

  3796.     err = remove(scratch);
    3797. 

  3797.     IF (err)
    3798. 

  3798.         error("remove of %s failed", scratch);
    3799. 

  3799. }
    3800. 

  3800. 

  3801. void
    3802. 

  3802. test_nc_put_vara_long(void)
    3803. 

  3803. {
    3804. 

  3804.     int ncid;
    3805. 

  3805.     int d;
    3806. 

  3806.     int i;
    3807. 

  3807.     int j;
    3808. 

  3808.     int k;
    3809. 

  3809.     int err;
    3810. 

  3810.     int nslabs;
    3811. 

  3811.     int nels;
    3812. 

  3812.     size_t start[MAX_RANK];
    3813. 

  3813.     size_t edge[MAX_RANK];
    3814. 

  3814.     size_t mid[MAX_RANK];
    3815. 

  3815.     size_t index[MAX_RANK];
    3816. 

  3816.     int canConvert;	/* Both text or both numeric */
    3817. 

  3817.     int allInExtRange;	/* all values within external range? */
    3818. 

  3818.     long value[MAX_NELS];
    3819. 

  3819. 

  3820.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    3821. 

  3821.     IF (err) {
    3822. 

  3822.         error("nc_create: %s", nc_strerror(err));
    3823. 

  3823.         return;
    3824. 

  3824.     }
    3825. 

  3825.     def_dims(ncid);
    3826. 

  3826.     def_vars(ncid);
    3827. 

  3827.     err = nc_enddef(ncid);
    3828. 

  3828.     IF (err)
    3829. 

  3829.         error("nc_enddef: %s", nc_strerror(err));
    3830. 

  3830. 

  3831.     value[0] = 0;
    3832. 

  3832.     for (i = 0; i < NVARS; i++) {
    3833. 

  3833. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_LONG == NCT_TEXT);
    3834. 

  3834.         assert(var_rank[i] <= MAX_RANK);
    3835. 

  3835.         assert(var_nels[i] <= MAX_NELS);
    3836. 

  3836.         for (j = 0; j < var_rank[i]; j++) {
    3837. 

  3837.             start[j] = 0;
    3838. 

  3838.             edge[j] = 1;
    3839. 

  3839. 	}
    3840. 

  3840.         err = nc_put_vara_long(BAD_ID, i, start, edge, value);
    3841. 

  3841.         IF (err != NC_EBADID) 
    3842. 

  3842. 	    error("bad ncid: status = %d", err);
    3843. 

  3843.         err = nc_put_vara_long(ncid, BAD_VARID, start, edge, value);
    3844. 

  3844.         IF (err != NC_ENOTVAR) 
    3845. 

  3845. 	    error("bad var id: status = %d", err);
    3846. 

  3846.         for (j = 0; j < var_rank[i]; j++) {
    3847. 

  3847. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3848. 

  3848. 		start[j] = var_shape[i][j];
    3849. 

  3849. 		err = nc_put_vara_long(ncid, i, start, edge, value);
    3850. 

  3850. 		IF (canConvert && err != NC_EINVALCOORDS)
    3851. 

  3851. 		    error("bad start: status = %d", err);
    3852. 

  3852. 		start[j] = 0;
    3853. 

  3853. 		edge[j] = var_shape[i][j] + 1;
    3854. 

  3854. 		err = nc_put_vara_long(ncid, i, start, edge, value);
    3855. 

  3855. 		IF (canConvert && err != NC_EEDGE)
    3856. 

  3856. 		    error("bad edge: status = %d", err);
    3857. 

  3857. 		edge[j] = 1;
    3858. 

  3858. 	    }
    3859. 

  3859.         }
    3860. 

  3860.             /* Check correct error returned even when nothing to put */
    3861. 

  3861.         for (j = 0; j < var_rank[i]; j++) {
    3862. 

  3862.             edge[j] = 0;
    3863. 

  3863. 	}
    3864. 

  3864.         err = nc_put_vara_long(BAD_ID, i, start, edge, value);
    3865. 

  3865.         IF (err != NC_EBADID) 
    3866. 

  3866. 	    error("bad ncid: status = %d", err);
    3867. 

  3867.         err = nc_put_vara_long(ncid, BAD_VARID, start, edge, value);
    3868. 

  3868.         IF (err != NC_ENOTVAR) 
    3869. 

  3869. 	    error("bad var id: status = %d", err);
    3870. 

  3870.         for (j = 0; j < var_rank[i]; j++) {
    3871. 

  3871. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3872. 

  3872. 		start[j] = var_shape[i][j];
    3873. 

  3873. 		err = nc_put_vara_long(ncid, i, start, edge, value);
    3874. 

  3874. 		IF (canConvert && err != NC_EINVALCOORDS)
    3875. 

  3875. 		    error("bad start: status = %d", err);
    3876. 

  3876. 		start[j] = 0;
    3877. 

  3877. 	    }
    3878. 

  3878.         }
    3879. 

  3879. 	err = nc_put_vara_long(ncid, i, start, edge, value);
    3880. 

  3880. 	if (canConvert) {
    3881. 

  3881. 	    IF (err) 
    3882. 

  3882. 		error("%s", nc_strerror(err));
    3883. 

  3883. 	} else {
    3884. 

  3884. 	    IF (err != NC_ECHAR)
    3885. 

  3885. 		error("wrong type: status = %d", err);
    3886. 

  3886.         }
    3887. 

  3887.         for (j = 0; j < var_rank[i]; j++) {
    3888. 

  3888.             edge[j] = 1;
    3889. 

  3889. 	}
    3890. 

  3890. 

  3891. 	    /* Choose a random point dividing each dim into 2 parts */
    3892. 

  3892. 	    /* Put 2^rank (nslabs) slabs so defined */
    3893. 

  3893. 	nslabs = 1;
    3894. 

  3894. 	for (j = 0; j < var_rank[i]; j++) {
    3895. 

  3895.             mid[j] = roll( var_shape[i][j] );
    3896. 

  3896. 	    nslabs *= 2;
    3897. 

  3897. 	}
    3898. 

  3898. 	    /* bits of k determine whether to put lower or upper part of dim */
    3899. 

  3899. 	for (k = 0; k < nslabs; k++) {
    3900. 

  3900. 	    nels = 1;
    3901. 

  3901. 	    for (j = 0; j < var_rank[i]; j++) {
    3902. 

  3902. 		if ((k >> j) & 1) {
    3903. 

  3903. 		    start[j] = 0;
    3904. 

  3904. 		    edge[j] = mid[j];
    3905. 

  3905. 		}else{
    3906. 

  3906. 		    start[j] = mid[j];
    3907. 

  3907. 		    edge[j] = var_shape[i][j] - mid[j];
    3908. 

  3908. 		}
    3909. 

  3909. 		nels *= edge[j];
    3910. 

  3910. 	    }
    3911. 

  3911.             for (allInExtRange = 1, j = 0; j < nels; j++) {
    3912. 

  3912. 		err = toMixedBase(j, var_rank[i], edge, index);
    3913. 

  3913. 		IF (err) 
    3914. 

  3914. 		    error("error in toMixedBase 1");
    3915. 

  3915. 		for (d = 0; d < var_rank[i]; d++) 
    3916. 

  3916. 		    index[d] += start[d];
    3917. 

  3917. 		value[j]= hash_long(var_type[i], var_rank[i], index, NCT_LONG);
    3918. 

  3918. 		allInExtRange = allInExtRange 
    3919. 

  3919. 		    && inRange3(value[j], var_type[i], NCT_LONG);
    3920. 

  3920. 	    }
    3921. 

  3921. 	    if (var_rank[i] == 0 && i%2 == 0)
    3922. 

  3922. 		err = nc_put_vara_long(ncid, i, NULL, NULL, value);
    3923. 

  3923. 	    else
    3924. 

  3924. 		err = nc_put_vara_long(ncid, i, start, edge, value);
    3925. 

  3925. 	    if (canConvert) {
    3926. 

  3926. 		if (allInExtRange) {
    3927. 

  3927. 		    IF (err) 
    3928. 

  3928. 			error("%s", nc_strerror(err));
    3929. 

  3929. 		} else {
    3930. 

  3930. 		    IF (err != NC_ERANGE)
    3931. 

  3931. 			error("range error: status = %d", err);
    3932. 

  3932. 		}
    3933. 

  3933. 	    } else {
    3934. 

  3934. 		IF (nels > 0 && err != NC_ECHAR)
    3935. 

  3935. 		    error("wrong type: status = %d", err);
    3936. 

  3936.             }
    3937. 

  3937.         }
    3938. 

  3938.     }
    3939. 

  3939. 

  3940.     err = nc_close(ncid);
    3941. 

  3941.     IF (err) 
    3942. 

  3942. 	error("nc_close: %s", nc_strerror(err));
    3943. 

  3943. 

  3944.     check_vars_long(scratch);
    3945. 

  3945. 

  3946.     err = remove(scratch);
    3947. 

  3947.     IF (err)
    3948. 

  3948.         error("remove of %s failed", scratch);
    3949. 

  3949. }
    3950. 

  3950. 

  3951. void
    3952. 

  3952. test_nc_put_vara_float(void)
    3953. 

  3953. {
    3954. 

  3954.     int ncid;
    3955. 

  3955.     int d;
    3956. 

  3956.     int i;
    3957. 

  3957.     int j;
    3958. 

  3958.     int k;
    3959. 

  3959.     int err;
    3960. 

  3960.     int nslabs;
    3961. 

  3961.     int nels;
    3962. 

  3962.     size_t start[MAX_RANK];
    3963. 

  3963.     size_t edge[MAX_RANK];
    3964. 

  3964.     size_t mid[MAX_RANK];
    3965. 

  3965.     size_t index[MAX_RANK];
    3966. 

  3966.     int canConvert;	/* Both text or both numeric */
    3967. 

  3967.     int allInExtRange;	/* all values within external range? */
    3968. 

  3968.     float value[MAX_NELS];
    3969. 

  3969. 

  3970.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    3971. 

  3971.     IF (err) {
    3972. 

  3972.         error("nc_create: %s", nc_strerror(err));
    3973. 

  3973.         return;
    3974. 

  3974.     }
    3975. 

  3975.     def_dims(ncid);
    3976. 

  3976.     def_vars(ncid);
    3977. 

  3977.     err = nc_enddef(ncid);
    3978. 

  3978.     IF (err)
    3979. 

  3979.         error("nc_enddef: %s", nc_strerror(err));
    3980. 

  3980. 

  3981.     value[0] = 0;
    3982. 

  3982.     for (i = 0; i < NVARS; i++) {
    3983. 

  3983. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_FLOAT == NCT_TEXT);
    3984. 

  3984.         assert(var_rank[i] <= MAX_RANK);
    3985. 

  3985.         assert(var_nels[i] <= MAX_NELS);
    3986. 

  3986.         for (j = 0; j < var_rank[i]; j++) {
    3987. 

  3987.             start[j] = 0;
    3988. 

  3988.             edge[j] = 1;
    3989. 

  3989. 	}
    3990. 

  3990.         err = nc_put_vara_float(BAD_ID, i, start, edge, value);
    3991. 

  3991.         IF (err != NC_EBADID) 
    3992. 

  3992. 	    error("bad ncid: status = %d", err);
    3993. 

  3993.         err = nc_put_vara_float(ncid, BAD_VARID, start, edge, value);
    3994. 

  3994.         IF (err != NC_ENOTVAR) 
    3995. 

  3995. 	    error("bad var id: status = %d", err);
    3996. 

  3996.         for (j = 0; j < var_rank[i]; j++) {
    3997. 

  3997. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    3998. 

  3998. 		start[j] = var_shape[i][j];
    3999. 

  3999. 		err = nc_put_vara_float(ncid, i, start, edge, value);
    4000. 

  4000. 		IF (canConvert && err != NC_EINVALCOORDS)
    4001. 

  4001. 		    error("bad start: status = %d", err);
    4002. 

  4002. 		start[j] = 0;
    4003. 

  4003. 		edge[j] = var_shape[i][j] + 1;
    4004. 

  4004. 		err = nc_put_vara_float(ncid, i, start, edge, value);
    4005. 

  4005. 		IF (canConvert && err != NC_EEDGE)
    4006. 

  4006. 		    error("bad edge: status = %d", err);
    4007. 

  4007. 		edge[j] = 1;
    4008. 

  4008. 	    }
    4009. 

  4009.         }
    4010. 

  4010.             /* Check correct error returned even when nothing to put */
    4011. 

  4011.         for (j = 0; j < var_rank[i]; j++) {
    4012. 

  4012.             edge[j] = 0;
    4013. 

  4013. 	}
    4014. 

  4014.         err = nc_put_vara_float(BAD_ID, i, start, edge, value);
    4015. 

  4015.         IF (err != NC_EBADID) 
    4016. 

  4016. 	    error("bad ncid: status = %d", err);
    4017. 

  4017.         err = nc_put_vara_float(ncid, BAD_VARID, start, edge, value);
    4018. 

  4018.         IF (err != NC_ENOTVAR) 
    4019. 

  4019. 	    error("bad var id: status = %d", err);
    4020. 

  4020.         for (j = 0; j < var_rank[i]; j++) {
    4021. 

  4021. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    4022. 

  4022. 		start[j] = var_shape[i][j];
    4023. 

  4023. 		err = nc_put_vara_float(ncid, i, start, edge, value);
    4024. 

  4024. 		IF (canConvert && err != NC_EINVALCOORDS)
    4025. 

  4025. 		    error("bad start: status = %d", err);
    4026. 

  4026. 		start[j] = 0;
    4027. 

  4027. 	    }
    4028. 

  4028.         }
    4029. 

  4029. 	err = nc_put_vara_float(ncid, i, start, edge, value);
    4030. 

  4030. 	if (canConvert) {
    4031. 

  4031. 	    IF (err) 
    4032. 

  4032. 		error("%s", nc_strerror(err));
    4033. 

  4033. 	} else {
    4034. 

  4034. 	    IF (err != NC_ECHAR)
    4035. 

  4035. 		error("wrong type: status = %d", err);
    4036. 

  4036.         }
    4037. 

  4037.         for (j = 0; j < var_rank[i]; j++) {
    4038. 

  4038.             edge[j] = 1;
    4039. 

  4039. 	}
    4040. 

  4040. 

  4041. 	    /* Choose a random point dividing each dim into 2 parts */
    4042. 

  4042. 	    /* Put 2^rank (nslabs) slabs so defined */
    4043. 

  4043. 	nslabs = 1;
    4044. 

  4044. 	for (j = 0; j < var_rank[i]; j++) {
    4045. 

  4045.             mid[j] = roll( var_shape[i][j] );
    4046. 

  4046. 	    nslabs *= 2;
    4047. 

  4047. 	}
    4048. 

  4048. 	    /* bits of k determine whether to put lower or upper part of dim */
    4049. 

  4049. 	for (k = 0; k < nslabs; k++) {
    4050. 

  4050. 	    nels = 1;
    4051. 

  4051. 	    for (j = 0; j < var_rank[i]; j++) {
    4052. 

  4052. 		if ((k >> j) & 1) {
    4053. 

  4053. 		    start[j] = 0;
    4054. 

  4054. 		    edge[j] = mid[j];
    4055. 

  4055. 		}else{
    4056. 

  4056. 		    start[j] = mid[j];
    4057. 

  4057. 		    edge[j] = var_shape[i][j] - mid[j];
    4058. 

  4058. 		}
    4059. 

  4059. 		nels *= edge[j];
    4060. 

  4060. 	    }
    4061. 

  4061.             for (allInExtRange = 1, j = 0; j < nels; j++) {
    4062. 

  4062. 		err = toMixedBase(j, var_rank[i], edge, index);
    4063. 

  4063. 		IF (err) 
    4064. 

  4064. 		    error("error in toMixedBase 1");
    4065. 

  4065. 		for (d = 0; d < var_rank[i]; d++) 
    4066. 

  4066. 		    index[d] += start[d];
    4067. 

  4067. 		value[j]= hash_float(var_type[i], var_rank[i], index, NCT_FLOAT);
    4068. 

  4068. 		allInExtRange = allInExtRange 
    4069. 

  4069. 		    && inRange3(value[j], var_type[i], NCT_FLOAT);
    4070. 

  4070. 	    }
    4071. 

  4071. 	    if (var_rank[i] == 0 && i%2 == 0)
    4072. 

  4072. 		err = nc_put_vara_float(ncid, i, NULL, NULL, value);
    4073. 

  4073. 	    else
    4074. 

  4074. 		err = nc_put_vara_float(ncid, i, start, edge, value);
    4075. 

  4075. 	    if (canConvert) {
    4076. 

  4076. 		if (allInExtRange) {
    4077. 

  4077. 		    IF (err) 
    4078. 

  4078. 			error("%s", nc_strerror(err));
    4079. 

  4079. 		} else {
    4080. 

  4080. 		    IF (err != NC_ERANGE)
    4081. 

  4081. 			error("range error: status = %d", err);
    4082. 

  4082. 		}
    4083. 

  4083. 	    } else {
    4084. 

  4084. 		IF (nels > 0 && err != NC_ECHAR)
    4085. 

  4085. 		    error("wrong type: status = %d", err);
    4086. 

  4086.             }
    4087. 

  4087.         }
    4088. 

  4088.     }
    4089. 

  4089. 

  4090.     err = nc_close(ncid);
    4091. 

  4091.     IF (err) 
    4092. 

  4092. 	error("nc_close: %s", nc_strerror(err));
    4093. 

  4093. 

  4094.     check_vars_float(scratch);
    4095. 

  4095. 

  4096.     err = remove(scratch);
    4097. 

  4097.     IF (err)
    4098. 

  4098.         error("remove of %s failed", scratch);
    4099. 

  4099. }
    4100. 

  4100. 

  4101. void
    4102. 

  4102. test_nc_put_vara_double(void)
    4103. 

  4103. {
    4104. 

  4104.     int ncid;
    4105. 

  4105.     int d;
    4106. 

  4106.     int i;
    4107. 

  4107.     int j;
    4108. 

  4108.     int k;
    4109. 

  4109.     int err;
    4110. 

  4110.     int nslabs;
    4111. 

  4111.     int nels;
    4112. 

  4112.     size_t start[MAX_RANK];
    4113. 

  4113.     size_t edge[MAX_RANK];
    4114. 

  4114.     size_t mid[MAX_RANK];
    4115. 

  4115.     size_t index[MAX_RANK];
    4116. 

  4116.     int canConvert;	/* Both text or both numeric */
    4117. 

  4117.     int allInExtRange;	/* all values within external range? */
    4118. 

  4118.     double value[MAX_NELS];
    4119. 

  4119. 

  4120.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    4121. 

  4121.     IF (err) {
    4122. 

  4122.         error("nc_create: %s", nc_strerror(err));
    4123. 

  4123.         return;
    4124. 

  4124.     }
    4125. 

  4125.     def_dims(ncid);
    4126. 

  4126.     def_vars(ncid);
    4127. 

  4127.     err = nc_enddef(ncid);
    4128. 

  4128.     IF (err)
    4129. 

  4129.         error("nc_enddef: %s", nc_strerror(err));
    4130. 

  4130. 

  4131.     value[0] = 0;
    4132. 

  4132.     for (i = 0; i < NVARS; i++) {
    4133. 

  4133. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_DOUBLE == NCT_TEXT);
    4134. 

  4134.         assert(var_rank[i] <= MAX_RANK);
    4135. 

  4135.         assert(var_nels[i] <= MAX_NELS);
    4136. 

  4136.         for (j = 0; j < var_rank[i]; j++) {
    4137. 

  4137.             start[j] = 0;
    4138. 

  4138.             edge[j] = 1;
    4139. 

  4139. 	}
    4140. 

  4140.         err = nc_put_vara_double(BAD_ID, i, start, edge, value);
    4141. 

  4141.         IF (err != NC_EBADID) 
    4142. 

  4142. 	    error("bad ncid: status = %d", err);
    4143. 

  4143.         err = nc_put_vara_double(ncid, BAD_VARID, start, edge, value);
    4144. 

  4144.         IF (err != NC_ENOTVAR) 
    4145. 

  4145. 	    error("bad var id: status = %d", err);
    4146. 

  4146.         for (j = 0; j < var_rank[i]; j++) {
    4147. 

  4147. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    4148. 

  4148. 		start[j] = var_shape[i][j];
    4149. 

  4149. 		err = nc_put_vara_double(ncid, i, start, edge, value);
    4150. 

  4150. 		IF (canConvert && err != NC_EINVALCOORDS)
    4151. 

  4151. 		    error("bad start: status = %d", err);
    4152. 

  4152. 		start[j] = 0;
    4153. 

  4153. 		edge[j] = var_shape[i][j] + 1;
    4154. 

  4154. 		err = nc_put_vara_double(ncid, i, start, edge, value);
    4155. 

  4155. 		IF (canConvert && err != NC_EEDGE)
    4156. 

  4156. 		    error("bad edge: status = %d", err);
    4157. 

  4157. 		edge[j] = 1;
    4158. 

  4158. 	    }
    4159. 

  4159.         }
    4160. 

  4160.             /* Check correct error returned even when nothing to put */
    4161. 

  4161.         for (j = 0; j < var_rank[i]; j++) {
    4162. 

  4162.             edge[j] = 0;
    4163. 

  4163. 	}
    4164. 

  4164.         err = nc_put_vara_double(BAD_ID, i, start, edge, value);
    4165. 

  4165.         IF (err != NC_EBADID) 
    4166. 

  4166. 	    error("bad ncid: status = %d", err);
    4167. 

  4167.         err = nc_put_vara_double(ncid, BAD_VARID, start, edge, value);
    4168. 

  4168.         IF (err != NC_ENOTVAR) 
    4169. 

  4169. 	    error("bad var id: status = %d", err);
    4170. 

  4170.         for (j = 0; j < var_rank[i]; j++) {
    4171. 

  4171. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    4172. 

  4172. 		start[j] = var_shape[i][j];
    4173. 

  4173. 		err = nc_put_vara_double(ncid, i, start, edge, value);
    4174. 

  4174. 		IF (canConvert && err != NC_EINVALCOORDS)
    4175. 

  4175. 		    error("bad start: status = %d", err);
    4176. 

  4176. 		start[j] = 0;
    4177. 

  4177. 	    }
    4178. 

  4178.         }
    4179. 

  4179. 	err = nc_put_vara_double(ncid, i, start, edge, value);
    4180. 

  4180. 	if (canConvert) {
    4181. 

  4181. 	    IF (err) 
    4182. 

  4182. 		error("%s", nc_strerror(err));
    4183. 

  4183. 	} else {
    4184. 

  4184. 	    IF (err != NC_ECHAR)
    4185. 

  4185. 		error("wrong type: status = %d", err);
    4186. 

  4186.         }
    4187. 

  4187.         for (j = 0; j < var_rank[i]; j++) {
    4188. 

  4188.             edge[j] = 1;
    4189. 

  4189. 	}
    4190. 

  4190. 

  4191. 	    /* Choose a random point dividing each dim into 2 parts */
    4192. 

  4192. 	    /* Put 2^rank (nslabs) slabs so defined */
    4193. 

  4193. 	nslabs = 1;
    4194. 

  4194. 	for (j = 0; j < var_rank[i]; j++) {
    4195. 

  4195.             mid[j] = roll( var_shape[i][j] );
    4196. 

  4196. 	    nslabs *= 2;
    4197. 

  4197. 	}
    4198. 

  4198. 	    /* bits of k determine whether to put lower or upper part of dim */
    4199. 

  4199. 	for (k = 0; k < nslabs; k++) {
    4200. 

  4200. 	    nels = 1;
    4201. 

  4201. 	    for (j = 0; j < var_rank[i]; j++) {
    4202. 

  4202. 		if ((k >> j) & 1) {
    4203. 

  4203. 		    start[j] = 0;
    4204. 

  4204. 		    edge[j] = mid[j];
    4205. 

  4205. 		}else{
    4206. 

  4206. 		    start[j] = mid[j];
    4207. 

  4207. 		    edge[j] = var_shape[i][j] - mid[j];
    4208. 

  4208. 		}
    4209. 

  4209. 		nels *= edge[j];
    4210. 

  4210. 	    }
    4211. 

  4211.             for (allInExtRange = 1, j = 0; j < nels; j++) {
    4212. 

  4212. 		err = toMixedBase(j, var_rank[i], edge, index);
    4213. 

  4213. 		IF (err) 
    4214. 

  4214. 		    error("error in toMixedBase 1");
    4215. 

  4215. 		for (d = 0; d < var_rank[i]; d++) 
    4216. 

  4216. 		    index[d] += start[d];
    4217. 

  4217. 		value[j]= hash_double(var_type[i], var_rank[i], index, NCT_DOUBLE);
    4218. 

  4218. 		allInExtRange = allInExtRange 
    4219. 

  4219. 		    && inRange3(value[j], var_type[i], NCT_DOUBLE);
    4220. 

  4220. 	    }
    4221. 

  4221. 	    if (var_rank[i] == 0 && i%2 == 0)
    4222. 

  4222. 		err = nc_put_vara_double(ncid, i, NULL, NULL, value);
    4223. 

  4223. 	    else
    4224. 

  4224. 		err = nc_put_vara_double(ncid, i, start, edge, value);
    4225. 

  4225. 	    if (canConvert) {
    4226. 

  4226. 		if (allInExtRange) {
    4227. 

  4227. 		    IF (err) 
    4228. 

  4228. 			error("%s", nc_strerror(err));
    4229. 

  4229. 		} else {
    4230. 

  4230. 		    IF (err != NC_ERANGE)
    4231. 

  4231. 			error("range error: status = %d", err);
    4232. 

  4232. 		}
    4233. 

  4233. 	    } else {
    4234. 

  4234. 		IF (nels > 0 && err != NC_ECHAR)
    4235. 

  4235. 		    error("wrong type: status = %d", err);
    4236. 

  4236.             }
    4237. 

  4237.         }
    4238. 

  4238.     }
    4239. 

  4239. 

  4240.     err = nc_close(ncid);
    4241. 

  4241.     IF (err) 
    4242. 

  4242. 	error("nc_close: %s", nc_strerror(err));
    4243. 

  4243. 

  4244.     check_vars_double(scratch);
    4245. 

  4245. 

  4246.     err = remove(scratch);
    4247. 

  4247.     IF (err)
    4248. 

  4248.         error("remove of %s failed", scratch);
    4249. 

  4249. }
    4250. 

  4250. 

  4251. 

  4252. 

  4253. 

  4254. void
    4255. 

  4255. test_nc_put_vars_text(void)
    4256. 

  4256. {
    4257. 

  4257.     int ncid;
    4258. 

  4258.     int d;
    4259. 

  4259.     int i;
    4260. 

  4260.     int j;
    4261. 

  4261.     int k;
    4262. 

  4262.     int m;
    4263. 

  4263.     int err;
    4264. 

  4264.     int nels;
    4265. 

  4265.     int nslabs;
    4266. 

  4266.     int nstarts;        /* number of different starts */
    4267. 

  4267.     size_t start[MAX_RANK];
    4268. 

  4268.     size_t edge[MAX_RANK];
    4269. 

  4269.     size_t index[MAX_RANK];
    4270. 

  4270.     size_t index2[MAX_RANK];
    4271. 

  4271.     size_t mid[MAX_RANK];
    4272. 

  4272.     size_t count[MAX_RANK];
    4273. 

  4273.     size_t sstride[MAX_RANK];
    4274. 

  4274.     ptrdiff_t stride[MAX_RANK];
    4275. 

  4275.     int canConvert;	/* Both text or both numeric */
    4276. 

  4276.     int allInExtRange;	/* all values within external range? */
    4277. 

  4277.     text value[MAX_NELS];
    4278. 

  4278. 

  4279.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    4280. 

  4280.     IF (err) {
    4281. 

  4281. 	error("nc_create: %s", nc_strerror(err));
    4282. 

  4282. 	return;
    4283. 

  4283.     }
    4284. 

  4284.     def_dims(ncid);
    4285. 

  4285.     def_vars(ncid);
    4286. 

  4286.     err = nc_enddef(ncid);
    4287. 

  4287.     IF (err)
    4288. 

  4288. 	error("nc_enddef: %s", nc_strerror(err));
    4289. 

  4289. 

  4290.     for (i = 0; i < NVARS; i++) {
    4291. 

  4291. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_TEXT == NCT_TEXT);
    4292. 

  4292. 	assert(var_rank[i] <= MAX_RANK);
    4293. 

  4293. 	assert(var_nels[i] <= MAX_NELS);
    4294. 

  4294. 	for (j = 0; j < var_rank[i]; j++) {
    4295. 

  4295. 	    start[j] = 0;
    4296. 

  4296. 	    edge[j] = 1;
    4297. 

  4297. 	    stride[j] = 1;
    4298. 

  4298. 	}
    4299. 

  4299. 	err = nc_put_vars_text(BAD_ID, i, start, edge, stride, value);
    4300. 

  4300. 	IF (err != NC_EBADID) 
    4301. 

  4301. 	    error("bad ncid: status = %d", err);
    4302. 

  4302. 	err = nc_put_vars_text(ncid, BAD_VARID, start, edge, stride, value);
    4303. 

  4303. 	IF (err != NC_ENOTVAR) 
    4304. 

  4304. 	    error("bad var id: status = %d", err);
    4305. 

  4305. 	for (j = 0; j < var_rank[i]; j++) {
    4306. 

  4306. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    4307. 

  4307. 		start[j] = var_shape[i][j] + 1;
    4308. 

  4308. 		err = nc_put_vars_text(ncid, i, start, edge, stride, value);
    4309. 

  4309. 	      if(!canConvert) {
    4310. 

  4310. 		IF(err != NC_ECHAR)
    4311. 

  4311. 			error("conversion: status = %d", err);
    4312. 

  4312. 	      } else {
    4313. 

  4313. 		IF(err != NC_EINVALCOORDS)
    4314. 

  4314. 		    error("bad start: status = %d", err);
    4315. 

  4315. 		start[j] = 0;
    4316. 

  4316. 		edge[j] = var_shape[i][j] + 1;
    4317. 

  4317. 		err = nc_put_vars_text(ncid, i, start, edge, stride, value);
    4318. 

  4318. 		IF (err != NC_EEDGE)
    4319. 

  4319. 		    error("bad edge: status = %d", err);
    4320. 

  4320. 		edge[j] = 1;
    4321. 

  4321. 		stride[j] = 0;
    4322. 

  4322. 		err = nc_put_vars_text(ncid, i, start, edge, stride, value);
    4323. 

  4323. 		IF (err != NC_ESTRIDE)
    4324. 

  4324. 		    error("bad stride: status = %d", err);
    4325. 

  4325. 		stride[j] = 1;
    4326. 

  4326.               }
    4327. 

  4327. 	    }
    4328. 

  4328. 	}
    4329. 

  4329. 	    /* Choose a random point dividing each dim into 2 parts */
    4330. 

  4330. 	    /* Put 2^rank (nslabs) slabs so defined */
    4331. 

  4331. 	nslabs = 1;
    4332. 

  4332. 	for (j = 0; j < var_rank[i]; j++) {
    4333. 

  4333. 	    mid[j] = roll( var_shape[i][j] );
    4334. 

  4334. 	    nslabs *= 2;
    4335. 

  4335. 	}
    4336. 

  4336. 	    /* bits of k determine whether to put lower or upper part of dim */
    4337. 

  4337. 	    /* choose random stride from 1 to edge */
    4338. 

  4338. 	for (k = 0; k < nslabs; k++) {
    4339. 

  4339. 	    nstarts = 1;
    4340. 

  4340. 	    for (j = 0; j < var_rank[i]; j++) {
    4341. 

  4341. 		if ((k >> j) & 1) {
    4342. 

  4342. 		    start[j] = 0;
    4343. 

  4343. 		    edge[j] = mid[j];
    4344. 

  4344. 		}else{
    4345. 

  4345. 		    start[j] = mid[j];
    4346. 

  4346. 		    edge[j] = var_shape[i][j] - mid[j];
    4347. 

  4347. 		}
    4348. 

  4348. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    4349. 

  4349. 		nstarts *= stride[j];
    4350. 

  4350. 	    }
    4351. 

  4351. 	    for (m = 0; m < nstarts; m++) {
    4352. 

  4352. 		err = toMixedBase(m, var_rank[i], sstride, index);
    4353. 

  4353. 		IF (err)
    4354. 

  4354. 		    error("error in toMixedBase");
    4355. 

  4355. 		nels = 1;
    4356. 

  4356. 		for (j = 0; j < var_rank[i]; j++) {
    4357. 

  4357. 		    count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    4358. 

  4358. 		    nels *= count[j];
    4359. 

  4359. 		    index[j] += start[j];
    4360. 

  4360. 		}
    4361. 

  4361. 		    /* Random choice of forward or backward */
    4362. 

  4362. /* TODO
    4363. 

  4363. 		if ( roll(2) ) {
    4364. 

  4364. 		    for (j = 0; j < var_rank[i]; j++) {
    4365. 

  4365. 			index[j] += (count[j] - 1) * stride[j];
    4366. 

  4366. 			stride[j] = -stride[j];
    4367. 

  4367. 		    }
    4368. 

  4368. 		}
    4369. 

  4369. */
    4370. 

  4370. 		for (allInExtRange = 1, j = 0; j < nels; j++) {
    4371. 

  4371. 		    err = toMixedBase(j, var_rank[i], count, index2);
    4372. 

  4372. 		    IF (err)
    4373. 

  4373. 			error("error in toMixedBase");
    4374. 

  4374. 		    for (d = 0; d < var_rank[i]; d++)
    4375. 

  4375. 			index2[d] = index[d] + index2[d] * stride[d];
    4376. 

  4376. 		    value[j] = hash_text(var_type[i], var_rank[i], index2, 
    4377. 

  4377. 			NCT_TEXT);
    4378. 

  4378. 		    allInExtRange = allInExtRange 
    4379. 

  4379. 			&& inRange3(value[j], var_type[i], NCT_TEXT);
    4380. 

  4380. 		}
    4381. 

  4381. 		if (var_rank[i] == 0 && i%2 == 0)
    4382. 

  4382. 		    err = nc_put_vars_text(ncid, i, NULL, NULL, stride, value);
    4383. 

  4383. 		else
    4384. 

  4384. 		    err = nc_put_vars_text(ncid, i, index, count, stride, value);
    4385. 

  4385. 		if (canConvert) {
    4386. 

  4386. 		    if (allInExtRange) {
    4387. 

  4387. 			IF (err) 
    4388. 

  4388. 			    error("%s", nc_strerror(err));
    4389. 

  4389. 		    } else {
    4390. 

  4390. 			IF (err != NC_ERANGE)
    4391. 

  4391. 			    error("range error: status = %d", err);
    4392. 

  4392. 		    }
    4393. 

  4393. 		} else {
    4394. 

  4394. 		    IF (nels > 0 && err != NC_ECHAR)
    4395. 

  4395. 			error("wrong type: status = %d", err);
    4396. 

  4396. 		}
    4397. 

  4397. 	    }
    4398. 

  4398. 	}
    4399. 

  4399.     }
    4400. 

  4400. 

  4401.     err = nc_close(ncid);
    4402. 

  4402.     IF (err) 
    4403. 

  4403. 	error("nc_close: %s", nc_strerror(err));
    4404. 

  4404. 

  4405.     check_vars_text(scratch);
    4406. 

  4406. 

  4407.     err = remove(scratch);
    4408. 

  4408.     IF (err)
    4409. 

  4409. 	error("remove of %s failed", scratch);
    4410. 

  4410. }
    4411. 

  4411. 

  4412. void
    4413. 

  4413. test_nc_put_vars_uchar(void)
    4414. 

  4414. {
    4415. 

  4415.     int ncid;
    4416. 

  4416.     int d;
    4417. 

  4417.     int i;
    4418. 

  4418.     int j;
    4419. 

  4419.     int k;
    4420. 

  4420.     int m;
    4421. 

  4421.     int err;
    4422. 

  4422.     int nels;
    4423. 

  4423.     int nslabs;
    4424. 

  4424.     int nstarts;        /* number of different starts */
    4425. 

  4425.     size_t start[MAX_RANK];
    4426. 

  4426.     size_t edge[MAX_RANK];
    4427. 

  4427.     size_t index[MAX_RANK];
    4428. 

  4428.     size_t index2[MAX_RANK];
    4429. 

  4429.     size_t mid[MAX_RANK];
    4430. 

  4430.     size_t count[MAX_RANK];
    4431. 

  4431.     size_t sstride[MAX_RANK];
    4432. 

  4432.     ptrdiff_t stride[MAX_RANK];
    4433. 

  4433.     int canConvert;	/* Both text or both numeric */
    4434. 

  4434.     int allInExtRange;	/* all values within external range? */
    4435. 

  4435.     uchar value[MAX_NELS];
    4436. 

  4436. 

  4437.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    4438. 

  4438.     IF (err) {
    4439. 

  4439. 	error("nc_create: %s", nc_strerror(err));
    4440. 

  4440. 	return;
    4441. 

  4441.     }
    4442. 

  4442.     def_dims(ncid);
    4443. 

  4443.     def_vars(ncid);
    4444. 

  4444.     err = nc_enddef(ncid);
    4445. 

  4445.     IF (err)
    4446. 

  4446. 	error("nc_enddef: %s", nc_strerror(err));
    4447. 

  4447. 

  4448.     for (i = 0; i < NVARS; i++) {
    4449. 

  4449. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_UCHAR == NCT_TEXT);
    4450. 

  4450. 	assert(var_rank[i] <= MAX_RANK);
    4451. 

  4451. 	assert(var_nels[i] <= MAX_NELS);
    4452. 

  4452. 	for (j = 0; j < var_rank[i]; j++) {
    4453. 

  4453. 	    start[j] = 0;
    4454. 

  4454. 	    edge[j] = 1;
    4455. 

  4455. 	    stride[j] = 1;
    4456. 

  4456. 	}
    4457. 

  4457. 	err = nc_put_vars_uchar(BAD_ID, i, start, edge, stride, value);
    4458. 

  4458. 	IF (err != NC_EBADID) 
    4459. 

  4459. 	    error("bad ncid: status = %d", err);
    4460. 

  4460. 	err = nc_put_vars_uchar(ncid, BAD_VARID, start, edge, stride, value);
    4461. 

  4461. 	IF (err != NC_ENOTVAR) 
    4462. 

  4462. 	    error("bad var id: status = %d", err);
    4463. 

  4463. 	for (j = 0; j < var_rank[i]; j++) {
    4464. 

  4464. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    4465. 

  4465. 		start[j] = var_shape[i][j] + 1;
    4466. 

  4466. 		err = nc_put_vars_uchar(ncid, i, start, edge, stride, value);
    4467. 

  4467. 	      if(!canConvert) {
    4468. 

  4468. 		IF(err != NC_ECHAR)
    4469. 

  4469. 			error("conversion: status = %d", err);
    4470. 

  4470. 	      } else {
    4471. 

  4471. 		IF(err != NC_EINVALCOORDS)
    4472. 

  4472. 		    error("bad start: status = %d", err);
    4473. 

  4473. 		start[j] = 0;
    4474. 

  4474. 		edge[j] = var_shape[i][j] + 1;
    4475. 

  4475. 		err = nc_put_vars_uchar(ncid, i, start, edge, stride, value);
    4476. 

  4476. 		IF (err != NC_EEDGE)
    4477. 

  4477. 		    error("bad edge: status = %d", err);
    4478. 

  4478. 		edge[j] = 1;
    4479. 

  4479. 		stride[j] = 0;
    4480. 

  4480. 		err = nc_put_vars_uchar(ncid, i, start, edge, stride, value);
    4481. 

  4481. 		IF (err != NC_ESTRIDE)
    4482. 

  4482. 		    error("bad stride: status = %d", err);
    4483. 

  4483. 		stride[j] = 1;
    4484. 

  4484.               }
    4485. 

  4485. 	    }
    4486. 

  4486. 	}
    4487. 

  4487. 	    /* Choose a random point dividing each dim into 2 parts */
    4488. 

  4488. 	    /* Put 2^rank (nslabs) slabs so defined */
    4489. 

  4489. 	nslabs = 1;
    4490. 

  4490. 	for (j = 0; j < var_rank[i]; j++) {
    4491. 

  4491. 	    mid[j] = roll( var_shape[i][j] );
    4492. 

  4492. 	    nslabs *= 2;
    4493. 

  4493. 	}
    4494. 

  4494. 	    /* bits of k determine whether to put lower or upper part of dim */
    4495. 

  4495. 	    /* choose random stride from 1 to edge */
    4496. 

  4496. 	for (k = 0; k < nslabs; k++) {
    4497. 

  4497. 	    nstarts = 1;
    4498. 

  4498. 	    for (j = 0; j < var_rank[i]; j++) {
    4499. 

  4499. 		if ((k >> j) & 1) {
    4500. 

  4500. 		    start[j] = 0;
    4501. 

  4501. 		    edge[j] = mid[j];
    4502. 

  4502. 		}else{
    4503. 

  4503. 		    start[j] = mid[j];
    4504. 

  4504. 		    edge[j] = var_shape[i][j] - mid[j];
    4505. 

  4505. 		}
    4506. 

  4506. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    4507. 

  4507. 		nstarts *= stride[j];
    4508. 

  4508. 	    }
    4509. 

  4509. 	    for (m = 0; m < nstarts; m++) {
    4510. 

  4510. 		err = toMixedBase(m, var_rank[i], sstride, index);
    4511. 

  4511. 		IF (err)
    4512. 

  4512. 		    error("error in toMixedBase");
    4513. 

  4513. 		nels = 1;
    4514. 

  4514. 		for (j = 0; j < var_rank[i]; j++) {
    4515. 

  4515. 		    count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    4516. 

  4516. 		    nels *= count[j];
    4517. 

  4517. 		    index[j] += start[j];
    4518. 

  4518. 		}
    4519. 

  4519. 		    /* Random choice of forward or backward */
    4520. 

  4520. /* TODO
    4521. 

  4521. 		if ( roll(2) ) {
    4522. 

  4522. 		    for (j = 0; j < var_rank[i]; j++) {
    4523. 

  4523. 			index[j] += (count[j] - 1) * stride[j];
    4524. 

  4524. 			stride[j] = -stride[j];
    4525. 

  4525. 		    }
    4526. 

  4526. 		}
    4527. 

  4527. */
    4528. 

  4528. 		for (allInExtRange = 1, j = 0; j < nels; j++) {
    4529. 

  4529. 		    err = toMixedBase(j, var_rank[i], count, index2);
    4530. 

  4530. 		    IF (err)
    4531. 

  4531. 			error("error in toMixedBase");
    4532. 

  4532. 		    for (d = 0; d < var_rank[i]; d++)
    4533. 

  4533. 			index2[d] = index[d] + index2[d] * stride[d];
    4534. 

  4534. 		    value[j] = hash_uchar(var_type[i], var_rank[i], index2, 
    4535. 

  4535. 			NCT_UCHAR);
    4536. 

  4536. 		    allInExtRange = allInExtRange 
    4537. 

  4537. 			&& inRange3(value[j], var_type[i], NCT_UCHAR);
    4538. 

  4538. 		}
    4539. 

  4539. 		if (var_rank[i] == 0 && i%2 == 0)
    4540. 

  4540. 		    err = nc_put_vars_uchar(ncid, i, NULL, NULL, stride, value);
    4541. 

  4541. 		else
    4542. 

  4542. 		    err = nc_put_vars_uchar(ncid, i, index, count, stride, value);
    4543. 

  4543. 		if (canConvert) {
    4544. 

  4544. 		    if (allInExtRange) {
    4545. 

  4545. 			IF (err) 
    4546. 

  4546. 			    error("%s", nc_strerror(err));
    4547. 

  4547. 		    } else {
    4548. 

  4548. 			IF (err != NC_ERANGE)
    4549. 

  4549. 			    error("range error: status = %d", err);
    4550. 

  4550. 		    }
    4551. 

  4551. 		} else {
    4552. 

  4552. 		    IF (nels > 0 && err != NC_ECHAR)
    4553. 

  4553. 			error("wrong type: status = %d", err);
    4554. 

  4554. 		}
    4555. 

  4555. 	    }
    4556. 

  4556. 	}
    4557. 

  4557.     }
    4558. 

  4558. 

  4559.     err = nc_close(ncid);
    4560. 

  4560.     IF (err) 
    4561. 

  4561. 	error("nc_close: %s", nc_strerror(err));
    4562. 

  4562. 

  4563.     check_vars_uchar(scratch);
    4564. 

  4564. 

  4565.     err = remove(scratch);
    4566. 

  4566.     IF (err)
    4567. 

  4567. 	error("remove of %s failed", scratch);
    4568. 

  4568. }
    4569. 

  4569. 

  4570. void
    4571. 

  4571. test_nc_put_vars_schar(void)
    4572. 

  4572. {
    4573. 

  4573.     int ncid;
    4574. 

  4574.     int d;
    4575. 

  4575.     int i;
    4576. 

  4576.     int j;
    4577. 

  4577.     int k;
    4578. 

  4578.     int m;
    4579. 

  4579.     int err;
    4580. 

  4580.     int nels;
    4581. 

  4581.     int nslabs;
    4582. 

  4582.     int nstarts;        /* number of different starts */
    4583. 

  4583.     size_t start[MAX_RANK];
    4584. 

  4584.     size_t edge[MAX_RANK];
    4585. 

  4585.     size_t index[MAX_RANK];
    4586. 

  4586.     size_t index2[MAX_RANK];
    4587. 

  4587.     size_t mid[MAX_RANK];
    4588. 

  4588.     size_t count[MAX_RANK];
    4589. 

  4589.     size_t sstride[MAX_RANK];
    4590. 

  4590.     ptrdiff_t stride[MAX_RANK];
    4591. 

  4591.     int canConvert;	/* Both text or both numeric */
    4592. 

  4592.     int allInExtRange;	/* all values within external range? */
    4593. 

  4593.     schar value[MAX_NELS];
    4594. 

  4594. 

  4595.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    4596. 

  4596.     IF (err) {
    4597. 

  4597. 	error("nc_create: %s", nc_strerror(err));
    4598. 

  4598. 	return;
    4599. 

  4599.     }
    4600. 

  4600.     def_dims(ncid);
    4601. 

  4601.     def_vars(ncid);
    4602. 

  4602.     err = nc_enddef(ncid);
    4603. 

  4603.     IF (err)
    4604. 

  4604. 	error("nc_enddef: %s", nc_strerror(err));
    4605. 

  4605. 

  4606.     for (i = 0; i < NVARS; i++) {
    4607. 

  4607. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SCHAR == NCT_TEXT);
    4608. 

  4608. 	assert(var_rank[i] <= MAX_RANK);
    4609. 

  4609. 	assert(var_nels[i] <= MAX_NELS);
    4610. 

  4610. 	for (j = 0; j < var_rank[i]; j++) {
    4611. 

  4611. 	    start[j] = 0;
    4612. 

  4612. 	    edge[j] = 1;
    4613. 

  4613. 	    stride[j] = 1;
    4614. 

  4614. 	}
    4615. 

  4615. 	err = nc_put_vars_schar(BAD_ID, i, start, edge, stride, value);
    4616. 

  4616. 	IF (err != NC_EBADID) 
    4617. 

  4617. 	    error("bad ncid: status = %d", err);
    4618. 

  4618. 	err = nc_put_vars_schar(ncid, BAD_VARID, start, edge, stride, value);
    4619. 

  4619. 	IF (err != NC_ENOTVAR) 
    4620. 

  4620. 	    error("bad var id: status = %d", err);
    4621. 

  4621. 	for (j = 0; j < var_rank[i]; j++) {
    4622. 

  4622. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    4623. 

  4623. 		start[j] = var_shape[i][j] + 1;
    4624. 

  4624. 		err = nc_put_vars_schar(ncid, i, start, edge, stride, value);
    4625. 

  4625. 	      if(!canConvert) {
    4626. 

  4626. 		IF(err != NC_ECHAR)
    4627. 

  4627. 			error("conversion: status = %d", err);
    4628. 

  4628. 	      } else {
    4629. 

  4629. 		IF(err != NC_EINVALCOORDS)
    4630. 

  4630. 		    error("bad start: status = %d", err);
    4631. 

  4631. 		start[j] = 0;
    4632. 

  4632. 		edge[j] = var_shape[i][j] + 1;
    4633. 

  4633. 		err = nc_put_vars_schar(ncid, i, start, edge, stride, value);
    4634. 

  4634. 		IF (err != NC_EEDGE)
    4635. 

  4635. 		    error("bad edge: status = %d", err);
    4636. 

  4636. 		edge[j] = 1;
    4637. 

  4637. 		stride[j] = 0;
    4638. 

  4638. 		err = nc_put_vars_schar(ncid, i, start, edge, stride, value);
    4639. 

  4639. 		IF (err != NC_ESTRIDE)
    4640. 

  4640. 		    error("bad stride: status = %d", err);
    4641. 

  4641. 		stride[j] = 1;
    4642. 

  4642.               }
    4643. 

  4643. 	    }
    4644. 

  4644. 	}
    4645. 

  4645. 	    /* Choose a random point dividing each dim into 2 parts */
    4646. 

  4646. 	    /* Put 2^rank (nslabs) slabs so defined */
    4647. 

  4647. 	nslabs = 1;
    4648. 

  4648. 	for (j = 0; j < var_rank[i]; j++) {
    4649. 

  4649. 	    mid[j] = roll( var_shape[i][j] );
    4650. 

  4650. 	    nslabs *= 2;
    4651. 

  4651. 	}
    4652. 

  4652. 	    /* bits of k determine whether to put lower or upper part of dim */
    4653. 

  4653. 	    /* choose random stride from 1 to edge */
    4654. 

  4654. 	for (k = 0; k < nslabs; k++) {
    4655. 

  4655. 	    nstarts = 1;
    4656. 

  4656. 	    for (j = 0; j < var_rank[i]; j++) {
    4657. 

  4657. 		if ((k >> j) & 1) {
    4658. 

  4658. 		    start[j] = 0;
    4659. 

  4659. 		    edge[j] = mid[j];
    4660. 

  4660. 		}else{
    4661. 

  4661. 		    start[j] = mid[j];
    4662. 

  4662. 		    edge[j] = var_shape[i][j] - mid[j];
    4663. 

  4663. 		}
    4664. 

  4664. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    4665. 

  4665. 		nstarts *= stride[j];
    4666. 

  4666. 	    }
    4667. 

  4667. 	    for (m = 0; m < nstarts; m++) {
    4668. 

  4668. 		err = toMixedBase(m, var_rank[i], sstride, index);
    4669. 

  4669. 		IF (err)
    4670. 

  4670. 		    error("error in toMixedBase");
    4671. 

  4671. 		nels = 1;
    4672. 

  4672. 		for (j = 0; j < var_rank[i]; j++) {
    4673. 

  4673. 		    count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    4674. 

  4674. 		    nels *= count[j];
    4675. 

  4675. 		    index[j] += start[j];
    4676. 

  4676. 		}
    4677. 

  4677. 		    /* Random choice of forward or backward */
    4678. 

  4678. /* TODO
    4679. 

  4679. 		if ( roll(2) ) {
    4680. 

  4680. 		    for (j = 0; j < var_rank[i]; j++) {
    4681. 

  4681. 			index[j] += (count[j] - 1) * stride[j];
    4682. 

  4682. 			stride[j] = -stride[j];
    4683. 

  4683. 		    }
    4684. 

  4684. 		}
    4685. 

  4685. */
    4686. 

  4686. 		for (allInExtRange = 1, j = 0; j < nels; j++) {
    4687. 

  4687. 		    err = toMixedBase(j, var_rank[i], count, index2);
    4688. 

  4688. 		    IF (err)
    4689. 

  4689. 			error("error in toMixedBase");
    4690. 

  4690. 		    for (d = 0; d < var_rank[i]; d++)
    4691. 

  4691. 			index2[d] = index[d] + index2[d] * stride[d];
    4692. 

  4692. 		    value[j] = hash_schar(var_type[i], var_rank[i], index2, 
    4693. 

  4693. 			NCT_SCHAR);
    4694. 

  4694. 		    allInExtRange = allInExtRange 
    4695. 

  4695. 			&& inRange3(value[j], var_type[i], NCT_SCHAR);
    4696. 

  4696. 		}
    4697. 

  4697. 		if (var_rank[i] == 0 && i%2 == 0)
    4698. 

  4698. 		    err = nc_put_vars_schar(ncid, i, NULL, NULL, stride, value);
    4699. 

  4699. 		else
    4700. 

  4700. 		    err = nc_put_vars_schar(ncid, i, index, count, stride, value);
    4701. 

  4701. 		if (canConvert) {
    4702. 

  4702. 		    if (allInExtRange) {
    4703. 

  4703. 			IF (err) 
    4704. 

  4704. 			    error("%s", nc_strerror(err));
    4705. 

  4705. 		    } else {
    4706. 

  4706. 			IF (err != NC_ERANGE)
    4707. 

  4707. 			    error("range error: status = %d", err);
    4708. 

  4708. 		    }
    4709. 

  4709. 		} else {
    4710. 

  4710. 		    IF (nels > 0 && err != NC_ECHAR)
    4711. 

  4711. 			error("wrong type: status = %d", err);
    4712. 

  4712. 		}
    4713. 

  4713. 	    }
    4714. 

  4714. 	}
    4715. 

  4715.     }
    4716. 

  4716. 

  4717.     err = nc_close(ncid);
    4718. 

  4718.     IF (err) 
    4719. 

  4719. 	error("nc_close: %s", nc_strerror(err));
    4720. 

  4720. 

  4721.     check_vars_schar(scratch);
    4722. 

  4722. 

  4723.     err = remove(scratch);
    4724. 

  4724.     IF (err)
    4725. 

  4725. 	error("remove of %s failed", scratch);
    4726. 

  4726. }
    4727. 

  4727. 

  4728. void
    4729. 

  4729. test_nc_put_vars_short(void)
    4730. 

  4730. {
    4731. 

  4731.     int ncid;
    4732. 

  4732.     int d;
    4733. 

  4733.     int i;
    4734. 

  4734.     int j;
    4735. 

  4735.     int k;
    4736. 

  4736.     int m;
    4737. 

  4737.     int err;
    4738. 

  4738.     int nels;
    4739. 

  4739.     int nslabs;
    4740. 

  4740.     int nstarts;        /* number of different starts */
    4741. 

  4741.     size_t start[MAX_RANK];
    4742. 

  4742.     size_t edge[MAX_RANK];
    4743. 

  4743.     size_t index[MAX_RANK];
    4744. 

  4744.     size_t index2[MAX_RANK];
    4745. 

  4745.     size_t mid[MAX_RANK];
    4746. 

  4746.     size_t count[MAX_RANK];
    4747. 

  4747.     size_t sstride[MAX_RANK];
    4748. 

  4748.     ptrdiff_t stride[MAX_RANK];
    4749. 

  4749.     int canConvert;	/* Both text or both numeric */
    4750. 

  4750.     int allInExtRange;	/* all values within external range? */
    4751. 

  4751.     short value[MAX_NELS];
    4752. 

  4752. 

  4753.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    4754. 

  4754.     IF (err) {
    4755. 

  4755. 	error("nc_create: %s", nc_strerror(err));
    4756. 

  4756. 	return;
    4757. 

  4757.     }
    4758. 

  4758.     def_dims(ncid);
    4759. 

  4759.     def_vars(ncid);
    4760. 

  4760.     err = nc_enddef(ncid);
    4761. 

  4761.     IF (err)
    4762. 

  4762. 	error("nc_enddef: %s", nc_strerror(err));
    4763. 

  4763. 

  4764.     for (i = 0; i < NVARS; i++) {
    4765. 

  4765. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SHORT == NCT_TEXT);
    4766. 

  4766. 	assert(var_rank[i] <= MAX_RANK);
    4767. 

  4767. 	assert(var_nels[i] <= MAX_NELS);
    4768. 

  4768. 	for (j = 0; j < var_rank[i]; j++) {
    4769. 

  4769. 	    start[j] = 0;
    4770. 

  4770. 	    edge[j] = 1;
    4771. 

  4771. 	    stride[j] = 1;
    4772. 

  4772. 	}
    4773. 

  4773. 	err = nc_put_vars_short(BAD_ID, i, start, edge, stride, value);
    4774. 

  4774. 	IF (err != NC_EBADID) 
    4775. 

  4775. 	    error("bad ncid: status = %d", err);
    4776. 

  4776. 	err = nc_put_vars_short(ncid, BAD_VARID, start, edge, stride, value);
    4777. 

  4777. 	IF (err != NC_ENOTVAR) 
    4778. 

  4778. 	    error("bad var id: status = %d", err);
    4779. 

  4779. 	for (j = 0; j < var_rank[i]; j++) {
    4780. 

  4780. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    4781. 

  4781. 		start[j] = var_shape[i][j] + 1;
    4782. 

  4782. 		err = nc_put_vars_short(ncid, i, start, edge, stride, value);
    4783. 

  4783. 	      if(!canConvert) {
    4784. 

  4784. 		IF(err != NC_ECHAR)
    4785. 

  4785. 			error("conversion: status = %d", err);
    4786. 

  4786. 	      } else {
    4787. 

  4787. 		IF(err != NC_EINVALCOORDS)
    4788. 

  4788. 		    error("bad start: status = %d", err);
    4789. 

  4789. 		start[j] = 0;
    4790. 

  4790. 		edge[j] = var_shape[i][j] + 1;
    4791. 

  4791. 		err = nc_put_vars_short(ncid, i, start, edge, stride, value);
    4792. 

  4792. 		IF (err != NC_EEDGE)
    4793. 

  4793. 		    error("bad edge: status = %d", err);
    4794. 

  4794. 		edge[j] = 1;
    4795. 

  4795. 		stride[j] = 0;
    4796. 

  4796. 		err = nc_put_vars_short(ncid, i, start, edge, stride, value);
    4797. 

  4797. 		IF (err != NC_ESTRIDE)
    4798. 

  4798. 		    error("bad stride: status = %d", err);
    4799. 

  4799. 		stride[j] = 1;
    4800. 

  4800.               }
    4801. 

  4801. 	    }
    4802. 

  4802. 	}
    4803. 

  4803. 	    /* Choose a random point dividing each dim into 2 parts */
    4804. 

  4804. 	    /* Put 2^rank (nslabs) slabs so defined */
    4805. 

  4805. 	nslabs = 1;
    4806. 

  4806. 	for (j = 0; j < var_rank[i]; j++) {
    4807. 

  4807. 	    mid[j] = roll( var_shape[i][j] );
    4808. 

  4808. 	    nslabs *= 2;
    4809. 

  4809. 	}
    4810. 

  4810. 	    /* bits of k determine whether to put lower or upper part of dim */
    4811. 

  4811. 	    /* choose random stride from 1 to edge */
    4812. 

  4812. 	for (k = 0; k < nslabs; k++) {
    4813. 

  4813. 	    nstarts = 1;
    4814. 

  4814. 	    for (j = 0; j < var_rank[i]; j++) {
    4815. 

  4815. 		if ((k >> j) & 1) {
    4816. 

  4816. 		    start[j] = 0;
    4817. 

  4817. 		    edge[j] = mid[j];
    4818. 

  4818. 		}else{
    4819. 

  4819. 		    start[j] = mid[j];
    4820. 

  4820. 		    edge[j] = var_shape[i][j] - mid[j];
    4821. 

  4821. 		}
    4822. 

  4822. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    4823. 

  4823. 		nstarts *= stride[j];
    4824. 

  4824. 	    }
    4825. 

  4825. 	    for (m = 0; m < nstarts; m++) {
    4826. 

  4826. 		err = toMixedBase(m, var_rank[i], sstride, index);
    4827. 

  4827. 		IF (err)
    4828. 

  4828. 		    error("error in toMixedBase");
    4829. 

  4829. 		nels = 1;
    4830. 

  4830. 		for (j = 0; j < var_rank[i]; j++) {
    4831. 

  4831. 		    count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    4832. 

  4832. 		    nels *= count[j];
    4833. 

  4833. 		    index[j] += start[j];
    4834. 

  4834. 		}
    4835. 

  4835. 		    /* Random choice of forward or backward */
    4836. 

  4836. /* TODO
    4837. 

  4837. 		if ( roll(2) ) {
    4838. 

  4838. 		    for (j = 0; j < var_rank[i]; j++) {
    4839. 

  4839. 			index[j] += (count[j] - 1) * stride[j];
    4840. 

  4840. 			stride[j] = -stride[j];
    4841. 

  4841. 		    }
    4842. 

  4842. 		}
    4843. 

  4843. */
    4844. 

  4844. 		for (allInExtRange = 1, j = 0; j < nels; j++) {
    4845. 

  4845. 		    err = toMixedBase(j, var_rank[i], count, index2);
    4846. 

  4846. 		    IF (err)
    4847. 

  4847. 			error("error in toMixedBase");
    4848. 

  4848. 		    for (d = 0; d < var_rank[i]; d++)
    4849. 

  4849. 			index2[d] = index[d] + index2[d] * stride[d];
    4850. 

  4850. 		    value[j] = hash_short(var_type[i], var_rank[i], index2, 
    4851. 

  4851. 			NCT_SHORT);
    4852. 

  4852. 		    allInExtRange = allInExtRange 
    4853. 

  4853. 			&& inRange3(value[j], var_type[i], NCT_SHORT);
    4854. 

  4854. 		}
    4855. 

  4855. 		if (var_rank[i] == 0 && i%2 == 0)
    4856. 

  4856. 		    err = nc_put_vars_short(ncid, i, NULL, NULL, stride, value);
    4857. 

  4857. 		else
    4858. 

  4858. 		    err = nc_put_vars_short(ncid, i, index, count, stride, value);
    4859. 

  4859. 		if (canConvert) {
    4860. 

  4860. 		    if (allInExtRange) {
    4861. 

  4861. 			IF (err) 
    4862. 

  4862. 			    error("%s", nc_strerror(err));
    4863. 

  4863. 		    } else {
    4864. 

  4864. 			IF (err != NC_ERANGE)
    4865. 

  4865. 			    error("range error: status = %d", err);
    4866. 

  4866. 		    }
    4867. 

  4867. 		} else {
    4868. 

  4868. 		    IF (nels > 0 && err != NC_ECHAR)
    4869. 

  4869. 			error("wrong type: status = %d", err);
    4870. 

  4870. 		}
    4871. 

  4871. 	    }
    4872. 

  4872. 	}
    4873. 

  4873.     }
    4874. 

  4874. 

  4875.     err = nc_close(ncid);
    4876. 

  4876.     IF (err) 
    4877. 

  4877. 	error("nc_close: %s", nc_strerror(err));
    4878. 

  4878. 

  4879.     check_vars_short(scratch);
    4880. 

  4880. 

  4881.     err = remove(scratch);
    4882. 

  4882.     IF (err)
    4883. 

  4883. 	error("remove of %s failed", scratch);
    4884. 

  4884. }
    4885. 

  4885. 

  4886. void
    4887. 

  4887. test_nc_put_vars_int(void)
    4888. 

  4888. {
    4889. 

  4889.     int ncid;
    4890. 

  4890.     int d;
    4891. 

  4891.     int i;
    4892. 

  4892.     int j;
    4893. 

  4893.     int k;
    4894. 

  4894.     int m;
    4895. 

  4895.     int err;
    4896. 

  4896.     int nels;
    4897. 

  4897.     int nslabs;
    4898. 

  4898.     int nstarts;        /* number of different starts */
    4899. 

  4899.     size_t start[MAX_RANK];
    4900. 

  4900.     size_t edge[MAX_RANK];
    4901. 

  4901.     size_t index[MAX_RANK];
    4902. 

  4902.     size_t index2[MAX_RANK];
    4903. 

  4903.     size_t mid[MAX_RANK];
    4904. 

  4904.     size_t count[MAX_RANK];
    4905. 

  4905.     size_t sstride[MAX_RANK];
    4906. 

  4906.     ptrdiff_t stride[MAX_RANK];
    4907. 

  4907.     int canConvert;	/* Both text or both numeric */
    4908. 

  4908.     int allInExtRange;	/* all values within external range? */
    4909. 

  4909.     int value[MAX_NELS];
    4910. 

  4910. 

  4911.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    4912. 

  4912.     IF (err) {
    4913. 

  4913. 	error("nc_create: %s", nc_strerror(err));
    4914. 

  4914. 	return;
    4915. 

  4915.     }
    4916. 

  4916.     def_dims(ncid);
    4917. 

  4917.     def_vars(ncid);
    4918. 

  4918.     err = nc_enddef(ncid);
    4919. 

  4919.     IF (err)
    4920. 

  4920. 	error("nc_enddef: %s", nc_strerror(err));
    4921. 

  4921. 

  4922.     for (i = 0; i < NVARS; i++) {
    4923. 

  4923. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_INT == NCT_TEXT);
    4924. 

  4924. 	assert(var_rank[i] <= MAX_RANK);
    4925. 

  4925. 	assert(var_nels[i] <= MAX_NELS);
    4926. 

  4926. 	for (j = 0; j < var_rank[i]; j++) {
    4927. 

  4927. 	    start[j] = 0;
    4928. 

  4928. 	    edge[j] = 1;
    4929. 

  4929. 	    stride[j] = 1;
    4930. 

  4930. 	}
    4931. 

  4931. 	err = nc_put_vars_int(BAD_ID, i, start, edge, stride, value);
    4932. 

  4932. 	IF (err != NC_EBADID) 
    4933. 

  4933. 	    error("bad ncid: status = %d", err);
    4934. 

  4934. 	err = nc_put_vars_int(ncid, BAD_VARID, start, edge, stride, value);
    4935. 

  4935. 	IF (err != NC_ENOTVAR) 
    4936. 

  4936. 	    error("bad var id: status = %d", err);
    4937. 

  4937. 	for (j = 0; j < var_rank[i]; j++) {
    4938. 

  4938. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    4939. 

  4939. 		start[j] = var_shape[i][j] + 1;
    4940. 

  4940. 		err = nc_put_vars_int(ncid, i, start, edge, stride, value);
    4941. 

  4941. 	      if(!canConvert) {
    4942. 

  4942. 		IF(err != NC_ECHAR)
    4943. 

  4943. 			error("conversion: status = %d", err);
    4944. 

  4944. 	      } else {
    4945. 

  4945. 		IF(err != NC_EINVALCOORDS)
    4946. 

  4946. 		    error("bad start: status = %d", err);
    4947. 

  4947. 		start[j] = 0;
    4948. 

  4948. 		edge[j] = var_shape[i][j] + 1;
    4949. 

  4949. 		err = nc_put_vars_int(ncid, i, start, edge, stride, value);
    4950. 

  4950. 		IF (err != NC_EEDGE)
    4951. 

  4951. 		    error("bad edge: status = %d", err);
    4952. 

  4952. 		edge[j] = 1;
    4953. 

  4953. 		stride[j] = 0;
    4954. 

  4954. 		err = nc_put_vars_int(ncid, i, start, edge, stride, value);
    4955. 

  4955. 		IF (err != NC_ESTRIDE)
    4956. 

  4956. 		    error("bad stride: status = %d", err);
    4957. 

  4957. 		stride[j] = 1;
    4958. 

  4958.               }
    4959. 

  4959. 	    }
    4960. 

  4960. 	}
    4961. 

  4961. 	    /* Choose a random point dividing each dim into 2 parts */
    4962. 

  4962. 	    /* Put 2^rank (nslabs) slabs so defined */
    4963. 

  4963. 	nslabs = 1;
    4964. 

  4964. 	for (j = 0; j < var_rank[i]; j++) {
    4965. 

  4965. 	    mid[j] = roll( var_shape[i][j] );
    4966. 

  4966. 	    nslabs *= 2;
    4967. 

  4967. 	}
    4968. 

  4968. 	    /* bits of k determine whether to put lower or upper part of dim */
    4969. 

  4969. 	    /* choose random stride from 1 to edge */
    4970. 

  4970. 	for (k = 0; k < nslabs; k++) {
    4971. 

  4971. 	    nstarts = 1;
    4972. 

  4972. 	    for (j = 0; j < var_rank[i]; j++) {
    4973. 

  4973. 		if ((k >> j) & 1) {
    4974. 

  4974. 		    start[j] = 0;
    4975. 

  4975. 		    edge[j] = mid[j];
    4976. 

  4976. 		}else{
    4977. 

  4977. 		    start[j] = mid[j];
    4978. 

  4978. 		    edge[j] = var_shape[i][j] - mid[j];
    4979. 

  4979. 		}
    4980. 

  4980. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    4981. 

  4981. 		nstarts *= stride[j];
    4982. 

  4982. 	    }
    4983. 

  4983. 	    for (m = 0; m < nstarts; m++) {
    4984. 

  4984. 		err = toMixedBase(m, var_rank[i], sstride, index);
    4985. 

  4985. 		IF (err)
    4986. 

  4986. 		    error("error in toMixedBase");
    4987. 

  4987. 		nels = 1;
    4988. 

  4988. 		for (j = 0; j < var_rank[i]; j++) {
    4989. 

  4989. 		    count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    4990. 

  4990. 		    nels *= count[j];
    4991. 

  4991. 		    index[j] += start[j];
    4992. 

  4992. 		}
    4993. 

  4993. 		    /* Random choice of forward or backward */
    4994. 

  4994. /* TODO
    4995. 

  4995. 		if ( roll(2) ) {
    4996. 

  4996. 		    for (j = 0; j < var_rank[i]; j++) {
    4997. 

  4997. 			index[j] += (count[j] - 1) * stride[j];
    4998. 

  4998. 			stride[j] = -stride[j];
    4999. 

  4999. 		    }
    5000. 

  5000. 		}
    5001. 

  5001. */
    5002. 

  5002. 		for (allInExtRange = 1, j = 0; j < nels; j++) {
    5003. 

  5003. 		    err = toMixedBase(j, var_rank[i], count, index2);
    5004. 

  5004. 		    IF (err)
    5005. 

  5005. 			error("error in toMixedBase");
    5006. 

  5006. 		    for (d = 0; d < var_rank[i]; d++)
    5007. 

  5007. 			index2[d] = index[d] + index2[d] * stride[d];
    5008. 

  5008. 		    value[j] = hash_int(var_type[i], var_rank[i], index2, 
    5009. 

  5009. 			NCT_INT);
    5010. 

  5010. 		    allInExtRange = allInExtRange 
    5011. 

  5011. 			&& inRange3(value[j], var_type[i], NCT_INT);
    5012. 

  5012. 		}
    5013. 

  5013. 		if (var_rank[i] == 0 && i%2 == 0)
    5014. 

  5014. 		    err = nc_put_vars_int(ncid, i, NULL, NULL, stride, value);
    5015. 

  5015. 		else
    5016. 

  5016. 		    err = nc_put_vars_int(ncid, i, index, count, stride, value);
    5017. 

  5017. 		if (canConvert) {
    5018. 

  5018. 		    if (allInExtRange) {
    5019. 

  5019. 			IF (err) 
    5020. 

  5020. 			    error("%s", nc_strerror(err));
    5021. 

  5021. 		    } else {
    5022. 

  5022. 			IF (err != NC_ERANGE)
    5023. 

  5023. 			    error("range error: status = %d", err);
    5024. 

  5024. 		    }
    5025. 

  5025. 		} else {
    5026. 

  5026. 		    IF (nels > 0 && err != NC_ECHAR)
    5027. 

  5027. 			error("wrong type: status = %d", err);
    5028. 

  5028. 		}
    5029. 

  5029. 	    }
    5030. 

  5030. 	}
    5031. 

  5031.     }
    5032. 

  5032. 

  5033.     err = nc_close(ncid);
    5034. 

  5034.     IF (err) 
    5035. 

  5035. 	error("nc_close: %s", nc_strerror(err));
    5036. 

  5036. 

  5037.     check_vars_int(scratch);
    5038. 

  5038. 

  5039.     err = remove(scratch);
    5040. 

  5040.     IF (err)
    5041. 

  5041. 	error("remove of %s failed", scratch);
    5042. 

  5042. }
    5043. 

  5043. 

  5044. void
    5045. 

  5045. test_nc_put_vars_long(void)
    5046. 

  5046. {
    5047. 

  5047.     int ncid;
    5048. 

  5048.     int d;
    5049. 

  5049.     int i;
    5050. 

  5050.     int j;
    5051. 

  5051.     int k;
    5052. 

  5052.     int m;
    5053. 

  5053.     int err;
    5054. 

  5054.     int nels;
    5055. 

  5055.     int nslabs;
    5056. 

  5056.     int nstarts;        /* number of different starts */
    5057. 

  5057.     size_t start[MAX_RANK];
    5058. 

  5058.     size_t edge[MAX_RANK];
    5059. 

  5059.     size_t index[MAX_RANK];
    5060. 

  5060.     size_t index2[MAX_RANK];
    5061. 

  5061.     size_t mid[MAX_RANK];
    5062. 

  5062.     size_t count[MAX_RANK];
    5063. 

  5063.     size_t sstride[MAX_RANK];
    5064. 

  5064.     ptrdiff_t stride[MAX_RANK];
    5065. 

  5065.     int canConvert;	/* Both text or both numeric */
    5066. 

  5066.     int allInExtRange;	/* all values within external range? */
    5067. 

  5067.     long value[MAX_NELS];
    5068. 

  5068. 

  5069.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    5070. 

  5070.     IF (err) {
    5071. 

  5071. 	error("nc_create: %s", nc_strerror(err));
    5072. 

  5072. 	return;
    5073. 

  5073.     }
    5074. 

  5074.     def_dims(ncid);
    5075. 

  5075.     def_vars(ncid);
    5076. 

  5076.     err = nc_enddef(ncid);
    5077. 

  5077.     IF (err)
    5078. 

  5078. 	error("nc_enddef: %s", nc_strerror(err));
    5079. 

  5079. 

  5080.     for (i = 0; i < NVARS; i++) {
    5081. 

  5081. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_LONG == NCT_TEXT);
    5082. 

  5082. 	assert(var_rank[i] <= MAX_RANK);
    5083. 

  5083. 	assert(var_nels[i] <= MAX_NELS);
    5084. 

  5084. 	for (j = 0; j < var_rank[i]; j++) {
    5085. 

  5085. 	    start[j] = 0;
    5086. 

  5086. 	    edge[j] = 1;
    5087. 

  5087. 	    stride[j] = 1;
    5088. 

  5088. 	}
    5089. 

  5089. 	err = nc_put_vars_long(BAD_ID, i, start, edge, stride, value);
    5090. 

  5090. 	IF (err != NC_EBADID) 
    5091. 

  5091. 	    error("bad ncid: status = %d", err);
    5092. 

  5092. 	err = nc_put_vars_long(ncid, BAD_VARID, start, edge, stride, value);
    5093. 

  5093. 	IF (err != NC_ENOTVAR) 
    5094. 

  5094. 	    error("bad var id: status = %d", err);
    5095. 

  5095. 	for (j = 0; j < var_rank[i]; j++) {
    5096. 

  5096. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    5097. 

  5097. 		start[j] = var_shape[i][j] + 1;
    5098. 

  5098. 		err = nc_put_vars_long(ncid, i, start, edge, stride, value);
    5099. 

  5099. 	      if(!canConvert) {
    5100. 

  5100. 		IF(err != NC_ECHAR)
    5101. 

  5101. 			error("conversion: status = %d", err);
    5102. 

  5102. 	      } else {
    5103. 

  5103. 		IF(err != NC_EINVALCOORDS)
    5104. 

  5104. 		    error("bad start: status = %d", err);
    5105. 

  5105. 		start[j] = 0;
    5106. 

  5106. 		edge[j] = var_shape[i][j] + 1;
    5107. 

  5107. 		err = nc_put_vars_long(ncid, i, start, edge, stride, value);
    5108. 

  5108. 		IF (err != NC_EEDGE)
    5109. 

  5109. 		    error("bad edge: status = %d", err);
    5110. 

  5110. 		edge[j] = 1;
    5111. 

  5111. 		stride[j] = 0;
    5112. 

  5112. 		err = nc_put_vars_long(ncid, i, start, edge, stride, value);
    5113. 

  5113. 		IF (err != NC_ESTRIDE)
    5114. 

  5114. 		    error("bad stride: status = %d", err);
    5115. 

  5115. 		stride[j] = 1;
    5116. 

  5116.               }
    5117. 

  5117. 	    }
    5118. 

  5118. 	}
    5119. 

  5119. 	    /* Choose a random point dividing each dim into 2 parts */
    5120. 

  5120. 	    /* Put 2^rank (nslabs) slabs so defined */
    5121. 

  5121. 	nslabs = 1;
    5122. 

  5122. 	for (j = 0; j < var_rank[i]; j++) {
    5123. 

  5123. 	    mid[j] = roll( var_shape[i][j] );
    5124. 

  5124. 	    nslabs *= 2;
    5125. 

  5125. 	}
    5126. 

  5126. 	    /* bits of k determine whether to put lower or upper part of dim */
    5127. 

  5127. 	    /* choose random stride from 1 to edge */
    5128. 

  5128. 	for (k = 0; k < nslabs; k++) {
    5129. 

  5129. 	    nstarts = 1;
    5130. 

  5130. 	    for (j = 0; j < var_rank[i]; j++) {
    5131. 

  5131. 		if ((k >> j) & 1) {
    5132. 

  5132. 		    start[j] = 0;
    5133. 

  5133. 		    edge[j] = mid[j];
    5134. 

  5134. 		}else{
    5135. 

  5135. 		    start[j] = mid[j];
    5136. 

  5136. 		    edge[j] = var_shape[i][j] - mid[j];
    5137. 

  5137. 		}
    5138. 

  5138. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    5139. 

  5139. 		nstarts *= stride[j];
    5140. 

  5140. 	    }
    5141. 

  5141. 	    for (m = 0; m < nstarts; m++) {
    5142. 

  5142. 		err = toMixedBase(m, var_rank[i], sstride, index);
    5143. 

  5143. 		IF (err)
    5144. 

  5144. 		    error("error in toMixedBase");
    5145. 

  5145. 		nels = 1;
    5146. 

  5146. 		for (j = 0; j < var_rank[i]; j++) {
    5147. 

  5147. 		    count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    5148. 

  5148. 		    nels *= count[j];
    5149. 

  5149. 		    index[j] += start[j];
    5150. 

  5150. 		}
    5151. 

  5151. 		    /* Random choice of forward or backward */
    5152. 

  5152. /* TODO
    5153. 

  5153. 		if ( roll(2) ) {
    5154. 

  5154. 		    for (j = 0; j < var_rank[i]; j++) {
    5155. 

  5155. 			index[j] += (count[j] - 1) * stride[j];
    5156. 

  5156. 			stride[j] = -stride[j];
    5157. 

  5157. 		    }
    5158. 

  5158. 		}
    5159. 

  5159. */
    5160. 

  5160. 		for (allInExtRange = 1, j = 0; j < nels; j++) {
    5161. 

  5161. 		    err = toMixedBase(j, var_rank[i], count, index2);
    5162. 

  5162. 		    IF (err)
    5163. 

  5163. 			error("error in toMixedBase");
    5164. 

  5164. 		    for (d = 0; d < var_rank[i]; d++)
    5165. 

  5165. 			index2[d] = index[d] + index2[d] * stride[d];
    5166. 

  5166. 		    value[j] = hash_long(var_type[i], var_rank[i], index2, 
    5167. 

  5167. 			NCT_LONG);
    5168. 

  5168. 		    allInExtRange = allInExtRange 
    5169. 

  5169. 			&& inRange3(value[j], var_type[i], NCT_LONG);
    5170. 

  5170. 		}
    5171. 

  5171. 		if (var_rank[i] == 0 && i%2 == 0)
    5172. 

  5172. 		    err = nc_put_vars_long(ncid, i, NULL, NULL, stride, value);
    5173. 

  5173. 		else
    5174. 

  5174. 		    err = nc_put_vars_long(ncid, i, index, count, stride, value);
    5175. 

  5175. 		if (canConvert) {
    5176. 

  5176. 		    if (allInExtRange) {
    5177. 

  5177. 			IF (err) 
    5178. 

  5178. 			    error("%s", nc_strerror(err));
    5179. 

  5179. 		    } else {
    5180. 

  5180. 			IF (err != NC_ERANGE)
    5181. 

  5181. 			    error("range error: status = %d", err);
    5182. 

  5182. 		    }
    5183. 

  5183. 		} else {
    5184. 

  5184. 		    IF (nels > 0 && err != NC_ECHAR)
    5185. 

  5185. 			error("wrong type: status = %d", err);
    5186. 

  5186. 		}
    5187. 

  5187. 	    }
    5188. 

  5188. 	}
    5189. 

  5189.     }
    5190. 

  5190. 

  5191.     err = nc_close(ncid);
    5192. 

  5192.     IF (err) 
    5193. 

  5193. 	error("nc_close: %s", nc_strerror(err));
    5194. 

  5194. 

  5195.     check_vars_long(scratch);
    5196. 

  5196. 

  5197.     err = remove(scratch);
    5198. 

  5198.     IF (err)
    5199. 

  5199. 	error("remove of %s failed", scratch);
    5200. 

  5200. }
    5201. 

  5201. 

  5202. void
    5203. 

  5203. test_nc_put_vars_float(void)
    5204. 

  5204. {
    5205. 

  5205.     int ncid;
    5206. 

  5206.     int d;
    5207. 

  5207.     int i;
    5208. 

  5208.     int j;
    5209. 

  5209.     int k;
    5210. 

  5210.     int m;
    5211. 

  5211.     int err;
    5212. 

  5212.     int nels;
    5213. 

  5213.     int nslabs;
    5214. 

  5214.     int nstarts;        /* number of different starts */
    5215. 

  5215.     size_t start[MAX_RANK];
    5216. 

  5216.     size_t edge[MAX_RANK];
    5217. 

  5217.     size_t index[MAX_RANK];
    5218. 

  5218.     size_t index2[MAX_RANK];
    5219. 

  5219.     size_t mid[MAX_RANK];
    5220. 

  5220.     size_t count[MAX_RANK];
    5221. 

  5221.     size_t sstride[MAX_RANK];
    5222. 

  5222.     ptrdiff_t stride[MAX_RANK];
    5223. 

  5223.     int canConvert;	/* Both text or both numeric */
    5224. 

  5224.     int allInExtRange;	/* all values within external range? */
    5225. 

  5225.     float value[MAX_NELS];
    5226. 

  5226. 

  5227.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    5228. 

  5228.     IF (err) {
    5229. 

  5229. 	error("nc_create: %s", nc_strerror(err));
    5230. 

  5230. 	return;
    5231. 

  5231.     }
    5232. 

  5232.     def_dims(ncid);
    5233. 

  5233.     def_vars(ncid);
    5234. 

  5234.     err = nc_enddef(ncid);
    5235. 

  5235.     IF (err)
    5236. 

  5236. 	error("nc_enddef: %s", nc_strerror(err));
    5237. 

  5237. 

  5238.     for (i = 0; i < NVARS; i++) {
    5239. 

  5239. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_FLOAT == NCT_TEXT);
    5240. 

  5240. 	assert(var_rank[i] <= MAX_RANK);
    5241. 

  5241. 	assert(var_nels[i] <= MAX_NELS);
    5242. 

  5242. 	for (j = 0; j < var_rank[i]; j++) {
    5243. 

  5243. 	    start[j] = 0;
    5244. 

  5244. 	    edge[j] = 1;
    5245. 

  5245. 	    stride[j] = 1;
    5246. 

  5246. 	}
    5247. 

  5247. 	err = nc_put_vars_float(BAD_ID, i, start, edge, stride, value);
    5248. 

  5248. 	IF (err != NC_EBADID) 
    5249. 

  5249. 	    error("bad ncid: status = %d", err);
    5250. 

  5250. 	err = nc_put_vars_float(ncid, BAD_VARID, start, edge, stride, value);
    5251. 

  5251. 	IF (err != NC_ENOTVAR) 
    5252. 

  5252. 	    error("bad var id: status = %d", err);
    5253. 

  5253. 	for (j = 0; j < var_rank[i]; j++) {
    5254. 

  5254. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    5255. 

  5255. 		start[j] = var_shape[i][j] + 1;
    5256. 

  5256. 		err = nc_put_vars_float(ncid, i, start, edge, stride, value);
    5257. 

  5257. 	      if(!canConvert) {
    5258. 

  5258. 		IF(err != NC_ECHAR)
    5259. 

  5259. 			error("conversion: status = %d", err);
    5260. 

  5260. 	      } else {
    5261. 

  5261. 		IF(err != NC_EINVALCOORDS)
    5262. 

  5262. 		    error("bad start: status = %d", err);
    5263. 

  5263. 		start[j] = 0;
    5264. 

  5264. 		edge[j] = var_shape[i][j] + 1;
    5265. 

  5265. 		err = nc_put_vars_float(ncid, i, start, edge, stride, value);
    5266. 

  5266. 		IF (err != NC_EEDGE)
    5267. 

  5267. 		    error("bad edge: status = %d", err);
    5268. 

  5268. 		edge[j] = 1;
    5269. 

  5269. 		stride[j] = 0;
    5270. 

  5270. 		err = nc_put_vars_float(ncid, i, start, edge, stride, value);
    5271. 

  5271. 		IF (err != NC_ESTRIDE)
    5272. 

  5272. 		    error("bad stride: status = %d", err);
    5273. 

  5273. 		stride[j] = 1;
    5274. 

  5274.               }
    5275. 

  5275. 	    }
    5276. 

  5276. 	}
    5277. 

  5277. 	    /* Choose a random point dividing each dim into 2 parts */
    5278. 

  5278. 	    /* Put 2^rank (nslabs) slabs so defined */
    5279. 

  5279. 	nslabs = 1;
    5280. 

  5280. 	for (j = 0; j < var_rank[i]; j++) {
    5281. 

  5281. 	    mid[j] = roll( var_shape[i][j] );
    5282. 

  5282. 	    nslabs *= 2;
    5283. 

  5283. 	}
    5284. 

  5284. 	    /* bits of k determine whether to put lower or upper part of dim */
    5285. 

  5285. 	    /* choose random stride from 1 to edge */
    5286. 

  5286. 	for (k = 0; k < nslabs; k++) {
    5287. 

  5287. 	    nstarts = 1;
    5288. 

  5288. 	    for (j = 0; j < var_rank[i]; j++) {
    5289. 

  5289. 		if ((k >> j) & 1) {
    5290. 

  5290. 		    start[j] = 0;
    5291. 

  5291. 		    edge[j] = mid[j];
    5292. 

  5292. 		}else{
    5293. 

  5293. 		    start[j] = mid[j];
    5294. 

  5294. 		    edge[j] = var_shape[i][j] - mid[j];
    5295. 

  5295. 		}
    5296. 

  5296. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    5297. 

  5297. 		nstarts *= stride[j];
    5298. 

  5298. 	    }
    5299. 

  5299. 	    for (m = 0; m < nstarts; m++) {
    5300. 

  5300. 		err = toMixedBase(m, var_rank[i], sstride, index);
    5301. 

  5301. 		IF (err)
    5302. 

  5302. 		    error("error in toMixedBase");
    5303. 

  5303. 		nels = 1;
    5304. 

  5304. 		for (j = 0; j < var_rank[i]; j++) {
    5305. 

  5305. 		    count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    5306. 

  5306. 		    nels *= count[j];
    5307. 

  5307. 		    index[j] += start[j];
    5308. 

  5308. 		}
    5309. 

  5309. 		    /* Random choice of forward or backward */
    5310. 

  5310. /* TODO
    5311. 

  5311. 		if ( roll(2) ) {
    5312. 

  5312. 		    for (j = 0; j < var_rank[i]; j++) {
    5313. 

  5313. 			index[j] += (count[j] - 1) * stride[j];
    5314. 

  5314. 			stride[j] = -stride[j];
    5315. 

  5315. 		    }
    5316. 

  5316. 		}
    5317. 

  5317. */
    5318. 

  5318. 		for (allInExtRange = 1, j = 0; j < nels; j++) {
    5319. 

  5319. 		    err = toMixedBase(j, var_rank[i], count, index2);
    5320. 

  5320. 		    IF (err)
    5321. 

  5321. 			error("error in toMixedBase");
    5322. 

  5322. 		    for (d = 0; d < var_rank[i]; d++)
    5323. 

  5323. 			index2[d] = index[d] + index2[d] * stride[d];
    5324. 

  5324. 		    value[j] = hash_float(var_type[i], var_rank[i], index2, 
    5325. 

  5325. 			NCT_FLOAT);
    5326. 

  5326. 		    allInExtRange = allInExtRange 
    5327. 

  5327. 			&& inRange3(value[j], var_type[i], NCT_FLOAT);
    5328. 

  5328. 		}
    5329. 

  5329. 		if (var_rank[i] == 0 && i%2 == 0)
    5330. 

  5330. 		    err = nc_put_vars_float(ncid, i, NULL, NULL, stride, value);
    5331. 

  5331. 		else
    5332. 

  5332. 		    err = nc_put_vars_float(ncid, i, index, count, stride, value);
    5333. 

  5333. 		if (canConvert) {
    5334. 

  5334. 		    if (allInExtRange) {
    5335. 

  5335. 			IF (err) 
    5336. 

  5336. 			    error("%s", nc_strerror(err));
    5337. 

  5337. 		    } else {
    5338. 

  5338. 			IF (err != NC_ERANGE)
    5339. 

  5339. 			    error("range error: status = %d", err);
    5340. 

  5340. 		    }
    5341. 

  5341. 		} else {
    5342. 

  5342. 		    IF (nels > 0 && err != NC_ECHAR)
    5343. 

  5343. 			error("wrong type: status = %d", err);
    5344. 

  5344. 		}
    5345. 

  5345. 	    }
    5346. 

  5346. 	}
    5347. 

  5347.     }
    5348. 

  5348. 

  5349.     err = nc_close(ncid);
    5350. 

  5350.     IF (err) 
    5351. 

  5351. 	error("nc_close: %s", nc_strerror(err));
    5352. 

  5352. 

  5353.     check_vars_float(scratch);
    5354. 

  5354. 

  5355.     err = remove(scratch);
    5356. 

  5356.     IF (err)
    5357. 

  5357. 	error("remove of %s failed", scratch);
    5358. 

  5358. }
    5359. 

  5359. 

  5360. void
    5361. 

  5361. test_nc_put_vars_double(void)
    5362. 

  5362. {
    5363. 

  5363.     int ncid;
    5364. 

  5364.     int d;
    5365. 

  5365.     int i;
    5366. 

  5366.     int j;
    5367. 

  5367.     int k;
    5368. 

  5368.     int m;
    5369. 

  5369.     int err;
    5370. 

  5370.     int nels;
    5371. 

  5371.     int nslabs;
    5372. 

  5372.     int nstarts;        /* number of different starts */
    5373. 

  5373.     size_t start[MAX_RANK];
    5374. 

  5374.     size_t edge[MAX_RANK];
    5375. 

  5375.     size_t index[MAX_RANK];
    5376. 

  5376.     size_t index2[MAX_RANK];
    5377. 

  5377.     size_t mid[MAX_RANK];
    5378. 

  5378.     size_t count[MAX_RANK];
    5379. 

  5379.     size_t sstride[MAX_RANK];
    5380. 

  5380.     ptrdiff_t stride[MAX_RANK];
    5381. 

  5381.     int canConvert;	/* Both text or both numeric */
    5382. 

  5382.     int allInExtRange;	/* all values within external range? */
    5383. 

  5383.     double value[MAX_NELS];
    5384. 

  5384. 

  5385.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    5386. 

  5386.     IF (err) {
    5387. 

  5387. 	error("nc_create: %s", nc_strerror(err));
    5388. 

  5388. 	return;
    5389. 

  5389.     }
    5390. 

  5390.     def_dims(ncid);
    5391. 

  5391.     def_vars(ncid);
    5392. 

  5392.     err = nc_enddef(ncid);
    5393. 

  5393.     IF (err)
    5394. 

  5394. 	error("nc_enddef: %s", nc_strerror(err));
    5395. 

  5395. 

  5396.     for (i = 0; i < NVARS; i++) {
    5397. 

  5397. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_DOUBLE == NCT_TEXT);
    5398. 

  5398. 	assert(var_rank[i] <= MAX_RANK);
    5399. 

  5399. 	assert(var_nels[i] <= MAX_NELS);
    5400. 

  5400. 	for (j = 0; j < var_rank[i]; j++) {
    5401. 

  5401. 	    start[j] = 0;
    5402. 

  5402. 	    edge[j] = 1;
    5403. 

  5403. 	    stride[j] = 1;
    5404. 

  5404. 	}
    5405. 

  5405. 	err = nc_put_vars_double(BAD_ID, i, start, edge, stride, value);
    5406. 

  5406. 	IF (err != NC_EBADID) 
    5407. 

  5407. 	    error("bad ncid: status = %d", err);
    5408. 

  5408. 	err = nc_put_vars_double(ncid, BAD_VARID, start, edge, stride, value);
    5409. 

  5409. 	IF (err != NC_ENOTVAR) 
    5410. 

  5410. 	    error("bad var id: status = %d", err);
    5411. 

  5411. 	for (j = 0; j < var_rank[i]; j++) {
    5412. 

  5412. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    5413. 

  5413. 		start[j] = var_shape[i][j] + 1;
    5414. 

  5414. 		err = nc_put_vars_double(ncid, i, start, edge, stride, value);
    5415. 

  5415. 	      if(!canConvert) {
    5416. 

  5416. 		IF(err != NC_ECHAR)
    5417. 

  5417. 			error("conversion: status = %d", err);
    5418. 

  5418. 	      } else {
    5419. 

  5419. 		IF(err != NC_EINVALCOORDS)
    5420. 

  5420. 		    error("bad start: status = %d", err);
    5421. 

  5421. 		start[j] = 0;
    5422. 

  5422. 		edge[j] = var_shape[i][j] + 1;
    5423. 

  5423. 		err = nc_put_vars_double(ncid, i, start, edge, stride, value);
    5424. 

  5424. 		IF (err != NC_EEDGE)
    5425. 

  5425. 		    error("bad edge: status = %d", err);
    5426. 

  5426. 		edge[j] = 1;
    5427. 

  5427. 		stride[j] = 0;
    5428. 

  5428. 		err = nc_put_vars_double(ncid, i, start, edge, stride, value);
    5429. 

  5429. 		IF (err != NC_ESTRIDE)
    5430. 

  5430. 		    error("bad stride: status = %d", err);
    5431. 

  5431. 		stride[j] = 1;
    5432. 

  5432.               }
    5433. 

  5433. 	    }
    5434. 

  5434. 	}
    5435. 

  5435. 	    /* Choose a random point dividing each dim into 2 parts */
    5436. 

  5436. 	    /* Put 2^rank (nslabs) slabs so defined */
    5437. 

  5437. 	nslabs = 1;
    5438. 

  5438. 	for (j = 0; j < var_rank[i]; j++) {
    5439. 

  5439. 	    mid[j] = roll( var_shape[i][j] );
    5440. 

  5440. 	    nslabs *= 2;
    5441. 

  5441. 	}
    5442. 

  5442. 	    /* bits of k determine whether to put lower or upper part of dim */
    5443. 

  5443. 	    /* choose random stride from 1 to edge */
    5444. 

  5444. 	for (k = 0; k < nslabs; k++) {
    5445. 

  5445. 	    nstarts = 1;
    5446. 

  5446. 	    for (j = 0; j < var_rank[i]; j++) {
    5447. 

  5447. 		if ((k >> j) & 1) {
    5448. 

  5448. 		    start[j] = 0;
    5449. 

  5449. 		    edge[j] = mid[j];
    5450. 

  5450. 		}else{
    5451. 

  5451. 		    start[j] = mid[j];
    5452. 

  5452. 		    edge[j] = var_shape[i][j] - mid[j];
    5453. 

  5453. 		}
    5454. 

  5454. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    5455. 

  5455. 		nstarts *= stride[j];
    5456. 

  5456. 	    }
    5457. 

  5457. 	    for (m = 0; m < nstarts; m++) {
    5458. 

  5458. 		err = toMixedBase(m, var_rank[i], sstride, index);
    5459. 

  5459. 		IF (err)
    5460. 

  5460. 		    error("error in toMixedBase");
    5461. 

  5461. 		nels = 1;
    5462. 

  5462. 		for (j = 0; j < var_rank[i]; j++) {
    5463. 

  5463. 		    count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    5464. 

  5464. 		    nels *= count[j];
    5465. 

  5465. 		    index[j] += start[j];
    5466. 

  5466. 		}
    5467. 

  5467. 		    /* Random choice of forward or backward */
    5468. 

  5468. /* TODO
    5469. 

  5469. 		if ( roll(2) ) {
    5470. 

  5470. 		    for (j = 0; j < var_rank[i]; j++) {
    5471. 

  5471. 			index[j] += (count[j] - 1) * stride[j];
    5472. 

  5472. 			stride[j] = -stride[j];
    5473. 

  5473. 		    }
    5474. 

  5474. 		}
    5475. 

  5475. */
    5476. 

  5476. 		for (allInExtRange = 1, j = 0; j < nels; j++) {
    5477. 

  5477. 		    err = toMixedBase(j, var_rank[i], count, index2);
    5478. 

  5478. 		    IF (err)
    5479. 

  5479. 			error("error in toMixedBase");
    5480. 

  5480. 		    for (d = 0; d < var_rank[i]; d++)
    5481. 

  5481. 			index2[d] = index[d] + index2[d] * stride[d];
    5482. 

  5482. 		    value[j] = hash_double(var_type[i], var_rank[i], index2, 
    5483. 

  5483. 			NCT_DOUBLE);
    5484. 

  5484. 		    allInExtRange = allInExtRange 
    5485. 

  5485. 			&& inRange3(value[j], var_type[i], NCT_DOUBLE);
    5486. 

  5486. 		}
    5487. 

  5487. 		if (var_rank[i] == 0 && i%2 == 0)
    5488. 

  5488. 		    err = nc_put_vars_double(ncid, i, NULL, NULL, stride, value);
    5489. 

  5489. 		else
    5490. 

  5490. 		    err = nc_put_vars_double(ncid, i, index, count, stride, value);
    5491. 

  5491. 		if (canConvert) {
    5492. 

  5492. 		    if (allInExtRange) {
    5493. 

  5493. 			IF (err) 
    5494. 

  5494. 			    error("%s", nc_strerror(err));
    5495. 

  5495. 		    } else {
    5496. 

  5496. 			IF (err != NC_ERANGE)
    5497. 

  5497. 			    error("range error: status = %d", err);
    5498. 

  5498. 		    }
    5499. 

  5499. 		} else {
    5500. 

  5500. 		    IF (nels > 0 && err != NC_ECHAR)
    5501. 

  5501. 			error("wrong type: status = %d", err);
    5502. 

  5502. 		}
    5503. 

  5503. 	    }
    5504. 

  5504. 	}
    5505. 

  5505.     }
    5506. 

  5506. 

  5507.     err = nc_close(ncid);
    5508. 

  5508.     IF (err) 
    5509. 

  5509. 	error("nc_close: %s", nc_strerror(err));
    5510. 

  5510. 

  5511.     check_vars_double(scratch);
    5512. 

  5512. 

  5513.     err = remove(scratch);
    5514. 

  5514.     IF (err)
    5515. 

  5515. 	error("remove of %s failed", scratch);
    5516. 

  5516. }
    5517. 

  5517. 

  5518. 

  5519. 

  5520. 

  5521. void
    5522. 

  5522. test_nc_put_varm_text(void)
    5523. 

  5523. {
    5524. 

  5524.     int ncid;
    5525. 

  5525.     int d;
    5526. 

  5526.     int i;
    5527. 

  5527.     int j;
    5528. 

  5528.     int k;
    5529. 

  5529.     int m;
    5530. 

  5530.     int err;
    5531. 

  5531.     int nels;
    5532. 

  5532.     int nslabs;
    5533. 

  5533.     int nstarts;        /* number of different starts */
    5534. 

  5534.     size_t start[MAX_RANK];
    5535. 

  5535.     size_t edge[MAX_RANK];
    5536. 

  5536.     size_t index[MAX_RANK];
    5537. 

  5537.     size_t index2[MAX_RANK];
    5538. 

  5538.     size_t mid[MAX_RANK];
    5539. 

  5539.     size_t count[MAX_RANK];
    5540. 

  5540.     size_t sstride[MAX_RANK];
    5541. 

  5541.     ptrdiff_t stride[MAX_RANK];
    5542. 

  5542.     ptrdiff_t imap[MAX_RANK];
    5543. 

  5543.     int canConvert;	/* Both text or both numeric */
    5544. 

  5544.     int allInExtRange;	/* all values within external range? */
    5545. 

  5545.     text value[MAX_NELS];
    5546. 

  5546. 

  5547.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    5548. 

  5548.     IF (err) {
    5549. 

  5549. 	error("nc_create: %s", nc_strerror(err));
    5550. 

  5550. 	return;
    5551. 

  5551.     }
    5552. 

  5552.     def_dims(ncid);
    5553. 

  5553.     def_vars(ncid);
    5554. 

  5554.     err = nc_enddef(ncid);
    5555. 

  5555.     IF (err)
    5556. 

  5556. 	error("nc_enddef: %s", nc_strerror(err));
    5557. 

  5557. 

  5558.     for (i = 0; i < NVARS; i++) {
    5559. 

  5559. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_TEXT == NCT_TEXT);
    5560. 

  5560. 	assert(var_rank[i] <= MAX_RANK);
    5561. 

  5561. 	assert(var_nels[i] <= MAX_NELS);
    5562. 

  5562. 	for (j = 0; j < var_rank[i]; j++) {
    5563. 

  5563. 	    start[j] = 0;
    5564. 

  5564. 	    edge[j] = 1;
    5565. 

  5565. 	    stride[j] = 1;
    5566. 

  5566. 	    imap[j] = 1;
    5567. 

  5567. 	}
    5568. 

  5568. 	err = nc_put_varm_text(BAD_ID, i, start, edge, stride, imap, value);
    5569. 

  5569. 	IF (err != NC_EBADID) 
    5570. 

  5570. 	    error("bad ncid: status = %d", err);
    5571. 

  5571. 	err = nc_put_varm_text(ncid, BAD_VARID, start, edge, stride, imap, value);
    5572. 

  5572. 	IF (err != NC_ENOTVAR) 
    5573. 

  5573. 	    error("bad var id: status = %d", err);
    5574. 

  5574. 	for (j = 0; j < var_rank[i]; j++) {
    5575. 

  5575. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    5576. 

  5576. 		start[j] = var_shape[i][j] + 1;
    5577. 

  5577. 		err = nc_put_varm_text(ncid, i, start, edge, stride, imap, value);
    5578. 

  5578. 	      if (!canConvert) {
    5579. 

  5579. 		IF(err != NC_ECHAR)
    5580. 

  5580. 			error("conversion: status = %d", err);
    5581. 

  5581. 	      } else {
    5582. 

  5582. 		IF (err != NC_EINVALCOORDS)
    5583. 

  5583. 		    error("bad start: status = %d", err);
    5584. 

  5584. 		start[j] = 0;
    5585. 

  5585. 		edge[j] = var_shape[i][j] + 1;
    5586. 

  5586. 		err = nc_put_varm_text(ncid, i, start, edge, stride, imap, value);
    5587. 

  5587. 		IF (err != NC_EEDGE)
    5588. 

  5588. 		    error("bad edge: status = %d", err);
    5589. 

  5589. 		edge[j] = 1;
    5590. 

  5590. 		stride[j] = 0;
    5591. 

  5591. 		err = nc_put_varm_text(ncid, i, start, edge, stride, imap, value);
    5592. 

  5592. 		IF (err != NC_ESTRIDE)
    5593. 

  5593. 		    error("bad stride: status = %d", err);
    5594. 

  5594. 		stride[j] = 1;
    5595. 

  5595. 	      }
    5596. 

  5596. 	    }
    5597. 

  5597. 	}
    5598. 

  5598. 	    /* Choose a random point dividing each dim into 2 parts */
    5599. 

  5599. 	    /* Put 2^rank (nslabs) slabs so defined */
    5600. 

  5600. 	nslabs = 1;
    5601. 

  5601. 	for (j = 0; j < var_rank[i]; j++) {
    5602. 

  5602. 	    mid[j] = roll( var_shape[i][j] );
    5603. 

  5603. 	    nslabs *= 2;
    5604. 

  5604. 	}
    5605. 

  5605. 	    /* bits of k determine whether to put lower or upper part of dim */
    5606. 

  5606. 	    /* choose random stride from 1 to edge */
    5607. 

  5607. 	for (k = 0; k < nslabs; k++) {
    5608. 

  5608. 	    nstarts = 1;
    5609. 

  5609. 	    for (j = 0; j < var_rank[i]; j++) {
    5610. 

  5610. 		if ((k >> j) & 1) {
    5611. 

  5611. 		    start[j] = 0;
    5612. 

  5612. 		    edge[j] = mid[j];
    5613. 

  5613. 		}else{
    5614. 

  5614. 		    start[j] = mid[j];
    5615. 

  5615. 		    edge[j] = var_shape[i][j] - mid[j];
    5616. 

  5616. 		}
    5617. 

  5617. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    5618. 

  5618. 		nstarts *= stride[j];
    5619. 

  5619. 	    }
    5620. 

  5620.             for (m = 0; m < nstarts; m++) {
    5621. 

  5621.                 err = toMixedBase(m, var_rank[i], sstride, index);
    5622. 

  5622.                 IF (err)
    5623. 

  5623.                     error("error in toMixedBase");
    5624. 

  5624.                 nels = 1;
    5625. 

  5625.                 for (j = 0; j < var_rank[i]; j++) {
    5626. 

  5626.                     count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    5627. 

  5627.                     nels *= count[j];
    5628. 

  5628.                     index[j] += start[j];
    5629. 

  5629.                 }
    5630. 

  5630.                     /* Random choice of forward or backward */
    5631. 

  5631. /* TODO
    5632. 

  5632.                 if ( roll(2) ) {
    5633. 

  5633.                     for (j = 0; j < var_rank[i]; j++) {
    5634. 

  5634.                         index[j] += (count[j] - 1) * stride[j];
    5635. 

  5635.                         stride[j] = -stride[j];
    5636. 

  5636.                     }
    5637. 

  5637.                 }
    5638. 

  5638. */
    5639. 

  5639.                 if (var_rank[i] > 0) {
    5640. 

  5640.                     j = var_rank[i] - 1;
    5641. 

  5641.                     imap[j] = 1;
    5642. 

  5642.                     for (; j > 0; j--)
    5643. 

  5643.                         imap[j-1] = imap[j] * count[j];
    5644. 

  5644.                 }
    5645. 

  5645.                 for (allInExtRange = 1, j = 0; j < nels; j++) {
    5646. 

  5646.                     err = toMixedBase(j, var_rank[i], count, index2);
    5647. 

  5647.                     IF (err)
    5648. 

  5648.                         error("error in toMixedBase");
    5649. 

  5649.                     for (d = 0; d < var_rank[i]; d++)
    5650. 

  5650.                         index2[d] = index[d] + index2[d] * stride[d];
    5651. 

  5651.                     value[j] = hash_text(var_type[i], var_rank[i], index2,
    5652. 

  5652.                         NCT_TEXT);
    5653. 

  5653.                     allInExtRange = allInExtRange
    5654. 

  5654.                         && inRange3(value[j], var_type[i], NCT_TEXT);
    5655. 

  5655.                 }
    5656. 

  5656.                 if (var_rank[i] == 0 && i%2 == 0)
    5657. 

  5657.                     err = nc_put_varm_text(ncid,i,NULL,NULL,NULL,NULL,value);
    5658. 

  5658.                 else
    5659. 

  5659.                     err = nc_put_varm_text(ncid,i,index,count,stride,imap,value);
    5660. 

  5660.                 if (canConvert) {
    5661. 

  5661.                     if (allInExtRange) {
    5662. 

  5662.                         IF (err)
    5663. 

  5663.                             error("%s", nc_strerror(err));
    5664. 

  5664.                     } else {
    5665. 

  5665.                         IF (err != NC_ERANGE)
    5666. 

  5666.                             error("range error: status = %d", err);
    5667. 

  5667.                     }
    5668. 

  5668.                 } else {
    5669. 

  5669.                     IF (nels > 0 && err != NC_ECHAR)
    5670. 

  5670.                         error("wrong type: status = %d", err);
    5671. 

  5671. 		}
    5672. 

  5672. 	    }
    5673. 

  5673. 	}
    5674. 

  5674.     }
    5675. 

  5675. 

  5676.     err = nc_close(ncid);
    5677. 

  5677.     IF (err) 
    5678. 

  5678. 	error("nc_close: %s", nc_strerror(err));
    5679. 

  5679. 

  5680.     check_vars_text(scratch);
    5681. 

  5681. 

  5682.     err = remove(scratch);
    5683. 

  5683.     IF (err)
    5684. 

  5684.         error("remove of %s failed", scratch);
    5685. 

  5685. }
    5686. 

  5686. 

  5687. void
    5688. 

  5688. test_nc_put_varm_uchar(void)
    5689. 

  5689. {
    5690. 

  5690.     int ncid;
    5691. 

  5691.     int d;
    5692. 

  5692.     int i;
    5693. 

  5693.     int j;
    5694. 

  5694.     int k;
    5695. 

  5695.     int m;
    5696. 

  5696.     int err;
    5697. 

  5697.     int nels;
    5698. 

  5698.     int nslabs;
    5699. 

  5699.     int nstarts;        /* number of different starts */
    5700. 

  5700.     size_t start[MAX_RANK];
    5701. 

  5701.     size_t edge[MAX_RANK];
    5702. 

  5702.     size_t index[MAX_RANK];
    5703. 

  5703.     size_t index2[MAX_RANK];
    5704. 

  5704.     size_t mid[MAX_RANK];
    5705. 

  5705.     size_t count[MAX_RANK];
    5706. 

  5706.     size_t sstride[MAX_RANK];
    5707. 

  5707.     ptrdiff_t stride[MAX_RANK];
    5708. 

  5708.     ptrdiff_t imap[MAX_RANK];
    5709. 

  5709.     int canConvert;	/* Both text or both numeric */
    5710. 

  5710.     int allInExtRange;	/* all values within external range? */
    5711. 

  5711.     uchar value[MAX_NELS];
    5712. 

  5712. 

  5713.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    5714. 

  5714.     IF (err) {
    5715. 

  5715. 	error("nc_create: %s", nc_strerror(err));
    5716. 

  5716. 	return;
    5717. 

  5717.     }
    5718. 

  5718.     def_dims(ncid);
    5719. 

  5719.     def_vars(ncid);
    5720. 

  5720.     err = nc_enddef(ncid);
    5721. 

  5721.     IF (err)
    5722. 

  5722. 	error("nc_enddef: %s", nc_strerror(err));
    5723. 

  5723. 

  5724.     for (i = 0; i < NVARS; i++) {
    5725. 

  5725. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_UCHAR == NCT_TEXT);
    5726. 

  5726. 	assert(var_rank[i] <= MAX_RANK);
    5727. 

  5727. 	assert(var_nels[i] <= MAX_NELS);
    5728. 

  5728. 	for (j = 0; j < var_rank[i]; j++) {
    5729. 

  5729. 	    start[j] = 0;
    5730. 

  5730. 	    edge[j] = 1;
    5731. 

  5731. 	    stride[j] = 1;
    5732. 

  5732. 	    imap[j] = 1;
    5733. 

  5733. 	}
    5734. 

  5734. 	err = nc_put_varm_uchar(BAD_ID, i, start, edge, stride, imap, value);
    5735. 

  5735. 	IF (err != NC_EBADID) 
    5736. 

  5736. 	    error("bad ncid: status = %d", err);
    5737. 

  5737. 	err = nc_put_varm_uchar(ncid, BAD_VARID, start, edge, stride, imap, value);
    5738. 

  5738. 	IF (err != NC_ENOTVAR) 
    5739. 

  5739. 	    error("bad var id: status = %d", err);
    5740. 

  5740. 	for (j = 0; j < var_rank[i]; j++) {
    5741. 

  5741. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    5742. 

  5742. 		start[j] = var_shape[i][j] + 1;
    5743. 

  5743. 		err = nc_put_varm_uchar(ncid, i, start, edge, stride, imap, value);
    5744. 

  5744. 	      if (!canConvert) {
    5745. 

  5745. 		IF(err != NC_ECHAR)
    5746. 

  5746. 			error("conversion: status = %d", err);
    5747. 

  5747. 	      } else {
    5748. 

  5748. 		IF (err != NC_EINVALCOORDS)
    5749. 

  5749. 		    error("bad start: status = %d", err);
    5750. 

  5750. 		start[j] = 0;
    5751. 

  5751. 		edge[j] = var_shape[i][j] + 1;
    5752. 

  5752. 		err = nc_put_varm_uchar(ncid, i, start, edge, stride, imap, value);
    5753. 

  5753. 		IF (err != NC_EEDGE)
    5754. 

  5754. 		    error("bad edge: status = %d", err);
    5755. 

  5755. 		edge[j] = 1;
    5756. 

  5756. 		stride[j] = 0;
    5757. 

  5757. 		err = nc_put_varm_uchar(ncid, i, start, edge, stride, imap, value);
    5758. 

  5758. 		IF (err != NC_ESTRIDE)
    5759. 

  5759. 		    error("bad stride: status = %d", err);
    5760. 

  5760. 		stride[j] = 1;
    5761. 

  5761. 	      }
    5762. 

  5762. 	    }
    5763. 

  5763. 	}
    5764. 

  5764. 	    /* Choose a random point dividing each dim into 2 parts */
    5765. 

  5765. 	    /* Put 2^rank (nslabs) slabs so defined */
    5766. 

  5766. 	nslabs = 1;
    5767. 

  5767. 	for (j = 0; j < var_rank[i]; j++) {
    5768. 

  5768. 	    mid[j] = roll( var_shape[i][j] );
    5769. 

  5769. 	    nslabs *= 2;
    5770. 

  5770. 	}
    5771. 

  5771. 	    /* bits of k determine whether to put lower or upper part of dim */
    5772. 

  5772. 	    /* choose random stride from 1 to edge */
    5773. 

  5773. 	for (k = 0; k < nslabs; k++) {
    5774. 

  5774. 	    nstarts = 1;
    5775. 

  5775. 	    for (j = 0; j < var_rank[i]; j++) {
    5776. 

  5776. 		if ((k >> j) & 1) {
    5777. 

  5777. 		    start[j] = 0;
    5778. 

  5778. 		    edge[j] = mid[j];
    5779. 

  5779. 		}else{
    5780. 

  5780. 		    start[j] = mid[j];
    5781. 

  5781. 		    edge[j] = var_shape[i][j] - mid[j];
    5782. 

  5782. 		}
    5783. 

  5783. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    5784. 

  5784. 		nstarts *= stride[j];
    5785. 

  5785. 	    }
    5786. 

  5786.             for (m = 0; m < nstarts; m++) {
    5787. 

  5787.                 err = toMixedBase(m, var_rank[i], sstride, index);
    5788. 

  5788.                 IF (err)
    5789. 

  5789.                     error("error in toMixedBase");
    5790. 

  5790.                 nels = 1;
    5791. 

  5791.                 for (j = 0; j < var_rank[i]; j++) {
    5792. 

  5792.                     count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    5793. 

  5793.                     nels *= count[j];
    5794. 

  5794.                     index[j] += start[j];
    5795. 

  5795.                 }
    5796. 

  5796.                     /* Random choice of forward or backward */
    5797. 

  5797. /* TODO
    5798. 

  5798.                 if ( roll(2) ) {
    5799. 

  5799.                     for (j = 0; j < var_rank[i]; j++) {
    5800. 

  5800.                         index[j] += (count[j] - 1) * stride[j];
    5801. 

  5801.                         stride[j] = -stride[j];
    5802. 

  5802.                     }
    5803. 

  5803.                 }
    5804. 

  5804. */
    5805. 

  5805.                 if (var_rank[i] > 0) {
    5806. 

  5806.                     j = var_rank[i] - 1;
    5807. 

  5807.                     imap[j] = 1;
    5808. 

  5808.                     for (; j > 0; j--)
    5809. 

  5809.                         imap[j-1] = imap[j] * count[j];
    5810. 

  5810.                 }
    5811. 

  5811.                 for (allInExtRange = 1, j = 0; j < nels; j++) {
    5812. 

  5812.                     err = toMixedBase(j, var_rank[i], count, index2);
    5813. 

  5813.                     IF (err)
    5814. 

  5814.                         error("error in toMixedBase");
    5815. 

  5815.                     for (d = 0; d < var_rank[i]; d++)
    5816. 

  5816.                         index2[d] = index[d] + index2[d] * stride[d];
    5817. 

  5817.                     value[j] = hash_uchar(var_type[i], var_rank[i], index2,
    5818. 

  5818.                         NCT_UCHAR);
    5819. 

  5819.                     allInExtRange = allInExtRange
    5820. 

  5820.                         && inRange3(value[j], var_type[i], NCT_UCHAR);
    5821. 

  5821.                 }
    5822. 

  5822.                 if (var_rank[i] == 0 && i%2 == 0)
    5823. 

  5823.                     err = nc_put_varm_uchar(ncid,i,NULL,NULL,NULL,NULL,value);
    5824. 

  5824.                 else
    5825. 

  5825.                     err = nc_put_varm_uchar(ncid,i,index,count,stride,imap,value);
    5826. 

  5826.                 if (canConvert) {
    5827. 

  5827.                     if (allInExtRange) {
    5828. 

  5828.                         IF (err)
    5829. 

  5829.                             error("%s", nc_strerror(err));
    5830. 

  5830.                     } else {
    5831. 

  5831.                         IF (err != NC_ERANGE)
    5832. 

  5832.                             error("range error: status = %d", err);
    5833. 

  5833.                     }
    5834. 

  5834.                 } else {
    5835. 

  5835.                     IF (nels > 0 && err != NC_ECHAR)
    5836. 

  5836.                         error("wrong type: status = %d", err);
    5837. 

  5837. 		}
    5838. 

  5838. 	    }
    5839. 

  5839. 	}
    5840. 

  5840.     }
    5841. 

  5841. 

  5842.     err = nc_close(ncid);
    5843. 

  5843.     IF (err) 
    5844. 

  5844. 	error("nc_close: %s", nc_strerror(err));
    5845. 

  5845. 

  5846.     check_vars_uchar(scratch);
    5847. 

  5847. 

  5848.     err = remove(scratch);
    5849. 

  5849.     IF (err)
    5850. 

  5850.         error("remove of %s failed", scratch);
    5851. 

  5851. }
    5852. 

  5852. 

  5853. void
    5854. 

  5854. test_nc_put_varm_schar(void)
    5855. 

  5855. {
    5856. 

  5856.     int ncid;
    5857. 

  5857.     int d;
    5858. 

  5858.     int i;
    5859. 

  5859.     int j;
    5860. 

  5860.     int k;
    5861. 

  5861.     int m;
    5862. 

  5862.     int err;
    5863. 

  5863.     int nels;
    5864. 

  5864.     int nslabs;
    5865. 

  5865.     int nstarts;        /* number of different starts */
    5866. 

  5866.     size_t start[MAX_RANK];
    5867. 

  5867.     size_t edge[MAX_RANK];
    5868. 

  5868.     size_t index[MAX_RANK];
    5869. 

  5869.     size_t index2[MAX_RANK];
    5870. 

  5870.     size_t mid[MAX_RANK];
    5871. 

  5871.     size_t count[MAX_RANK];
    5872. 

  5872.     size_t sstride[MAX_RANK];
    5873. 

  5873.     ptrdiff_t stride[MAX_RANK];
    5874. 

  5874.     ptrdiff_t imap[MAX_RANK];
    5875. 

  5875.     int canConvert;	/* Both text or both numeric */
    5876. 

  5876.     int allInExtRange;	/* all values within external range? */
    5877. 

  5877.     schar value[MAX_NELS];
    5878. 

  5878. 

  5879.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    5880. 

  5880.     IF (err) {
    5881. 

  5881. 	error("nc_create: %s", nc_strerror(err));
    5882. 

  5882. 	return;
    5883. 

  5883.     }
    5884. 

  5884.     def_dims(ncid);
    5885. 

  5885.     def_vars(ncid);
    5886. 

  5886.     err = nc_enddef(ncid);
    5887. 

  5887.     IF (err)
    5888. 

  5888. 	error("nc_enddef: %s", nc_strerror(err));
    5889. 

  5889. 

  5890.     for (i = 0; i < NVARS; i++) {
    5891. 

  5891. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SCHAR == NCT_TEXT);
    5892. 

  5892. 	assert(var_rank[i] <= MAX_RANK);
    5893. 

  5893. 	assert(var_nels[i] <= MAX_NELS);
    5894. 

  5894. 	for (j = 0; j < var_rank[i]; j++) {
    5895. 

  5895. 	    start[j] = 0;
    5896. 

  5896. 	    edge[j] = 1;
    5897. 

  5897. 	    stride[j] = 1;
    5898. 

  5898. 	    imap[j] = 1;
    5899. 

  5899. 	}
    5900. 

  5900. 	err = nc_put_varm_schar(BAD_ID, i, start, edge, stride, imap, value);
    5901. 

  5901. 	IF (err != NC_EBADID) 
    5902. 

  5902. 	    error("bad ncid: status = %d", err);
    5903. 

  5903. 	err = nc_put_varm_schar(ncid, BAD_VARID, start, edge, stride, imap, value);
    5904. 

  5904. 	IF (err != NC_ENOTVAR) 
    5905. 

  5905. 	    error("bad var id: status = %d", err);
    5906. 

  5906. 	for (j = 0; j < var_rank[i]; j++) {
    5907. 

  5907. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    5908. 

  5908. 		start[j] = var_shape[i][j] + 1;
    5909. 

  5909. 		err = nc_put_varm_schar(ncid, i, start, edge, stride, imap, value);
    5910. 

  5910. 	      if (!canConvert) {
    5911. 

  5911. 		IF(err != NC_ECHAR)
    5912. 

  5912. 			error("conversion: status = %d", err);
    5913. 

  5913. 	      } else {
    5914. 

  5914. 		IF (err != NC_EINVALCOORDS)
    5915. 

  5915. 		    error("bad start: status = %d", err);
    5916. 

  5916. 		start[j] = 0;
    5917. 

  5917. 		edge[j] = var_shape[i][j] + 1;
    5918. 

  5918. 		err = nc_put_varm_schar(ncid, i, start, edge, stride, imap, value);
    5919. 

  5919. 		IF (err != NC_EEDGE)
    5920. 

  5920. 		    error("bad edge: status = %d", err);
    5921. 

  5921. 		edge[j] = 1;
    5922. 

  5922. 		stride[j] = 0;
    5923. 

  5923. 		err = nc_put_varm_schar(ncid, i, start, edge, stride, imap, value);
    5924. 

  5924. 		IF (err != NC_ESTRIDE)
    5925. 

  5925. 		    error("bad stride: status = %d", err);
    5926. 

  5926. 		stride[j] = 1;
    5927. 

  5927. 	      }
    5928. 

  5928. 	    }
    5929. 

  5929. 	}
    5930. 

  5930. 	    /* Choose a random point dividing each dim into 2 parts */
    5931. 

  5931. 	    /* Put 2^rank (nslabs) slabs so defined */
    5932. 

  5932. 	nslabs = 1;
    5933. 

  5933. 	for (j = 0; j < var_rank[i]; j++) {
    5934. 

  5934. 	    mid[j] = roll( var_shape[i][j] );
    5935. 

  5935. 	    nslabs *= 2;
    5936. 

  5936. 	}
    5937. 

  5937. 	    /* bits of k determine whether to put lower or upper part of dim */
    5938. 

  5938. 	    /* choose random stride from 1 to edge */
    5939. 

  5939. 	for (k = 0; k < nslabs; k++) {
    5940. 

  5940. 	    nstarts = 1;
    5941. 

  5941. 	    for (j = 0; j < var_rank[i]; j++) {
    5942. 

  5942. 		if ((k >> j) & 1) {
    5943. 

  5943. 		    start[j] = 0;
    5944. 

  5944. 		    edge[j] = mid[j];
    5945. 

  5945. 		}else{
    5946. 

  5946. 		    start[j] = mid[j];
    5947. 

  5947. 		    edge[j] = var_shape[i][j] - mid[j];
    5948. 

  5948. 		}
    5949. 

  5949. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    5950. 

  5950. 		nstarts *= stride[j];
    5951. 

  5951. 	    }
    5952. 

  5952.             for (m = 0; m < nstarts; m++) {
    5953. 

  5953.                 err = toMixedBase(m, var_rank[i], sstride, index);
    5954. 

  5954.                 IF (err)
    5955. 

  5955.                     error("error in toMixedBase");
    5956. 

  5956.                 nels = 1;
    5957. 

  5957.                 for (j = 0; j < var_rank[i]; j++) {
    5958. 

  5958.                     count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    5959. 

  5959.                     nels *= count[j];
    5960. 

  5960.                     index[j] += start[j];
    5961. 

  5961.                 }
    5962. 

  5962.                     /* Random choice of forward or backward */
    5963. 

  5963. /* TODO
    5964. 

  5964.                 if ( roll(2) ) {
    5965. 

  5965.                     for (j = 0; j < var_rank[i]; j++) {
    5966. 

  5966.                         index[j] += (count[j] - 1) * stride[j];
    5967. 

  5967.                         stride[j] = -stride[j];
    5968. 

  5968.                     }
    5969. 

  5969.                 }
    5970. 

  5970. */
    5971. 

  5971.                 if (var_rank[i] > 0) {
    5972. 

  5972.                     j = var_rank[i] - 1;
    5973. 

  5973.                     imap[j] = 1;
    5974. 

  5974.                     for (; j > 0; j--)
    5975. 

  5975.                         imap[j-1] = imap[j] * count[j];
    5976. 

  5976.                 }
    5977. 

  5977.                 for (allInExtRange = 1, j = 0; j < nels; j++) {
    5978. 

  5978.                     err = toMixedBase(j, var_rank[i], count, index2);
    5979. 

  5979.                     IF (err)
    5980. 

  5980.                         error("error in toMixedBase");
    5981. 

  5981.                     for (d = 0; d < var_rank[i]; d++)
    5982. 

  5982.                         index2[d] = index[d] + index2[d] * stride[d];
    5983. 

  5983.                     value[j] = hash_schar(var_type[i], var_rank[i], index2,
    5984. 

  5984.                         NCT_SCHAR);
    5985. 

  5985.                     allInExtRange = allInExtRange
    5986. 

  5986.                         && inRange3(value[j], var_type[i], NCT_SCHAR);
    5987. 

  5987.                 }
    5988. 

  5988.                 if (var_rank[i] == 0 && i%2 == 0)
    5989. 

  5989.                     err = nc_put_varm_schar(ncid,i,NULL,NULL,NULL,NULL,value);
    5990. 

  5990.                 else
    5991. 

  5991.                     err = nc_put_varm_schar(ncid,i,index,count,stride,imap,value);
    5992. 

  5992.                 if (canConvert) {
    5993. 

  5993.                     if (allInExtRange) {
    5994. 

  5994.                         IF (err)
    5995. 

  5995.                             error("%s", nc_strerror(err));
    5996. 

  5996.                     } else {
    5997. 

  5997.                         IF (err != NC_ERANGE)
    5998. 

  5998.                             error("range error: status = %d", err);
    5999. 

  5999.                     }
    6000. 

  6000.                 } else {
    6001. 

  6001.                     IF (nels > 0 && err != NC_ECHAR)
    6002. 

  6002.                         error("wrong type: status = %d", err);
    6003. 

  6003. 		}
    6004. 

  6004. 	    }
    6005. 

  6005. 	}
    6006. 

  6006.     }
    6007. 

  6007. 

  6008.     err = nc_close(ncid);
    6009. 

  6009.     IF (err) 
    6010. 

  6010. 	error("nc_close: %s", nc_strerror(err));
    6011. 

  6011. 

  6012.     check_vars_schar(scratch);
    6013. 

  6013. 

  6014.     err = remove(scratch);
    6015. 

  6015.     IF (err)
    6016. 

  6016.         error("remove of %s failed", scratch);
    6017. 

  6017. }
    6018. 

  6018. 

  6019. void
    6020. 

  6020. test_nc_put_varm_short(void)
    6021. 

  6021. {
    6022. 

  6022.     int ncid;
    6023. 

  6023.     int d;
    6024. 

  6024.     int i;
    6025. 

  6025.     int j;
    6026. 

  6026.     int k;
    6027. 

  6027.     int m;
    6028. 

  6028.     int err;
    6029. 

  6029.     int nels;
    6030. 

  6030.     int nslabs;
    6031. 

  6031.     int nstarts;        /* number of different starts */
    6032. 

  6032.     size_t start[MAX_RANK];
    6033. 

  6033.     size_t edge[MAX_RANK];
    6034. 

  6034.     size_t index[MAX_RANK];
    6035. 

  6035.     size_t index2[MAX_RANK];
    6036. 

  6036.     size_t mid[MAX_RANK];
    6037. 

  6037.     size_t count[MAX_RANK];
    6038. 

  6038.     size_t sstride[MAX_RANK];
    6039. 

  6039.     ptrdiff_t stride[MAX_RANK];
    6040. 

  6040.     ptrdiff_t imap[MAX_RANK];
    6041. 

  6041.     int canConvert;	/* Both text or both numeric */
    6042. 

  6042.     int allInExtRange;	/* all values within external range? */
    6043. 

  6043.     short value[MAX_NELS];
    6044. 

  6044. 

  6045.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    6046. 

  6046.     IF (err) {
    6047. 

  6047. 	error("nc_create: %s", nc_strerror(err));
    6048. 

  6048. 	return;
    6049. 

  6049.     }
    6050. 

  6050.     def_dims(ncid);
    6051. 

  6051.     def_vars(ncid);
    6052. 

  6052.     err = nc_enddef(ncid);
    6053. 

  6053.     IF (err)
    6054. 

  6054. 	error("nc_enddef: %s", nc_strerror(err));
    6055. 

  6055. 

  6056.     for (i = 0; i < NVARS; i++) {
    6057. 

  6057. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_SHORT == NCT_TEXT);
    6058. 

  6058. 	assert(var_rank[i] <= MAX_RANK);
    6059. 

  6059. 	assert(var_nels[i] <= MAX_NELS);
    6060. 

  6060. 	for (j = 0; j < var_rank[i]; j++) {
    6061. 

  6061. 	    start[j] = 0;
    6062. 

  6062. 	    edge[j] = 1;
    6063. 

  6063. 	    stride[j] = 1;
    6064. 

  6064. 	    imap[j] = 1;
    6065. 

  6065. 	}
    6066. 

  6066. 	err = nc_put_varm_short(BAD_ID, i, start, edge, stride, imap, value);
    6067. 

  6067. 	IF (err != NC_EBADID) 
    6068. 

  6068. 	    error("bad ncid: status = %d", err);
    6069. 

  6069. 	err = nc_put_varm_short(ncid, BAD_VARID, start, edge, stride, imap, value);
    6070. 

  6070. 	IF (err != NC_ENOTVAR) 
    6071. 

  6071. 	    error("bad var id: status = %d", err);
    6072. 

  6072. 	for (j = 0; j < var_rank[i]; j++) {
    6073. 

  6073. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    6074. 

  6074. 		start[j] = var_shape[i][j] + 1;
    6075. 

  6075. 		err = nc_put_varm_short(ncid, i, start, edge, stride, imap, value);
    6076. 

  6076. 	      if (!canConvert) {
    6077. 

  6077. 		IF(err != NC_ECHAR)
    6078. 

  6078. 			error("conversion: status = %d", err);
    6079. 

  6079. 	      } else {
    6080. 

  6080. 		IF (err != NC_EINVALCOORDS)
    6081. 

  6081. 		    error("bad start: status = %d", err);
    6082. 

  6082. 		start[j] = 0;
    6083. 

  6083. 		edge[j] = var_shape[i][j] + 1;
    6084. 

  6084. 		err = nc_put_varm_short(ncid, i, start, edge, stride, imap, value);
    6085. 

  6085. 		IF (err != NC_EEDGE)
    6086. 

  6086. 		    error("bad edge: status = %d", err);
    6087. 

  6087. 		edge[j] = 1;
    6088. 

  6088. 		stride[j] = 0;
    6089. 

  6089. 		err = nc_put_varm_short(ncid, i, start, edge, stride, imap, value);
    6090. 

  6090. 		IF (err != NC_ESTRIDE)
    6091. 

  6091. 		    error("bad stride: status = %d", err);
    6092. 

  6092. 		stride[j] = 1;
    6093. 

  6093. 	      }
    6094. 

  6094. 	    }
    6095. 

  6095. 	}
    6096. 

  6096. 	    /* Choose a random point dividing each dim into 2 parts */
    6097. 

  6097. 	    /* Put 2^rank (nslabs) slabs so defined */
    6098. 

  6098. 	nslabs = 1;
    6099. 

  6099. 	for (j = 0; j < var_rank[i]; j++) {
    6100. 

  6100. 	    mid[j] = roll( var_shape[i][j] );
    6101. 

  6101. 	    nslabs *= 2;
    6102. 

  6102. 	}
    6103. 

  6103. 	    /* bits of k determine whether to put lower or upper part of dim */
    6104. 

  6104. 	    /* choose random stride from 1 to edge */
    6105. 

  6105. 	for (k = 0; k < nslabs; k++) {
    6106. 

  6106. 	    nstarts = 1;
    6107. 

  6107. 	    for (j = 0; j < var_rank[i]; j++) {
    6108. 

  6108. 		if ((k >> j) & 1) {
    6109. 

  6109. 		    start[j] = 0;
    6110. 

  6110. 		    edge[j] = mid[j];
    6111. 

  6111. 		}else{
    6112. 

  6112. 		    start[j] = mid[j];
    6113. 

  6113. 		    edge[j] = var_shape[i][j] - mid[j];
    6114. 

  6114. 		}
    6115. 

  6115. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    6116. 

  6116. 		nstarts *= stride[j];
    6117. 

  6117. 	    }
    6118. 

  6118.             for (m = 0; m < nstarts; m++) {
    6119. 

  6119.                 err = toMixedBase(m, var_rank[i], sstride, index);
    6120. 

  6120.                 IF (err)
    6121. 

  6121.                     error("error in toMixedBase");
    6122. 

  6122.                 nels = 1;
    6123. 

  6123.                 for (j = 0; j < var_rank[i]; j++) {
    6124. 

  6124.                     count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    6125. 

  6125.                     nels *= count[j];
    6126. 

  6126.                     index[j] += start[j];
    6127. 

  6127.                 }
    6128. 

  6128.                     /* Random choice of forward or backward */
    6129. 

  6129. /* TODO
    6130. 

  6130.                 if ( roll(2) ) {
    6131. 

  6131.                     for (j = 0; j < var_rank[i]; j++) {
    6132. 

  6132.                         index[j] += (count[j] - 1) * stride[j];
    6133. 

  6133.                         stride[j] = -stride[j];
    6134. 

  6134.                     }
    6135. 

  6135.                 }
    6136. 

  6136. */
    6137. 

  6137.                 if (var_rank[i] > 0) {
    6138. 

  6138.                     j = var_rank[i] - 1;
    6139. 

  6139.                     imap[j] = 1;
    6140. 

  6140.                     for (; j > 0; j--)
    6141. 

  6141.                         imap[j-1] = imap[j] * count[j];
    6142. 

  6142.                 }
    6143. 

  6143.                 for (allInExtRange = 1, j = 0; j < nels; j++) {
    6144. 

  6144.                     err = toMixedBase(j, var_rank[i], count, index2);
    6145. 

  6145.                     IF (err)
    6146. 

  6146.                         error("error in toMixedBase");
    6147. 

  6147.                     for (d = 0; d < var_rank[i]; d++)
    6148. 

  6148.                         index2[d] = index[d] + index2[d] * stride[d];
    6149. 

  6149.                     value[j] = hash_short(var_type[i], var_rank[i], index2,
    6150. 

  6150.                         NCT_SHORT);
    6151. 

  6151.                     allInExtRange = allInExtRange
    6152. 

  6152.                         && inRange3(value[j], var_type[i], NCT_SHORT);
    6153. 

  6153.                 }
    6154. 

  6154.                 if (var_rank[i] == 0 && i%2 == 0)
    6155. 

  6155.                     err = nc_put_varm_short(ncid,i,NULL,NULL,NULL,NULL,value);
    6156. 

  6156.                 else
    6157. 

  6157.                     err = nc_put_varm_short(ncid,i,index,count,stride,imap,value);
    6158. 

  6158.                 if (canConvert) {
    6159. 

  6159.                     if (allInExtRange) {
    6160. 

  6160.                         IF (err)
    6161. 

  6161.                             error("%s", nc_strerror(err));
    6162. 

  6162.                     } else {
    6163. 

  6163.                         IF (err != NC_ERANGE)
    6164. 

  6164.                             error("range error: status = %d", err);
    6165. 

  6165.                     }
    6166. 

  6166.                 } else {
    6167. 

  6167.                     IF (nels > 0 && err != NC_ECHAR)
    6168. 

  6168.                         error("wrong type: status = %d", err);
    6169. 

  6169. 		}
    6170. 

  6170. 	    }
    6171. 

  6171. 	}
    6172. 

  6172.     }
    6173. 

  6173. 

  6174.     err = nc_close(ncid);
    6175. 

  6175.     IF (err) 
    6176. 

  6176. 	error("nc_close: %s", nc_strerror(err));
    6177. 

  6177. 

  6178.     check_vars_short(scratch);
    6179. 

  6179. 

  6180.     err = remove(scratch);
    6181. 

  6181.     IF (err)
    6182. 

  6182.         error("remove of %s failed", scratch);
    6183. 

  6183. }
    6184. 

  6184. 

  6185. void
    6186. 

  6186. test_nc_put_varm_int(void)
    6187. 

  6187. {
    6188. 

  6188.     int ncid;
    6189. 

  6189.     int d;
    6190. 

  6190.     int i;
    6191. 

  6191.     int j;
    6192. 

  6192.     int k;
    6193. 

  6193.     int m;
    6194. 

  6194.     int err;
    6195. 

  6195.     int nels;
    6196. 

  6196.     int nslabs;
    6197. 

  6197.     int nstarts;        /* number of different starts */
    6198. 

  6198.     size_t start[MAX_RANK];
    6199. 

  6199.     size_t edge[MAX_RANK];
    6200. 

  6200.     size_t index[MAX_RANK];
    6201. 

  6201.     size_t index2[MAX_RANK];
    6202. 

  6202.     size_t mid[MAX_RANK];
    6203. 

  6203.     size_t count[MAX_RANK];
    6204. 

  6204.     size_t sstride[MAX_RANK];
    6205. 

  6205.     ptrdiff_t stride[MAX_RANK];
    6206. 

  6206.     ptrdiff_t imap[MAX_RANK];
    6207. 

  6207.     int canConvert;	/* Both text or both numeric */
    6208. 

  6208.     int allInExtRange;	/* all values within external range? */
    6209. 

  6209.     int value[MAX_NELS];
    6210. 

  6210. 

  6211.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    6212. 

  6212.     IF (err) {
    6213. 

  6213. 	error("nc_create: %s", nc_strerror(err));
    6214. 

  6214. 	return;
    6215. 

  6215.     }
    6216. 

  6216.     def_dims(ncid);
    6217. 

  6217.     def_vars(ncid);
    6218. 

  6218.     err = nc_enddef(ncid);
    6219. 

  6219.     IF (err)
    6220. 

  6220. 	error("nc_enddef: %s", nc_strerror(err));
    6221. 

  6221. 

  6222.     for (i = 0; i < NVARS; i++) {
    6223. 

  6223. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_INT == NCT_TEXT);
    6224. 

  6224. 	assert(var_rank[i] <= MAX_RANK);
    6225. 

  6225. 	assert(var_nels[i] <= MAX_NELS);
    6226. 

  6226. 	for (j = 0; j < var_rank[i]; j++) {
    6227. 

  6227. 	    start[j] = 0;
    6228. 

  6228. 	    edge[j] = 1;
    6229. 

  6229. 	    stride[j] = 1;
    6230. 

  6230. 	    imap[j] = 1;
    6231. 

  6231. 	}
    6232. 

  6232. 	err = nc_put_varm_int(BAD_ID, i, start, edge, stride, imap, value);
    6233. 

  6233. 	IF (err != NC_EBADID) 
    6234. 

  6234. 	    error("bad ncid: status = %d", err);
    6235. 

  6235. 	err = nc_put_varm_int(ncid, BAD_VARID, start, edge, stride, imap, value);
    6236. 

  6236. 	IF (err != NC_ENOTVAR) 
    6237. 

  6237. 	    error("bad var id: status = %d", err);
    6238. 

  6238. 	for (j = 0; j < var_rank[i]; j++) {
    6239. 

  6239. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    6240. 

  6240. 		start[j] = var_shape[i][j] + 1;
    6241. 

  6241. 		err = nc_put_varm_int(ncid, i, start, edge, stride, imap, value);
    6242. 

  6242. 	      if (!canConvert) {
    6243. 

  6243. 		IF(err != NC_ECHAR)
    6244. 

  6244. 			error("conversion: status = %d", err);
    6245. 

  6245. 	      } else {
    6246. 

  6246. 		IF (err != NC_EINVALCOORDS)
    6247. 

  6247. 		    error("bad start: status = %d", err);
    6248. 

  6248. 		start[j] = 0;
    6249. 

  6249. 		edge[j] = var_shape[i][j] + 1;
    6250. 

  6250. 		err = nc_put_varm_int(ncid, i, start, edge, stride, imap, value);
    6251. 

  6251. 		IF (err != NC_EEDGE)
    6252. 

  6252. 		    error("bad edge: status = %d", err);
    6253. 

  6253. 		edge[j] = 1;
    6254. 

  6254. 		stride[j] = 0;
    6255. 

  6255. 		err = nc_put_varm_int(ncid, i, start, edge, stride, imap, value);
    6256. 

  6256. 		IF (err != NC_ESTRIDE)
    6257. 

  6257. 		    error("bad stride: status = %d", err);
    6258. 

  6258. 		stride[j] = 1;
    6259. 

  6259. 	      }
    6260. 

  6260. 	    }
    6261. 

  6261. 	}
    6262. 

  6262. 	    /* Choose a random point dividing each dim into 2 parts */
    6263. 

  6263. 	    /* Put 2^rank (nslabs) slabs so defined */
    6264. 

  6264. 	nslabs = 1;
    6265. 

  6265. 	for (j = 0; j < var_rank[i]; j++) {
    6266. 

  6266. 	    mid[j] = roll( var_shape[i][j] );
    6267. 

  6267. 	    nslabs *= 2;
    6268. 

  6268. 	}
    6269. 

  6269. 	    /* bits of k determine whether to put lower or upper part of dim */
    6270. 

  6270. 	    /* choose random stride from 1 to edge */
    6271. 

  6271. 	for (k = 0; k < nslabs; k++) {
    6272. 

  6272. 	    nstarts = 1;
    6273. 

  6273. 	    for (j = 0; j < var_rank[i]; j++) {
    6274. 

  6274. 		if ((k >> j) & 1) {
    6275. 

  6275. 		    start[j] = 0;
    6276. 

  6276. 		    edge[j] = mid[j];
    6277. 

  6277. 		}else{
    6278. 

  6278. 		    start[j] = mid[j];
    6279. 

  6279. 		    edge[j] = var_shape[i][j] - mid[j];
    6280. 

  6280. 		}
    6281. 

  6281. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    6282. 

  6282. 		nstarts *= stride[j];
    6283. 

  6283. 	    }
    6284. 

  6284.             for (m = 0; m < nstarts; m++) {
    6285. 

  6285.                 err = toMixedBase(m, var_rank[i], sstride, index);
    6286. 

  6286.                 IF (err)
    6287. 

  6287.                     error("error in toMixedBase");
    6288. 

  6288.                 nels = 1;
    6289. 

  6289.                 for (j = 0; j < var_rank[i]; j++) {
    6290. 

  6290.                     count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    6291. 

  6291.                     nels *= count[j];
    6292. 

  6292.                     index[j] += start[j];
    6293. 

  6293.                 }
    6294. 

  6294.                     /* Random choice of forward or backward */
    6295. 

  6295. /* TODO
    6296. 

  6296.                 if ( roll(2) ) {
    6297. 

  6297.                     for (j = 0; j < var_rank[i]; j++) {
    6298. 

  6298.                         index[j] += (count[j] - 1) * stride[j];
    6299. 

  6299.                         stride[j] = -stride[j];
    6300. 

  6300.                     }
    6301. 

  6301.                 }
    6302. 

  6302. */
    6303. 

  6303.                 if (var_rank[i] > 0) {
    6304. 

  6304.                     j = var_rank[i] - 1;
    6305. 

  6305.                     imap[j] = 1;
    6306. 

  6306.                     for (; j > 0; j--)
    6307. 

  6307.                         imap[j-1] = imap[j] * count[j];
    6308. 

  6308.                 }
    6309. 

  6309.                 for (allInExtRange = 1, j = 0; j < nels; j++) {
    6310. 

  6310.                     err = toMixedBase(j, var_rank[i], count, index2);
    6311. 

  6311.                     IF (err)
    6312. 

  6312.                         error("error in toMixedBase");
    6313. 

  6313.                     for (d = 0; d < var_rank[i]; d++)
    6314. 

  6314.                         index2[d] = index[d] + index2[d] * stride[d];
    6315. 

  6315.                     value[j] = hash_int(var_type[i], var_rank[i], index2,
    6316. 

  6316.                         NCT_INT);
    6317. 

  6317.                     allInExtRange = allInExtRange
    6318. 

  6318.                         && inRange3(value[j], var_type[i], NCT_INT);
    6319. 

  6319.                 }
    6320. 

  6320.                 if (var_rank[i] == 0 && i%2 == 0)
    6321. 

  6321.                     err = nc_put_varm_int(ncid,i,NULL,NULL,NULL,NULL,value);
    6322. 

  6322.                 else
    6323. 

  6323.                     err = nc_put_varm_int(ncid,i,index,count,stride,imap,value);
    6324. 

  6324.                 if (canConvert) {
    6325. 

  6325.                     if (allInExtRange) {
    6326. 

  6326.                         IF (err)
    6327. 

  6327.                             error("%s", nc_strerror(err));
    6328. 

  6328.                     } else {
    6329. 

  6329.                         IF (err != NC_ERANGE)
    6330. 

  6330.                             error("range error: status = %d", err);
    6331. 

  6331.                     }
    6332. 

  6332.                 } else {
    6333. 

  6333.                     IF (nels > 0 && err != NC_ECHAR)
    6334. 

  6334.                         error("wrong type: status = %d", err);
    6335. 

  6335. 		}
    6336. 

  6336. 	    }
    6337. 

  6337. 	}
    6338. 

  6338.     }
    6339. 

  6339. 

  6340.     err = nc_close(ncid);
    6341. 

  6341.     IF (err) 
    6342. 

  6342. 	error("nc_close: %s", nc_strerror(err));
    6343. 

  6343. 

  6344.     check_vars_int(scratch);
    6345. 

  6345. 

  6346.     err = remove(scratch);
    6347. 

  6347.     IF (err)
    6348. 

  6348.         error("remove of %s failed", scratch);
    6349. 

  6349. }
    6350. 

  6350. 

  6351. void
    6352. 

  6352. test_nc_put_varm_long(void)
    6353. 

  6353. {
    6354. 

  6354.     int ncid;
    6355. 

  6355.     int d;
    6356. 

  6356.     int i;
    6357. 

  6357.     int j;
    6358. 

  6358.     int k;
    6359. 

  6359.     int m;
    6360. 

  6360.     int err;
    6361. 

  6361.     int nels;
    6362. 

  6362.     int nslabs;
    6363. 

  6363.     int nstarts;        /* number of different starts */
    6364. 

  6364.     size_t start[MAX_RANK];
    6365. 

  6365.     size_t edge[MAX_RANK];
    6366. 

  6366.     size_t index[MAX_RANK];
    6367. 

  6367.     size_t index2[MAX_RANK];
    6368. 

  6368.     size_t mid[MAX_RANK];
    6369. 

  6369.     size_t count[MAX_RANK];
    6370. 

  6370.     size_t sstride[MAX_RANK];
    6371. 

  6371.     ptrdiff_t stride[MAX_RANK];
    6372. 

  6372.     ptrdiff_t imap[MAX_RANK];
    6373. 

  6373.     int canConvert;	/* Both text or both numeric */
    6374. 

  6374.     int allInExtRange;	/* all values within external range? */
    6375. 

  6375.     long value[MAX_NELS];
    6376. 

  6376. 

  6377.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    6378. 

  6378.     IF (err) {
    6379. 

  6379. 	error("nc_create: %s", nc_strerror(err));
    6380. 

  6380. 	return;
    6381. 

  6381.     }
    6382. 

  6382.     def_dims(ncid);
    6383. 

  6383.     def_vars(ncid);
    6384. 

  6384.     err = nc_enddef(ncid);
    6385. 

  6385.     IF (err)
    6386. 

  6386. 	error("nc_enddef: %s", nc_strerror(err));
    6387. 

  6387. 

  6388.     for (i = 0; i < NVARS; i++) {
    6389. 

  6389. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_LONG == NCT_TEXT);
    6390. 

  6390. 	assert(var_rank[i] <= MAX_RANK);
    6391. 

  6391. 	assert(var_nels[i] <= MAX_NELS);
    6392. 

  6392. 	for (j = 0; j < var_rank[i]; j++) {
    6393. 

  6393. 	    start[j] = 0;
    6394. 

  6394. 	    edge[j] = 1;
    6395. 

  6395. 	    stride[j] = 1;
    6396. 

  6396. 	    imap[j] = 1;
    6397. 

  6397. 	}
    6398. 

  6398. 	err = nc_put_varm_long(BAD_ID, i, start, edge, stride, imap, value);
    6399. 

  6399. 	IF (err != NC_EBADID) 
    6400. 

  6400. 	    error("bad ncid: status = %d", err);
    6401. 

  6401. 	err = nc_put_varm_long(ncid, BAD_VARID, start, edge, stride, imap, value);
    6402. 

  6402. 	IF (err != NC_ENOTVAR) 
    6403. 

  6403. 	    error("bad var id: status = %d", err);
    6404. 

  6404. 	for (j = 0; j < var_rank[i]; j++) {
    6405. 

  6405. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    6406. 

  6406. 		start[j] = var_shape[i][j] + 1;
    6407. 

  6407. 		err = nc_put_varm_long(ncid, i, start, edge, stride, imap, value);
    6408. 

  6408. 	      if (!canConvert) {
    6409. 

  6409. 		IF(err != NC_ECHAR)
    6410. 

  6410. 			error("conversion: status = %d", err);
    6411. 

  6411. 	      } else {
    6412. 

  6412. 		IF (err != NC_EINVALCOORDS)
    6413. 

  6413. 		    error("bad start: status = %d", err);
    6414. 

  6414. 		start[j] = 0;
    6415. 

  6415. 		edge[j] = var_shape[i][j] + 1;
    6416. 

  6416. 		err = nc_put_varm_long(ncid, i, start, edge, stride, imap, value);
    6417. 

  6417. 		IF (err != NC_EEDGE)
    6418. 

  6418. 		    error("bad edge: status = %d", err);
    6419. 

  6419. 		edge[j] = 1;
    6420. 

  6420. 		stride[j] = 0;
    6421. 

  6421. 		err = nc_put_varm_long(ncid, i, start, edge, stride, imap, value);
    6422. 

  6422. 		IF (err != NC_ESTRIDE)
    6423. 

  6423. 		    error("bad stride: status = %d", err);
    6424. 

  6424. 		stride[j] = 1;
    6425. 

  6425. 	      }
    6426. 

  6426. 	    }
    6427. 

  6427. 	}
    6428. 

  6428. 	    /* Choose a random point dividing each dim into 2 parts */
    6429. 

  6429. 	    /* Put 2^rank (nslabs) slabs so defined */
    6430. 

  6430. 	nslabs = 1;
    6431. 

  6431. 	for (j = 0; j < var_rank[i]; j++) {
    6432. 

  6432. 	    mid[j] = roll( var_shape[i][j] );
    6433. 

  6433. 	    nslabs *= 2;
    6434. 

  6434. 	}
    6435. 

  6435. 	    /* bits of k determine whether to put lower or upper part of dim */
    6436. 

  6436. 	    /* choose random stride from 1 to edge */
    6437. 

  6437. 	for (k = 0; k < nslabs; k++) {
    6438. 

  6438. 	    nstarts = 1;
    6439. 

  6439. 	    for (j = 0; j < var_rank[i]; j++) {
    6440. 

  6440. 		if ((k >> j) & 1) {
    6441. 

  6441. 		    start[j] = 0;
    6442. 

  6442. 		    edge[j] = mid[j];
    6443. 

  6443. 		}else{
    6444. 

  6444. 		    start[j] = mid[j];
    6445. 

  6445. 		    edge[j] = var_shape[i][j] - mid[j];
    6446. 

  6446. 		}
    6447. 

  6447. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    6448. 

  6448. 		nstarts *= stride[j];
    6449. 

  6449. 	    }
    6450. 

  6450.             for (m = 0; m < nstarts; m++) {
    6451. 

  6451.                 err = toMixedBase(m, var_rank[i], sstride, index);
    6452. 

  6452.                 IF (err)
    6453. 

  6453.                     error("error in toMixedBase");
    6454. 

  6454.                 nels = 1;
    6455. 

  6455.                 for (j = 0; j < var_rank[i]; j++) {
    6456. 

  6456.                     count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    6457. 

  6457.                     nels *= count[j];
    6458. 

  6458.                     index[j] += start[j];
    6459. 

  6459.                 }
    6460. 

  6460.                     /* Random choice of forward or backward */
    6461. 

  6461. /* TODO
    6462. 

  6462.                 if ( roll(2) ) {
    6463. 

  6463.                     for (j = 0; j < var_rank[i]; j++) {
    6464. 

  6464.                         index[j] += (count[j] - 1) * stride[j];
    6465. 

  6465.                         stride[j] = -stride[j];
    6466. 

  6466.                     }
    6467. 

  6467.                 }
    6468. 

  6468. */
    6469. 

  6469.                 if (var_rank[i] > 0) {
    6470. 

  6470.                     j = var_rank[i] - 1;
    6471. 

  6471.                     imap[j] = 1;
    6472. 

  6472.                     for (; j > 0; j--)
    6473. 

  6473.                         imap[j-1] = imap[j] * count[j];
    6474. 

  6474.                 }
    6475. 

  6475.                 for (allInExtRange = 1, j = 0; j < nels; j++) {
    6476. 

  6476.                     err = toMixedBase(j, var_rank[i], count, index2);
    6477. 

  6477.                     IF (err)
    6478. 

  6478.                         error("error in toMixedBase");
    6479. 

  6479.                     for (d = 0; d < var_rank[i]; d++)
    6480. 

  6480.                         index2[d] = index[d] + index2[d] * stride[d];
    6481. 

  6481.                     value[j] = hash_long(var_type[i], var_rank[i], index2,
    6482. 

  6482.                         NCT_LONG);
    6483. 

  6483.                     allInExtRange = allInExtRange
    6484. 

  6484.                         && inRange3(value[j], var_type[i], NCT_LONG);
    6485. 

  6485.                 }
    6486. 

  6486.                 if (var_rank[i] == 0 && i%2 == 0)
    6487. 

  6487.                     err = nc_put_varm_long(ncid,i,NULL,NULL,NULL,NULL,value);
    6488. 

  6488.                 else
    6489. 

  6489.                     err = nc_put_varm_long(ncid,i,index,count,stride,imap,value);
    6490. 

  6490.                 if (canConvert) {
    6491. 

  6491.                     if (allInExtRange) {
    6492. 

  6492.                         IF (err)
    6493. 

  6493.                             error("%s", nc_strerror(err));
    6494. 

  6494.                     } else {
    6495. 

  6495.                         IF (err != NC_ERANGE)
    6496. 

  6496.                             error("range error: status = %d", err);
    6497. 

  6497.                     }
    6498. 

  6498.                 } else {
    6499. 

  6499.                     IF (nels > 0 && err != NC_ECHAR)
    6500. 

  6500.                         error("wrong type: status = %d", err);
    6501. 

  6501. 		}
    6502. 

  6502. 	    }
    6503. 

  6503. 	}
    6504. 

  6504.     }
    6505. 

  6505. 

  6506.     err = nc_close(ncid);
    6507. 

  6507.     IF (err) 
    6508. 

  6508. 	error("nc_close: %s", nc_strerror(err));
    6509. 

  6509. 

  6510.     check_vars_long(scratch);
    6511. 

  6511. 

  6512.     err = remove(scratch);
    6513. 

  6513.     IF (err)
    6514. 

  6514.         error("remove of %s failed", scratch);
    6515. 

  6515. }
    6516. 

  6516. 

  6517. void
    6518. 

  6518. test_nc_put_varm_float(void)
    6519. 

  6519. {
    6520. 

  6520.     int ncid;
    6521. 

  6521.     int d;
    6522. 

  6522.     int i;
    6523. 

  6523.     int j;
    6524. 

  6524.     int k;
    6525. 

  6525.     int m;
    6526. 

  6526.     int err;
    6527. 

  6527.     int nels;
    6528. 

  6528.     int nslabs;
    6529. 

  6529.     int nstarts;        /* number of different starts */
    6530. 

  6530.     size_t start[MAX_RANK];
    6531. 

  6531.     size_t edge[MAX_RANK];
    6532. 

  6532.     size_t index[MAX_RANK];
    6533. 

  6533.     size_t index2[MAX_RANK];
    6534. 

  6534.     size_t mid[MAX_RANK];
    6535. 

  6535.     size_t count[MAX_RANK];
    6536. 

  6536.     size_t sstride[MAX_RANK];
    6537. 

  6537.     ptrdiff_t stride[MAX_RANK];
    6538. 

  6538.     ptrdiff_t imap[MAX_RANK];
    6539. 

  6539.     int canConvert;	/* Both text or both numeric */
    6540. 

  6540.     int allInExtRange;	/* all values within external range? */
    6541. 

  6541.     float value[MAX_NELS];
    6542. 

  6542. 

  6543.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    6544. 

  6544.     IF (err) {
    6545. 

  6545. 	error("nc_create: %s", nc_strerror(err));
    6546. 

  6546. 	return;
    6547. 

  6547.     }
    6548. 

  6548.     def_dims(ncid);
    6549. 

  6549.     def_vars(ncid);
    6550. 

  6550.     err = nc_enddef(ncid);
    6551. 

  6551.     IF (err)
    6552. 

  6552. 	error("nc_enddef: %s", nc_strerror(err));
    6553. 

  6553. 

  6554.     for (i = 0; i < NVARS; i++) {
    6555. 

  6555. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_FLOAT == NCT_TEXT);
    6556. 

  6556. 	assert(var_rank[i] <= MAX_RANK);
    6557. 

  6557. 	assert(var_nels[i] <= MAX_NELS);
    6558. 

  6558. 	for (j = 0; j < var_rank[i]; j++) {
    6559. 

  6559. 	    start[j] = 0;
    6560. 

  6560. 	    edge[j] = 1;
    6561. 

  6561. 	    stride[j] = 1;
    6562. 

  6562. 	    imap[j] = 1;
    6563. 

  6563. 	}
    6564. 

  6564. 	err = nc_put_varm_float(BAD_ID, i, start, edge, stride, imap, value);
    6565. 

  6565. 	IF (err != NC_EBADID) 
    6566. 

  6566. 	    error("bad ncid: status = %d", err);
    6567. 

  6567. 	err = nc_put_varm_float(ncid, BAD_VARID, start, edge, stride, imap, value);
    6568. 

  6568. 	IF (err != NC_ENOTVAR) 
    6569. 

  6569. 	    error("bad var id: status = %d", err);
    6570. 

  6570. 	for (j = 0; j < var_rank[i]; j++) {
    6571. 

  6571. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    6572. 

  6572. 		start[j] = var_shape[i][j] + 1;
    6573. 

  6573. 		err = nc_put_varm_float(ncid, i, start, edge, stride, imap, value);
    6574. 

  6574. 	      if (!canConvert) {
    6575. 

  6575. 		IF(err != NC_ECHAR)
    6576. 

  6576. 			error("conversion: status = %d", err);
    6577. 

  6577. 	      } else {
    6578. 

  6578. 		IF (err != NC_EINVALCOORDS)
    6579. 

  6579. 		    error("bad start: status = %d", err);
    6580. 

  6580. 		start[j] = 0;
    6581. 

  6581. 		edge[j] = var_shape[i][j] + 1;
    6582. 

  6582. 		err = nc_put_varm_float(ncid, i, start, edge, stride, imap, value);
    6583. 

  6583. 		IF (err != NC_EEDGE)
    6584. 

  6584. 		    error("bad edge: status = %d", err);
    6585. 

  6585. 		edge[j] = 1;
    6586. 

  6586. 		stride[j] = 0;
    6587. 

  6587. 		err = nc_put_varm_float(ncid, i, start, edge, stride, imap, value);
    6588. 

  6588. 		IF (err != NC_ESTRIDE)
    6589. 

  6589. 		    error("bad stride: status = %d", err);
    6590. 

  6590. 		stride[j] = 1;
    6591. 

  6591. 	      }
    6592. 

  6592. 	    }
    6593. 

  6593. 	}
    6594. 

  6594. 	    /* Choose a random point dividing each dim into 2 parts */
    6595. 

  6595. 	    /* Put 2^rank (nslabs) slabs so defined */
    6596. 

  6596. 	nslabs = 1;
    6597. 

  6597. 	for (j = 0; j < var_rank[i]; j++) {
    6598. 

  6598. 	    mid[j] = roll( var_shape[i][j] );
    6599. 

  6599. 	    nslabs *= 2;
    6600. 

  6600. 	}
    6601. 

  6601. 	    /* bits of k determine whether to put lower or upper part of dim */
    6602. 

  6602. 	    /* choose random stride from 1 to edge */
    6603. 

  6603. 	for (k = 0; k < nslabs; k++) {
    6604. 

  6604. 	    nstarts = 1;
    6605. 

  6605. 	    for (j = 0; j < var_rank[i]; j++) {
    6606. 

  6606. 		if ((k >> j) & 1) {
    6607. 

  6607. 		    start[j] = 0;
    6608. 

  6608. 		    edge[j] = mid[j];
    6609. 

  6609. 		}else{
    6610. 

  6610. 		    start[j] = mid[j];
    6611. 

  6611. 		    edge[j] = var_shape[i][j] - mid[j];
    6612. 

  6612. 		}
    6613. 

  6613. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    6614. 

  6614. 		nstarts *= stride[j];
    6615. 

  6615. 	    }
    6616. 

  6616.             for (m = 0; m < nstarts; m++) {
    6617. 

  6617.                 err = toMixedBase(m, var_rank[i], sstride, index);
    6618. 

  6618.                 IF (err)
    6619. 

  6619.                     error("error in toMixedBase");
    6620. 

  6620.                 nels = 1;
    6621. 

  6621.                 for (j = 0; j < var_rank[i]; j++) {
    6622. 

  6622.                     count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    6623. 

  6623.                     nels *= count[j];
    6624. 

  6624.                     index[j] += start[j];
    6625. 

  6625.                 }
    6626. 

  6626.                     /* Random choice of forward or backward */
    6627. 

  6627. /* TODO
    6628. 

  6628.                 if ( roll(2) ) {
    6629. 

  6629.                     for (j = 0; j < var_rank[i]; j++) {
    6630. 

  6630.                         index[j] += (count[j] - 1) * stride[j];
    6631. 

  6631.                         stride[j] = -stride[j];
    6632. 

  6632.                     }
    6633. 

  6633.                 }
    6634. 

  6634. */
    6635. 

  6635.                 if (var_rank[i] > 0) {
    6636. 

  6636.                     j = var_rank[i] - 1;
    6637. 

  6637.                     imap[j] = 1;
    6638. 

  6638.                     for (; j > 0; j--)
    6639. 

  6639.                         imap[j-1] = imap[j] * count[j];
    6640. 

  6640.                 }
    6641. 

  6641.                 for (allInExtRange = 1, j = 0; j < nels; j++) {
    6642. 

  6642.                     err = toMixedBase(j, var_rank[i], count, index2);
    6643. 

  6643.                     IF (err)
    6644. 

  6644.                         error("error in toMixedBase");
    6645. 

  6645.                     for (d = 0; d < var_rank[i]; d++)
    6646. 

  6646.                         index2[d] = index[d] + index2[d] * stride[d];
    6647. 

  6647.                     value[j] = hash_float(var_type[i], var_rank[i], index2,
    6648. 

  6648.                         NCT_FLOAT);
    6649. 

  6649.                     allInExtRange = allInExtRange
    6650. 

  6650.                         && inRange3(value[j], var_type[i], NCT_FLOAT);
    6651. 

  6651.                 }
    6652. 

  6652.                 if (var_rank[i] == 0 && i%2 == 0)
    6653. 

  6653.                     err = nc_put_varm_float(ncid,i,NULL,NULL,NULL,NULL,value);
    6654. 

  6654.                 else
    6655. 

  6655.                     err = nc_put_varm_float(ncid,i,index,count,stride,imap,value);
    6656. 

  6656.                 if (canConvert) {
    6657. 

  6657.                     if (allInExtRange) {
    6658. 

  6658.                         IF (err)
    6659. 

  6659.                             error("%s", nc_strerror(err));
    6660. 

  6660.                     } else {
    6661. 

  6661.                         IF (err != NC_ERANGE)
    6662. 

  6662.                             error("range error: status = %d", err);
    6663. 

  6663.                     }
    6664. 

  6664.                 } else {
    6665. 

  6665.                     IF (nels > 0 && err != NC_ECHAR)
    6666. 

  6666.                         error("wrong type: status = %d", err);
    6667. 

  6667. 		}
    6668. 

  6668. 	    }
    6669. 

  6669. 	}
    6670. 

  6670.     }
    6671. 

  6671. 

  6672.     err = nc_close(ncid);
    6673. 

  6673.     IF (err) 
    6674. 

  6674. 	error("nc_close: %s", nc_strerror(err));
    6675. 

  6675. 

  6676.     check_vars_float(scratch);
    6677. 

  6677. 

  6678.     err = remove(scratch);
    6679. 

  6679.     IF (err)
    6680. 

  6680.         error("remove of %s failed", scratch);
    6681. 

  6681. }
    6682. 

  6682. 

  6683. void
    6684. 

  6684. test_nc_put_varm_double(void)
    6685. 

  6685. {
    6686. 

  6686.     int ncid;
    6687. 

  6687.     int d;
    6688. 

  6688.     int i;
    6689. 

  6689.     int j;
    6690. 

  6690.     int k;
    6691. 

  6691.     int m;
    6692. 

  6692.     int err;
    6693. 

  6693.     int nels;
    6694. 

  6694.     int nslabs;
    6695. 

  6695.     int nstarts;        /* number of different starts */
    6696. 

  6696.     size_t start[MAX_RANK];
    6697. 

  6697.     size_t edge[MAX_RANK];
    6698. 

  6698.     size_t index[MAX_RANK];
    6699. 

  6699.     size_t index2[MAX_RANK];
    6700. 

  6700.     size_t mid[MAX_RANK];
    6701. 

  6701.     size_t count[MAX_RANK];
    6702. 

  6702.     size_t sstride[MAX_RANK];
    6703. 

  6703.     ptrdiff_t stride[MAX_RANK];
    6704. 

  6704.     ptrdiff_t imap[MAX_RANK];
    6705. 

  6705.     int canConvert;	/* Both text or both numeric */
    6706. 

  6706.     int allInExtRange;	/* all values within external range? */
    6707. 

  6707.     double value[MAX_NELS];
    6708. 

  6708. 

  6709.     err = nc_create(scratch, NC_CLOBBER, &ncid);
    6710. 

  6710.     IF (err) {
    6711. 

  6711. 	error("nc_create: %s", nc_strerror(err));
    6712. 

  6712. 	return;
    6713. 

  6713.     }
    6714. 

  6714.     def_dims(ncid);
    6715. 

  6715.     def_vars(ncid);
    6716. 

  6716.     err = nc_enddef(ncid);
    6717. 

  6717.     IF (err)
    6718. 

  6718. 	error("nc_enddef: %s", nc_strerror(err));
    6719. 

  6719. 

  6720.     for (i = 0; i < NVARS; i++) {
    6721. 

  6721. 	canConvert = (var_type[i] == NC_CHAR) == (NCT_DOUBLE == NCT_TEXT);
    6722. 

  6722. 	assert(var_rank[i] <= MAX_RANK);
    6723. 

  6723. 	assert(var_nels[i] <= MAX_NELS);
    6724. 

  6724. 	for (j = 0; j < var_rank[i]; j++) {
    6725. 

  6725. 	    start[j] = 0;
    6726. 

  6726. 	    edge[j] = 1;
    6727. 

  6727. 	    stride[j] = 1;
    6728. 

  6728. 	    imap[j] = 1;
    6729. 

  6729. 	}
    6730. 

  6730. 	err = nc_put_varm_double(BAD_ID, i, start, edge, stride, imap, value);
    6731. 

  6731. 	IF (err != NC_EBADID) 
    6732. 

  6732. 	    error("bad ncid: status = %d", err);
    6733. 

  6733. 	err = nc_put_varm_double(ncid, BAD_VARID, start, edge, stride, imap, value);
    6734. 

  6734. 	IF (err != NC_ENOTVAR) 
    6735. 

  6735. 	    error("bad var id: status = %d", err);
    6736. 

  6736. 	for (j = 0; j < var_rank[i]; j++) {
    6737. 

  6737. 	    if (var_dimid[i][j] > 0) {		/* skip record dim */
    6738. 

  6738. 		start[j] = var_shape[i][j] + 1;
    6739. 

  6739. 		err = nc_put_varm_double(ncid, i, start, edge, stride, imap, value);
    6740. 

  6740. 	      if (!canConvert) {
    6741. 

  6741. 		IF(err != NC_ECHAR)
    6742. 

  6742. 			error("conversion: status = %d", err);
    6743. 

  6743. 	      } else {
    6744. 

  6744. 		IF (err != NC_EINVALCOORDS)
    6745. 

  6745. 		    error("bad start: status = %d", err);
    6746. 

  6746. 		start[j] = 0;
    6747. 

  6747. 		edge[j] = var_shape[i][j] + 1;
    6748. 

  6748. 		err = nc_put_varm_double(ncid, i, start, edge, stride, imap, value);
    6749. 

  6749. 		IF (err != NC_EEDGE)
    6750. 

  6750. 		    error("bad edge: status = %d", err);
    6751. 

  6751. 		edge[j] = 1;
    6752. 

  6752. 		stride[j] = 0;
    6753. 

  6753. 		err = nc_put_varm_double(ncid, i, start, edge, stride, imap, value);
    6754. 

  6754. 		IF (err != NC_ESTRIDE)
    6755. 

  6755. 		    error("bad stride: status = %d", err);
    6756. 

  6756. 		stride[j] = 1;
    6757. 

  6757. 	      }
    6758. 

  6758. 	    }
    6759. 

  6759. 	}
    6760. 

  6760. 	    /* Choose a random point dividing each dim into 2 parts */
    6761. 

  6761. 	    /* Put 2^rank (nslabs) slabs so defined */
    6762. 

  6762. 	nslabs = 1;
    6763. 

  6763. 	for (j = 0; j < var_rank[i]; j++) {
    6764. 

  6764. 	    mid[j] = roll( var_shape[i][j] );
    6765. 

  6765. 	    nslabs *= 2;
    6766. 

  6766. 	}
    6767. 

  6767. 	    /* bits of k determine whether to put lower or upper part of dim */
    6768. 

  6768. 	    /* choose random stride from 1 to edge */
    6769. 

  6769. 	for (k = 0; k < nslabs; k++) {
    6770. 

  6770. 	    nstarts = 1;
    6771. 

  6771. 	    for (j = 0; j < var_rank[i]; j++) {
    6772. 

  6772. 		if ((k >> j) & 1) {
    6773. 

  6773. 		    start[j] = 0;
    6774. 

  6774. 		    edge[j] = mid[j];
    6775. 

  6775. 		}else{
    6776. 

  6776. 		    start[j] = mid[j];
    6777. 

  6777. 		    edge[j] = var_shape[i][j] - mid[j];
    6778. 

  6778. 		}
    6779. 

  6779. 		sstride[j] = stride[j] = edge[j] > 0 ? 1+roll(edge[j]) : 1;
    6780. 

  6780. 		nstarts *= stride[j];
    6781. 

  6781. 	    }
    6782. 

  6782.             for (m = 0; m < nstarts; m++) {
    6783. 

  6783.                 err = toMixedBase(m, var_rank[i], sstride, index);
    6784. 

  6784.                 IF (err)
    6785. 

  6785.                     error("error in toMixedBase");
    6786. 

  6786.                 nels = 1;
    6787. 

  6787.                 for (j = 0; j < var_rank[i]; j++) {
    6788. 

  6788.                     count[j] = 1 + (edge[j] - index[j] - 1) / stride[j];
    6789. 

  6789.                     nels *= count[j];
    6790. 

  6790.                     index[j] += start[j];
    6791. 

  6791.                 }
    6792. 

  6792.                     /* Random choice of forward or backward */
    6793. 

  6793. /* TODO
    6794. 

  6794.                 if ( roll(2) ) {
    6795. 

  6795.                     for (j = 0; j < var_rank[i]; j++) {
    6796. 

  6796.                         index[j] += (count[j] - 1) * stride[j];
    6797. 

  6797.                         stride[j] = -stride[j];
    6798. 

  6798.                     }
    6799. 

  6799.                 }
    6800. 

  6800. */
    6801. 

  6801.                 if (var_rank[i] > 0) {
    6802. 

  6802.                     j = var_rank[i] - 1;
    6803. 

  6803.                     imap[j] = 1;
    6804. 

  6804.                     for (; j > 0; j--)
    6805. 

  6805.                         imap[j-1] = imap[j] * count[j];
    6806. 

  6806.                 }
    6807. 

  6807.                 for (allInExtRange = 1, j = 0; j < nels; j++) {
    6808. 

  6808.                     err = toMixedBase(j, var_rank[i], count, index2);
    6809. 

  6809.                     IF (err)
    6810. 

  6810.                         error("error in toMixedBase");
    6811. 

  6811.                     for (d = 0; d < var_rank[i]; d++)
    6812. 

  6812.                         index2[d] = index[d] + index2[d] * stride[d];
    6813. 

  6813.                     value[j] = hash_double(var_type[i], var_rank[i], index2,
    6814. 

  6814.                         NCT_DOUBLE);
    6815. 

  6815.                     allInExtRange = allInExtRange
    6816. 

  6816.                         && inRange3(value[j], var_type[i], NCT_DOUBLE);
    6817. 

  6817.                 }
    6818. 

  6818.                 if (var_rank[i] == 0 && i%2 == 0)
    6819. 

  6819.                     err = nc_put_varm_double(ncid,i,NULL,NULL,NULL,NULL,value);
    6820. 

  6820.                 else
    6821. 

  6821.                     err = nc_put_varm_double(ncid,i,index,count,stride,imap,value);
    6822. 

  6822.                 if (canConvert) {
    6823. 

  6823.                     if (allInExtRange) {
    6824. 

  6824.                         IF (err)
    6825. 

  6825.                             error("%s", nc_strerror(err));
    6826. 

  6826.                     } else {
    6827. 

  6827.                         IF (err != NC_ERANGE)
    6828. 

  6828.                             error("range error: status = %d", err);
    6829. 

  6829.                     }
    6830. 

  6830.                 } else {
    6831. 

  6831.                     IF (nels > 0 && err != NC_ECHAR)
    6832. 

  6832.                         error("wrong type: status = %d", err);
    6833. 

  6833. 		}
    6834. 

  6834. 	    }
    6835. 

  6835. 	}
    6836. 

  6836.     }
    6837. 

  6837. 

  6838.     err = nc_close(ncid);
    6839. 

  6839.     IF (err) 
    6840. 

  6840. 	error("nc_close: %s", nc_strerror(err));
    6841. 

  6841. 

  6842.     check_vars_double(scratch);
    6843. 

  6843. 

  6844.     err = remove(scratch);
    6845. 

  6845.     IF (err)
    6846. 

  6846.         error("remove of %s failed", scratch);
    6847. 

  6847. }
    6848. 

  6848. 

  6849. 

  6850. 

  6851. void
    6852. 

  6852. test_nc_put_att_text(void)
    6853. 

  6853. {
    6854. 

  6854.     int ncid;
    6855. 

  6855.     int i;
    6856. 

  6856.     int j;
    6857. 

  6857.     size_t k;
    6858. 

  6858.     int err;
    6859. 

  6859.     text value[MAX_NELS];
    6860. 

  6860. 

  6861.     err = nc_create(scratch, NC_NOCLOBBER, &ncid);
    6862. 

  6862.     IF (err) {
    6863. 

  6863.         error("nc_create: %s", nc_strerror(err));
    6864. 

  6864.         return;
    6865. 

  6865.     }
    6866. 

  6866.     def_dims(ncid);
    6867. 

  6867.     def_vars(ncid);
    6868. 

  6868. 

  6869.     {
    6870. 

  6870. 	const char *const tval = "value for bad name";
    6871. 

  6871. 	const size_t tval_len = strlen(tval);
    6872. 

  6872. 	
    6873. 

  6873. 	err = nc_put_att_text(ncid, 0, "", tval_len, tval);
    6874. 

  6874. 	IF (err != NC_EBADNAME)
    6875. 

  6875. 	   error("should be NC_EBADNAME: status = %d", err);
    6876. 

  6876.     }
    6877. 

  6877.     for (i = -1; i < NVARS; i++) {
    6878. 

  6878.         for (j = 0; j < NATTS(i); j++) {
    6879. 

  6879.             if (ATT_TYPE(i,j) == NC_CHAR) {
    6880. 

  6880. 		assert(ATT_LEN(i,j) <= MAX_NELS);
    6881. 

  6881. 		err = nc_put_att_text(BAD_ID, i, ATT_NAME(i,j), ATT_LEN(i,j), 
    6882. 

  6882. 		    value);
    6883. 

  6883. 		IF (err != NC_EBADID)
    6884. 

  6884. 		    error("bad ncid: status = %d", err);
    6885. 

  6885. 		err = nc_put_att_text(ncid, BAD_VARID, ATT_NAME(i,j), 
    6886. 

  6886. 		    ATT_LEN(i,j), value);
    6887. 

  6887. 		IF (err != NC_ENOTVAR)
    6888. 

  6888. 		    error("bad var id: status = %d", err);
    6889. 

  6889. 		for (k = 0; k < ATT_LEN(i,j); k++) {
    6890. 

  6890. 		    value[k] = hash(ATT_TYPE(i,j), -1, &k);
    6891. 

  6891. 		}
    6892. 

  6892. 		err = nc_put_att_text(ncid, i, ATT_NAME(i,j), 
    6893. 

  6893. 		    ATT_LEN(i,j), value);
    6894. 

  6894. 		IF (err) {
    6895. 

  6895. 		    error("%s", nc_strerror(err));
    6896. 

  6896. 		}
    6897. 

  6897. 	    }
    6898. 

  6898.         }
    6899. 

  6899.     }
    6900. 

  6900. 

  6901.     check_atts_text(ncid);
    6902. 

  6902.     err = nc_close(ncid);
    6903. 

  6903.     IF (err)
    6904. 

  6904.         error("nc_close: %s", nc_strerror(err));
    6905. 

  6905. 

  6906.     err = remove(scratch);
    6907. 

  6907.     IF (err)
    6908. 

  6908.         error("remove of %s failed", scratch);
    6909. 

  6909. }
    6910. 

  6910. 

  6911. 

  6912. 

  6913. void
    6914. 

  6914. test_nc_put_att_uchar(void)
    6915. 

  6915. {
    6916. 

  6916.     int ncid;
    6917. 

  6917.     int i;
    6918. 

  6918.     int j;
    6919. 

  6919.     size_t k;
    6920. 

  6920.     int err;
    6921. 

  6921.     uchar value[MAX_NELS];
    6922. 

  6922.     int allInExtRange;  /* all values within external range? */
    6923. 

  6923. 

  6924.     err = nc_create(scratch, NC_NOCLOBBER, &ncid);
    6925. 

  6925.     IF (err) {
    6926. 

  6926.         error("nc_create: %s", nc_strerror(err));
    6927. 

  6927.         return;
    6928. 

  6928.     }
    6929. 

  6929.     def_dims(ncid);
    6930. 

  6930.     def_vars(ncid);
    6931. 

  6931. 

  6932.     for (i = -1; i < NVARS; i++) {
    6933. 

  6933.         for (j = 0; j < NATTS(i); j++) {
    6934. 

  6934.             if (!(ATT_TYPE(i,j) == NC_CHAR)) {
    6935. 

  6935. 		assert(ATT_LEN(i,j) <= MAX_NELS);
    6936. 

  6936. 		err = nc_put_att_uchar(BAD_ID, i, ATT_NAME(i,j), ATT_TYPE(i,j), 
    6937. 

  6937. 		    ATT_LEN(i,j), value);
    6938. 

  6938. 		IF (err != NC_EBADID)
    6939. 

  6939. 		    error("bad ncid: status = %d", err);
    6940. 

  6940. 		err = nc_put_att_uchar(ncid, BAD_VARID, ATT_NAME(i,j), 
    6941. 

  6941. 		    ATT_TYPE(i,j), ATT_LEN(i,j), value);
    6942. 

  6942. 		IF (err != NC_ENOTVAR)
    6943. 

  6943. 		    error("bad var id: status = %d", err);
    6944. 

  6944. 		err = nc_put_att_uchar(ncid, i, ATT_NAME(i,j), BAD_TYPE, 
    6945. 

  6945. 		    ATT_LEN(i,j), value);
    6946. 

  6946. 		IF (err != NC_EBADTYPE)
    6947. 

  6947. 		    error("bad type: status = %d", err);
    6948. 

  6948. 		for (allInExtRange = 1, k = 0; k < ATT_LEN(i,j); k++) {
    6949. 

  6949. 		    value[k] = hash_uchar(ATT_TYPE(i,j), -1, &k, NCT_UCHAR);
    6950. 

  6950. 		    allInExtRange = allInExtRange
    6951. 

  6951. 			&& inRange3(value[k], ATT_TYPE(i,j), NCT_UCHAR);
    6952. 

  6952. 		}
    6953. 

  6953. 		err = nc_put_att_uchar(ncid, i, ATT_NAME(i,j), ATT_TYPE(i,j),
    6954. 

  6954. 		    ATT_LEN(i,j), value);
    6955. 

  6955. 		if (allInExtRange) {
    6956. 

  6956. 		    IF (err)
    6957. 

  6957. 			error("%s", nc_strerror(err));
    6958. 

  6958. 		} else {
    6959. 

  6959.                     IF (err != NC_ERANGE)
    6960. 

  6960.                         error("range error: status = %d", err);
    6961. 

  6961. 		}
    6962. 

  6962. 	    }
    6963. 

  6963.         }
    6964. 

  6964.     }
    6965. 

  6965. 

  6966.     check_atts_uchar(ncid);
    6967. 

  6967.     err = nc_close(ncid);
    6968. 

  6968.     IF (err)
    6969. 

  6969.         error("nc_close: %s", nc_strerror(err));
    6970. 

  6970. 

  6971.     err = remove(scratch);
    6972. 

  6972.     IF (err)
    6973. 

  6973.         error("remove of %s failed", scratch);
    6974. 

  6974. }
    6975. 

  6975. 

  6976. void
    6977. 

  6977. test_nc_put_att_schar(void)
    6978. 

  6978. {
    6979. 

  6979.     int ncid;
    6980. 

  6980.     int i;
    6981. 

  6981.     int j;
    6982. 

  6982.     size_t k;
    6983. 

  6983.     int err;
    6984. 

  6984.     schar value[MAX_NELS];
    6985. 

  6985.     int allInExtRange;  /* all values within external range? */
    6986. 

  6986. 

  6987.     err = nc_create(scratch, NC_NOCLOBBER, &ncid);
    6988. 

  6988.     IF (err) {
    6989. 

  6989.         error("nc_create: %s", nc_strerror(err));
    6990. 

  6990.         return;
    6991. 

  6991.     }
    6992. 

  6992.     def_dims(ncid);
    6993. 

  6993.     def_vars(ncid);
    6994. 

  6994. 

  6995.     for (i = -1; i < NVARS; i++) {
    6996. 

  6996.         for (j = 0; j < NATTS(i); j++) {
    6997. 

  6997.             if (!(ATT_TYPE(i,j) == NC_CHAR)) {
    6998. 

  6998. 		assert(ATT_LEN(i,j) <= MAX_NELS);
    6999. 

  6999. 		err = nc_put_att_schar(BAD_ID, i, ATT_NAME(i,j), ATT_TYPE(i,j), 
    7000. 

  7000. 		    ATT_LEN(i,j), value);
    7001. 

  7001. 		IF (err != NC_EBADID)
    7002. 

  7002. 		    error("bad ncid: status = %d", err);
    7003. 

  7003. 		err = nc_put_att_schar(ncid, BAD_VARID, ATT_NAME(i,j), 
    7004. 

  7004. 		    ATT_TYPE(i,j), ATT_LEN(i,j), value);
    7005. 

  7005. 		IF (err != NC_ENOTVAR)
    7006. 

  7006. 		    error("bad var id: status = %d", err);
    7007. 

  7007. 		err = nc_put_att_schar(ncid, i, ATT_NAME(i,j), BAD_TYPE, 
    7008. 

  7008. 		    ATT_LEN(i,j), value);
    7009. 

  7009. 		IF (err != NC_EBADTYPE)
    7010. 

  7010. 		    error("bad type: status = %d", err);
    7011. 

  7011. 		for (allInExtRange = 1, k = 0; k < ATT_LEN(i,j); k++) {
    7012. 

  7012. 		    value[k] = hash_schar(ATT_TYPE(i,j), -1, &k, NCT_SCHAR);
    7013. 

  7013. 		    allInExtRange = allInExtRange
    7014. 

  7014. 			&& inRange3(value[k], ATT_TYPE(i,j), NCT_SCHAR);
    7015. 

  7015. 		}
    7016. 

  7016. 		err = nc_put_att_schar(ncid, i, ATT_NAME(i,j), ATT_TYPE(i,j),
    7017. 

  7017. 		    ATT_LEN(i,j), value);
    7018. 

  7018. 		if (allInExtRange) {
    7019. 

  7019. 		    IF (err)
    7020. 

  7020. 			error("%s", nc_strerror(err));
    7021. 

  7021. 		} else {
    7022. 

  7022.                     IF (err != NC_ERANGE)
    7023. 

  7023.                         error("range error: status = %d", err);
    7024. 

  7024. 		}
    7025. 

  7025. 	    }
    7026. 

  7026.         }
    7027. 

  7027.     }
    7028. 

  7028. 

  7029.     check_atts_schar(ncid);
    7030. 

  7030.     err = nc_close(ncid);
    7031. 

  7031.     IF (err)
    7032. 

  7032.         error("nc_close: %s", nc_strerror(err));
    7033. 

  7033. 

  7034.     err = remove(scratch);
    7035. 

  7035.     IF (err)
    7036. 

  7036.         error("remove of %s failed", scratch);
    7037. 

  7037. }
    7038. 

  7038. 

  7039. void
    7040. 

  7040. test_nc_put_att_short(void)
    7041. 

  7041. {
    7042. 

  7042.     int ncid;
    7043. 

  7043.     int i;
    7044. 

  7044.     int j;
    7045. 

  7045.     size_t k;
    7046. 

  7046.     int err;
    7047. 

  7047.     short value[MAX_NELS];
    7048. 

  7048.     int allInExtRange;  /* all values within external range? */
    7049. 

  7049. 

  7050.     err = nc_create(scratch, NC_NOCLOBBER, &ncid);
    7051. 

  7051.     IF (err) {
    7052. 

  7052.         error("nc_create: %s", nc_strerror(err));
    7053. 

  7053.         return;
    7054. 

  7054.     }
    7055. 

  7055.     def_dims(ncid);
    7056. 

  7056.     def_vars(ncid);
    7057. 

  7057. 

  7058.     for (i = -1; i < NVARS; i++) {
    7059. 

  7059.         for (j = 0; j < NATTS(i); j++) {
    7060. 

  7060.             if (!(ATT_TYPE(i,j) == NC_CHAR)) {
    7061. 

  7061. 		assert(ATT_LEN(i,j) <= MAX_NELS);
    7062. 

  7062. 		err = nc_put_att_short(BAD_ID, i, ATT_NAME(i,j), ATT_TYPE(i,j), 
    7063. 

  7063. 		    ATT_LEN(i,j), value);
    7064. 

  7064. 		IF (err != NC_EBADID)
    7065. 

  7065. 		    error("bad ncid: status = %d", err);
    7066. 

  7066. 		err = nc_put_att_short(ncid, BAD_VARID, ATT_NAME(i,j), 
    7067. 

  7067. 		    ATT_TYPE(i,j), ATT_LEN(i,j), value);
    7068. 

  7068. 		IF (err != NC_ENOTVAR)
    7069. 

  7069. 		    error("bad var id: status = %d", err);
    7070. 

  7070. 		err = nc_put_att_short(ncid, i, ATT_NAME(i,j), BAD_TYPE, 
    7071. 

  7071. 		    ATT_LEN(i,j), value);
    7072. 

  7072. 		IF (err != NC_EBADTYPE)
    7073. 

  7073. 		    error("bad type: status = %d", err);
    7074. 

  7074. 		for (allInExtRange = 1, k = 0; k < ATT_LEN(i,j); k++) {
    7075. 

  7075. 		    value[k] = hash_short(ATT_TYPE(i,j), -1, &k, NCT_SHORT);
    7076. 

  7076. 		    allInExtRange = allInExtRange
    7077. 

  7077. 			&& inRange3(value[k], ATT_TYPE(i,j), NCT_SHORT);
    7078. 

  7078. 		}
    7079. 

  7079. 		err = nc_put_att_short(ncid, i, ATT_NAME(i,j), ATT_TYPE(i,j),
    7080. 

  7080. 		    ATT_LEN(i,j), value);
    7081. 

  7081. 		if (allInExtRange) {
    7082. 

  7082. 		    IF (err)
    7083. 

  7083. 			error("%s", nc_strerror(err));
    7084. 

  7084. 		} else {
    7085. 

  7085.                     IF (err != NC_ERANGE)
    7086. 

  7086.                         error("range error: status = %d", err);
    7087. 

  7087. 		}
    7088. 

  7088. 	    }
    7089. 

  7089.         }
    7090. 

  7090.     }
    7091. 

  7091. 

  7092.     check_atts_short(ncid);
    7093. 

  7093.     err = nc_close(ncid);
    7094. 

  7094.     IF (err)
    7095. 

  7095.         error("nc_close: %s", nc_strerror(err));
    7096. 

  7096. 

  7097.     err = remove(scratch);
    7098. 

  7098.     IF (err)
    7099. 

  7099.         error("remove of %s failed", scratch);
    7100. 

  7100. }
    7101. 

  7101. 

  7102. void
    7103. 

  7103. test_nc_put_att_int(void)
    7104. 

  7104. {
    7105. 

  7105.     int ncid;
    7106. 

  7106.     int i;
    7107. 

  7107.     int j;
    7108. 

  7108.     size_t k;
    7109. 

  7109.     int err;
    7110. 

  7110.     int value[MAX_NELS];
    7111. 

  7111.     int allInExtRange;  /* all values within external range? */
    7112. 

  7112. 

  7113.     err = nc_create(scratch, NC_NOCLOBBER, &ncid);
    7114. 

  7114.     IF (err) {
    7115. 

  7115.         error("nc_create: %s", nc_strerror(err));
    7116. 

  7116.         return;
    7117. 

  7117.     }
    7118. 

  7118.     def_dims(ncid);
    7119. 

  7119.     def_vars(ncid);
    7120. 

  7120. 

  7121.     for (i = -1; i < NVARS; i++) {
    7122. 

  7122.         for (j = 0; j < NATTS(i); j++) {
    7123. 

  7123.             if (!(ATT_TYPE(i,j) == NC_CHAR)) {
    7124. 

  7124. 		assert(ATT_LEN(i,j) <= MAX_NELS);
    7125. 

  7125. 		err = nc_put_att_int(BAD_ID, i, ATT_NAME(i,j), ATT_TYPE(i,j), 
    7126. 

  7126. 		    ATT_LEN(i,j), value);
    7127. 

  7127. 		IF (err != NC_EBADID)
    7128. 

  7128. 		    error("bad ncid: status = %d", err);
    7129. 

  7129. 		err = nc_put_att_int(ncid, BAD_VARID, ATT_NAME(i,j), 
    7130. 

  7130. 		    ATT_TYPE(i,j), ATT_LEN(i,j), value);
    7131. 

  7131. 		IF (err != NC_ENOTVAR)
    7132. 

  7132. 		    error("bad var id: status = %d", err);
    7133. 

  7133. 		err = nc_put_att_int(ncid, i, ATT_NAME(i,j), BAD_TYPE, 
    7134. 

  7134. 		    ATT_LEN(i,j), value);
    7135. 

  7135. 		IF (err != NC_EBADTYPE)
    7136. 

  7136. 		    error("bad type: status = %d", err);
    7137. 

  7137. 		for (allInExtRange = 1, k = 0; k < ATT_LEN(i,j); k++) {
    7138. 

  7138. 		    value[k] = hash_int(ATT_TYPE(i,j), -1, &k, NCT_INT);
    7139. 

  7139. 		    allInExtRange = allInExtRange
    7140. 

  7140. 			&& inRange3(value[k], ATT_TYPE(i,j), NCT_INT);
    7141. 

  7141. 		}
    7142. 

  7142. 		err = nc_put_att_int(ncid, i, ATT_NAME(i,j), ATT_TYPE(i,j),
    7143. 

  7143. 		    ATT_LEN(i,j), value);
    7144. 

  7144. 		if (allInExtRange) {
    7145. 

  7145. 		    IF (err)
    7146. 

  7146. 			error("%s", nc_strerror(err));
    7147. 

  7147. 		} else {
    7148. 

  7148.                     IF (err != NC_ERANGE)
    7149. 

  7149.                         error("range error: status = %d", err);
    7150. 

  7150. 		}
    7151. 

  7151. 	    }
    7152. 

  7152.         }
    7153. 

  7153.     }
    7154. 

  7154. 

  7155.     check_atts_int(ncid);
    7156. 

  7156.     err = nc_close(ncid);
    7157. 

  7157.     IF (err)
    7158. 

  7158.         error("nc_close: %s", nc_strerror(err));
    7159. 

  7159. 

  7160.     err = remove(scratch);
    7161. 

  7161.     IF (err)
    7162. 

  7162.         error("remove of %s failed", scratch);
    7163. 

  7163. }
    7164. 

  7164. 

  7165. void
    7166. 

  7166. test_nc_put_att_long(void)
    7167. 

  7167. {
    7168. 

  7168.     int ncid;
    7169. 

  7169.     int i;
    7170. 

  7170.     int j;
    7171. 

  7171.     size_t k;
    7172. 

  7172.     int err;
    7173. 

  7173.     long value[MAX_NELS];
    7174. 

  7174.     int allInExtRange;  /* all values within external range? */
    7175. 

  7175. 

  7176.     err = nc_create(scratch, NC_NOCLOBBER, &ncid);
    7177. 

  7177.     IF (err) {
    7178. 

  7178.         error("nc_create: %s", nc_strerror(err));
    7179. 

  7179.         return;
    7180. 

  7180.     }
    7181. 

  7181.     def_dims(ncid);
    7182. 

  7182.     def_vars(ncid);
    7183. 

  7183. 

  7184.     for (i = -1; i < NVARS; i++) {
    7185. 

  7185.         for (j = 0; j < NATTS(i); j++) {
    7186. 

  7186.             if (!(ATT_TYPE(i,j) == NC_CHAR)) {
    7187. 

  7187. 		assert(ATT_LEN(i,j) <= MAX_NELS);
    7188. 

  7188. 		err = nc_put_att_long(BAD_ID, i, ATT_NAME(i,j), ATT_TYPE(i,j), 
    7189. 

  7189. 		    ATT_LEN(i,j), value);
    7190. 

  7190. 		IF (err != NC_EBADID)
    7191. 

  7191. 		    error("bad ncid: status = %d", err);
    7192. 

  7192. 		err = nc_put_att_long(ncid, BAD_VARID, ATT_NAME(i,j), 
    7193. 

  7193. 		    ATT_TYPE(i,j), ATT_LEN(i,j), value);
    7194. 

  7194. 		IF (err != NC_ENOTVAR)
    7195. 

  7195. 		    error("bad var id: status = %d", err);
    7196. 

  7196. 		err = nc_put_att_long(ncid, i, ATT_NAME(i,j), BAD_TYPE, 
    7197. 

  7197. 		    ATT_LEN(i,j), value);
    7198. 

  7198. 		IF (err != NC_EBADTYPE)
    7199. 

  7199. 		    error("bad type: status = %d", err);
    7200. 

  7200. 		for (allInExtRange = 1, k = 0; k < ATT_LEN(i,j); k++) {
    7201. 

  7201. 		    value[k] = hash_long(ATT_TYPE(i,j), -1, &k, NCT_LONG);
    7202. 

  7202. 		    allInExtRange = allInExtRange
    7203. 

  7203. 			&& inRange3(value[k], ATT_TYPE(i,j), NCT_LONG);
    7204. 

  7204. 		}
    7205. 

  7205. 		err = nc_put_att_long(ncid, i, ATT_NAME(i,j), ATT_TYPE(i,j),
    7206. 

  7206. 		    ATT_LEN(i,j), value);
    7207. 

  7207. 		if (allInExtRange) {
    7208. 

  7208. 		    IF (err)
    7209. 

  7209. 			error("%s", nc_strerror(err));
    7210. 

  7210. 		} else {
    7211. 

  7211.                     IF (err != NC_ERANGE)
    7212. 

  7212.                         error("range error: status = %d", err);
    7213. 

  7213. 		}
    7214. 

  7214. 	    }
    7215. 

  7215.         }
    7216. 

  7216.     }
    7217. 

  7217. 

  7218.     check_atts_long(ncid);
    7219. 

  7219.     err = nc_close(ncid);
    7220. 

  7220.     IF (err)
    7221. 

  7221.         error("nc_close: %s", nc_strerror(err));
    7222. 

  7222. 

  7223.     err = remove(scratch);
    7224. 

  7224.     IF (err)
    7225. 

  7225.         error("remove of %s failed", scratch);
    7226. 

  7226. }
    7227. 

  7227. 

  7228. void
    7229. 

  7229. test_nc_put_att_float(void)
    7230. 

  7230. {
    7231. 

  7231.     int ncid;
    7232. 

  7232.     int i;
    7233. 

  7233.     int j;
    7234. 

  7234.     size_t k;
    7235. 

  7235.     int err;
    7236. 

  7236.     float value[MAX_NELS];
    7237. 

  7237.     int allInExtRange;  /* all values within external range? */
    7238. 

  7238. 

  7239.     err = nc_create(scratch, NC_NOCLOBBER, &ncid);
    7240. 

  7240.     IF (err) {
    7241. 

  7241.         error("nc_create: %s", nc_strerror(err));
    7242. 

  7242.         return;
    7243. 

  7243.     }
    7244. 

  7244.     def_dims(ncid);
    7245. 

  7245.     def_vars(ncid);
    7246. 

  7246. 

  7247.     for (i = -1; i < NVARS; i++) {
    7248. 

  7248.         for (j = 0; j < NATTS(i); j++) {
    7249. 

  7249.             if (!(ATT_TYPE(i,j) == NC_CHAR)) {
    7250. 

  7250. 		assert(ATT_LEN(i,j) <= MAX_NELS);
    7251. 

  7251. 		err = nc_put_att_float(BAD_ID, i, ATT_NAME(i,j), ATT_TYPE(i,j), 
    7252. 

  7252. 		    ATT_LEN(i,j), value);
    7253. 

  7253. 		IF (err != NC_EBADID)
    7254. 

  7254. 		    error("bad ncid: status = %d", err);
    7255. 

  7255. 		err = nc_put_att_float(ncid, BAD_VARID, ATT_NAME(i,j), 
    7256. 

  7256. 		    ATT_TYPE(i,j), ATT_LEN(i,j), value);
    7257. 

  7257. 		IF (err != NC_ENOTVAR)
    7258. 

  7258. 		    error("bad var id: status = %d", err);
    7259. 

  7259. 		err = nc_put_att_float(ncid, i, ATT_NAME(i,j), BAD_TYPE, 
    7260. 

  7260. 		    ATT_LEN(i,j), value);
    7261. 

  7261. 		IF (err != NC_EBADTYPE)
    7262. 

  7262. 		    error("bad type: status = %d", err);
    7263. 

  7263. 		for (allInExtRange = 1, k = 0; k < ATT_LEN(i,j); k++) {
    7264. 

  7264. 		    value[k] = hash_float(ATT_TYPE(i,j), -1, &k, NCT_FLOAT);
    7265. 

  7265. 		    allInExtRange = allInExtRange
    7266. 

  7266. 			&& inRange3(value[k], ATT_TYPE(i,j), NCT_FLOAT);
    7267. 

  7267. 		}
    7268. 

  7268. 		err = nc_put_att_float(ncid, i, ATT_NAME(i,j), ATT_TYPE(i,j),
    7269. 

  7269. 		    ATT_LEN(i,j), value);
    7270. 

  7270. 		if (allInExtRange) {
    7271. 

  7271. 		    IF (err)
    7272. 

  7272. 			error("%s", nc_strerror(err));
    7273. 

  7273. 		} else {
    7274. 

  7274.                     IF (err != NC_ERANGE)
    7275. 

  7275.                         error("range error: status = %d", err);
    7276. 

  7276. 		}
    7277. 

  7277. 	    }
    7278. 

  7278.         }
    7279. 

  7279.     }
    7280. 

  7280. 

  7281.     check_atts_float(ncid);
    7282. 

  7282.     err = nc_close(ncid);
    7283. 

  7283.     IF (err)
    7284. 

  7284.         error("nc_close: %s", nc_strerror(err));
    7285. 

  7285. 

  7286.     err = remove(scratch);
    7287. 

  7287.     IF (err)
    7288. 

  7288.         error("remove of %s failed", scratch);
    7289. 

  7289. }
    7290. 

  7290. 

  7291. void
    7292. 

  7292. test_nc_put_att_double(void)
    7293. 

  7293. {
    7294. 

  7294.     int ncid;
    7295. 

  7295.     int i;
    7296. 

  7296.     int j;
    7297. 

  7297.     size_t k;
    7298. 

  7298.     int err;
    7299. 

  7299.     double value[MAX_NELS];
    7300. 

  7300.     int allInExtRange;  /* all values within external range? */
    7301. 

  7301. 

  7302.     err = nc_create(scratch, NC_NOCLOBBER, &ncid);
    7303. 

  7303.     IF (err) {
    7304. 

  7304.         error("nc_create: %s", nc_strerror(err));
    7305. 

  7305.         return;
    7306. 

  7306.     }
    7307. 

  7307.     def_dims(ncid);
    7308. 

  7308.     def_vars(ncid);
    7309. 

  7309. 

  7310.     for (i = -1; i < NVARS; i++) {
    7311. 

  7311.         for (j = 0; j < NATTS(i); j++) {
    7312. 

  7312.             if (!(ATT_TYPE(i,j) == NC_CHAR)) {
    7313. 

  7313. 		assert(ATT_LEN(i,j) <= MAX_NELS);
    7314. 

  7314. 		err = nc_put_att_double(BAD_ID, i, ATT_NAME(i,j), ATT_TYPE(i,j), 
    7315. 

  7315. 		    ATT_LEN(i,j), value);
    7316. 

  7316. 		IF (err != NC_EBADID)
    7317. 

  7317. 		    error("bad ncid: status = %d", err);
    7318. 

  7318. 		err = nc_put_att_double(ncid, BAD_VARID, ATT_NAME(i,j), 
    7319. 

  7319. 		    ATT_TYPE(i,j), ATT_LEN(i,j), value);
    7320. 

  7320. 		IF (err != NC_ENOTVAR)
    7321. 

  7321. 		    error("bad var id: status = %d", err);
    7322. 

  7322. 		err = nc_put_att_double(ncid, i, ATT_NAME(i,j), BAD_TYPE, 
    7323. 

  7323. 		    ATT_LEN(i,j), value);
    7324. 

  7324. 		IF (err != NC_EBADTYPE)
    7325. 

  7325. 		    error("bad type: status = %d", err);
    7326. 

  7326. 		for (allInExtRange = 1, k = 0; k < ATT_LEN(i,j); k++) {
    7327. 

  7327. 		    value[k] = hash_double(ATT_TYPE(i,j), -1, &k, NCT_DOUBLE);
    7328. 

  7328. 		    allInExtRange = allInExtRange
    7329. 

  7329. 			&& inRange3(value[k], ATT_TYPE(i,j), NCT_DOUBLE);
    7330. 

  7330. 		}
    7331. 

  7331. 		err = nc_put_att_double(ncid, i, ATT_NAME(i,j), ATT_TYPE(i,j),
    7332. 

  7332. 		    ATT_LEN(i,j), value);
    7333. 

  7333. 		if (allInExtRange) {
    7334. 

  7334. 		    IF (err)
    7335. 

  7335. 			error("%s", nc_strerror(err));
    7336. 

  7336. 		} else {
    7337. 

  7337.                     IF (err != NC_ERANGE)
    7338. 

  7338.                         error("range error: status = %d", err);
    7339. 

  7339. 		}
    7340. 

  7340. 	    }
    7341. 

  7341.         }
    7342. 

  7342.     }
    7343. 

  7343. 

  7344.     check_atts_double(ncid);
    7345. 

  7345.     err = nc_close(ncid);
    7346. 

  7346.     IF (err)
    7347. 

  7347.         error("nc_close: %s", nc_strerror(err));
    7348. 

  7348. 

  7349.     err = remove(scratch);
    7350. 

  7350.     IF (err)
    7351. 

  7351.         error("remove of %s failed", scratch);
    7352. 

  7352. }
    7353.