Mercurial > octave-nkf

comparison src/ov-bool-mat.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 b0d6da24caeb
children 81f78a2ff8a6
comparison
equal deleted inserted replaced
4814:495e9df75836 4815:2eb844b27953
357 357
358 // Octave uses column-major, while HDF5 uses row-major ordering 358 // Octave uses column-major, while HDF5 uses row-major ordering
359 for (int i = 0; i < rank; i++) 359 for (int i = 0; i < rank; i++)
360 hdims[i] = d (rank-i-1); 360 hdims[i] = d (rank-i-1);
361 361
362 space_hid = H5Screate_simple (rank, hdims, (hsize_t*) 0); 362 space_hid = H5Screate_simple (rank, hdims, 0);
363 if (space_hid < 0) return false; 363 if (space_hid < 0) return false;
364 364
365 data_hid = H5Dcreate (loc_id, name, H5T_NATIVE_HBOOL, space_hid, 365 data_hid = H5Dcreate (loc_id, name, H5T_NATIVE_HBOOL, space_hid,
366 H5P_DEFAULT); 366 H5P_DEFAULT);
367 if (data_hid < 0) 367 if (data_hid < 0)
376 376
377 for (int i = 0; i < nel; i++) 377 for (int i = 0; i < nel; i++)
378 htmp[i] = mtmp[i]; 378 htmp[i] = mtmp[i];
379 379
380 retval = H5Dwrite (data_hid, H5T_NATIVE_HBOOL, H5S_ALL, H5S_ALL, 380 retval = H5Dwrite (data_hid, H5T_NATIVE_HBOOL, H5S_ALL, H5S_ALL,
381 H5P_DEFAULT, (void*) htmp) >= 0; 381 H5P_DEFAULT, htmp) >= 0;
382 382
383 H5Dclose (data_hid); 383 H5Dclose (data_hid);
384 H5Sclose (space_hid); 384 H5Sclose (space_hid);
385 return retval; 385 return retval;
386 } 386 }
421 dv(1) = hdims[0]; 421 dv(1) = hdims[0];
422 } 422 }
423 else 423 else
424 { 424 {
425 dv.resize (rank); 425 dv.resize (rank);
426 for (int i = 0, j = rank - 1; i < (int)rank; i++, j--) 426 for (hsize_t i = 0, j = rank - 1; i < rank; i++, j--)
427 dv(j) = hdims[i]; 427 dv(j) = hdims[i];
428 } 428 }
429 429
430 int nel = dv.numel (); 430 int nel = dv.numel ();
431 hbool_t htmp[nel]; 431 hbool_t htmp[nel];
432 if (H5Dread (data_hid, H5T_NATIVE_HBOOL, H5S_ALL, H5S_ALL, 432 if (H5Dread (data_hid, H5T_NATIVE_HBOOL, H5S_ALL, H5S_ALL,
433 H5P_DEFAULT, (void *) htmp) >= 0) 433 H5P_DEFAULT, htmp) >= 0)
434 { 434 {
435 retval = true; 435 retval = true;
436 436
437 boolNDArray btmp (dv); 437 boolNDArray btmp (dv);
438 for (int i = 0; i < nel; i++) 438 for (int i = 0; i < nel; i++)