Mercurial > hg > octave-thorsten

comparison src/ov-range.cc @ 4792:d2038299c683

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-20 18:44:43 by jwe]
author jwe
date Fri, 20 Feb 2004 18:44:43 +0000
parents e95c86d48732
children 2eb844b27953
comparison
equal deleted inserted replaced
4791:62f2fb593455 4792:d2038299c683
377 377
378 bool 378 bool
379 octave_range::save_hdf5 (hid_t loc_id, const char *name, 379 octave_range::save_hdf5 (hid_t loc_id, const char *name,
380 bool /* save_as_floats */) 380 bool /* save_as_floats */)
381 { 381 {
382 hsize_t dims[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, dims, (hsize_t*) 0); 386 space_hid = H5Screate_simple (0, dimens, (hsize_t*) 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 {