Mercurial > octave

comparison src/ov-bool.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 e95c86d48732
children 81f78a2ff8a6
comparison
equal deleted inserted replaced
4814:495e9df75836 4815:2eb844b27953
168 { 168 {
169 hsize_t dimens[3]; 169 hsize_t dimens[3];
170 hid_t space_hid = -1, data_hid = -1; 170 hid_t space_hid = -1, data_hid = -1;
171 bool retval = true; 171 bool retval = true;
172 172
173 space_hid = H5Screate_simple (0, dimens, (hsize_t*) 0); 173 space_hid = H5Screate_simple (0, dimens, 0);
174 if (space_hid < 0) return false; 174 if (space_hid < 0) return false;
175 175
176 data_hid = H5Dcreate (loc_id, name, H5T_NATIVE_DOUBLE, space_hid, 176 data_hid = H5Dcreate (loc_id, name, H5T_NATIVE_DOUBLE, space_hid,
177 H5P_DEFAULT); 177 H5P_DEFAULT);
178 if (data_hid < 0) 178 if (data_hid < 0)
181 return false; 181 return false;
182 } 182 }
183 183
184 double tmp = double_value (); 184 double tmp = double_value ();
185 retval = H5Dwrite (data_hid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, 185 retval = H5Dwrite (data_hid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL,
186 H5P_DEFAULT, (void*) &tmp) >= 0; 186 H5P_DEFAULT, &tmp) >= 0;
187 187
188 H5Dclose (data_hid); 188 H5Dclose (data_hid);
189 H5Sclose (space_hid); 189 H5Sclose (space_hid);
190 return retval; 190 return retval;
191 } 191 }
205 return false; 205 return false;
206 } 206 }
207 207
208 double dtmp; 208 double dtmp;
209 if (H5Dread (data_hid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL, 209 if (H5Dread (data_hid, H5T_NATIVE_DOUBLE, H5S_ALL, H5S_ALL,
210 H5P_DEFAULT, (void *) &dtmp) < 0) 210 H5P_DEFAULT, &dtmp) < 0)
211 { 211 {
212 H5Dclose (data_hid); 212 H5Dclose (data_hid);
213 return false; 213 return false;
214 } 214 }
215 215