Mercurial > hg > octave-lyh

comparison src/ov-range.cc @ 4815:2eb844b27953

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-03-04 00:14:44 by jwe]
author jwe
date Thu, 04 Mar 2004 00:14:44 +0000
parents d2038299c683
children 81f78a2ff8a6
comparison
equal deleted inserted replaced
4814:495e9df75836 4815:2eb844b27953
381 { 381 {
382 hsize_t dimens[3]; 382 hsize_t dimens[3];
383 hid_t space_hid = -1, type_hid = -1, data_hid = -1; 383 hid_t space_hid = -1, type_hid = -1, data_hid = -1;
384 bool retval = true; 384 bool retval = true;
385 385
386 space_hid = H5Screate_simple (0, dimens, (hsize_t*) 0); 386 space_hid = H5Screate_simple (0, dimens, 0);
387 if (space_hid < 0) return false; 387 if (space_hid < 0) return false;
388 388
389 type_hid = hdf5_make_range_type (H5T_NATIVE_DOUBLE); 389 type_hid = hdf5_make_range_type (H5T_NATIVE_DOUBLE);
390 if (type_hid < 0) 390 if (type_hid < 0)
391 { 391 {
406 range_vals[0] = r.base (); 406 range_vals[0] = r.base ();
407 range_vals[1] = r.limit (); 407 range_vals[1] = r.limit ();
408 range_vals[2] = r.inc (); 408 range_vals[2] = r.inc ();
409 409
410 retval = H5Dwrite (data_hid, type_hid, H5S_ALL, H5S_ALL, H5P_DEFAULT, 410 retval = H5Dwrite (data_hid, type_hid, H5S_ALL, H5S_ALL, H5P_DEFAULT,
411 (void*) range_vals) >= 0; 411 range_vals) >= 0;
412 412
413 H5Dclose (data_hid); 413 H5Dclose (data_hid);
414 H5Tclose (type_hid); 414 H5Tclose (type_hid);
415 H5Sclose (space_hid); 415 H5Sclose (space_hid);
416 return retval; 416 return retval;
444 return false; 444 return false;
445 } 445 }
446 446
447 double rangevals[3]; 447 double rangevals[3];
448 if (H5Dread (data_hid, range_type, H5S_ALL, H5S_ALL, H5P_DEFAULT, 448 if (H5Dread (data_hid, range_type, H5S_ALL, H5S_ALL, H5P_DEFAULT,
449 (void *) rangevals) >= 0) 449 rangevals) >= 0)
450 { 450 {
451 retval = true; 451 retval = true;
452 Range r (rangevals[0], rangevals[1], rangevals[2]); 452 Range r (rangevals[0], rangevals[1], rangevals[2]);
453 range = r; 453 range = r;
454 } 454 }