Mercurial > octave-nkf

comparison src/ov-complex.cc @ 4944:44046bbaa52c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-08-31 05:30:46 by jwe]
author jwe
date Tue, 31 Aug 2004 05:30:47 +0000
parents 81f78a2ff8a6
children e35b034d3523
comparison
equal deleted inserted replaced
4943:1a499d0c58f5 4944:44046bbaa52c
31 #include <iostream> 31 #include <iostream>
32 32
33 #include "lo-ieee.h" 33 #include "lo-ieee.h"
34 34
35 #include "oct-obj.h" 35 #include "oct-obj.h"
36 #include "oct-stream.h"
36 #include "ops.h" 37 #include "ops.h"
37 #include "ov-complex.h" 38 #include "ov-complex.h"
38 #include "ov-base.h" 39 #include "ov-base.h"
39 #include "ov-base-scalar.h" 40 #include "ov-base-scalar.h"
40 #include "ov-base-scalar.cc" 41 #include "ov-base-scalar.cc"
234 scalar = ctmp; 235 scalar = ctmp;
235 return true; 236 return true;
236 } 237 }
237 238
238 #if defined (HAVE_HDF5) 239 #if defined (HAVE_HDF5)
240
239 bool 241 bool
240 octave_complex::save_hdf5 (hid_t loc_id, const char *name, 242 octave_complex::save_hdf5 (hid_t loc_id, const char *name,
241 bool /* save_as_floats */) 243 bool /* save_as_floats */)
242 { 244 {
243 hsize_t dimens[3]; 245 hsize_t dimens[3];
315 H5Sclose (space_id); 317 H5Sclose (space_id);
316 H5Dclose (data_hid); 318 H5Dclose (data_hid);
317 319
318 return retval; 320 return retval;
319 } 321 }
322
320 #endif 323 #endif
321 324
322 /* 325 /*
323 ;;; Local Variables: *** 326 ;;; Local Variables: ***
324 ;;; mode: C++ *** 327 ;;; mode: C++ ***