|
 |
7cf8aef |
--- mgl/mgl_data_io.cpp 2009-07-02 01:49:42.000000000 +1000
|
|
|
7cf8aef |
+++ mgl/mgl_data_io.cpp.new 2009-07-25 12:16:55.000000000 +1000
|
|
|
7cf8aef |
@@ -918,7 +918,7 @@
|
|
|
7cf8aef |
hid_t hf,hd,hs;
|
|
|
7cf8aef |
hsize_t dims[3];
|
|
|
7cf8aef |
long rank = 3, res;
|
|
|
7cf8aef |
- H5Eset_auto(0,0);
|
|
|
7cf8aef |
+ H5Eset_auto2(0,0,0);
|
|
|
7cf8aef |
res=H5Fis_hdf5(fname);
|
|
|
7cf8aef |
if(res>0 && !rewrite) hf = H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT);
|
|
|
7cf8aef |
else hf = H5Fcreate(fname, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
|
|
|
7cf8aef |
@@ -928,10 +928,10 @@
|
|
|
7cf8aef |
else { rank = 3; dims[0] = nz; dims[1] = ny; dims[2] = nx; }
|
|
|
7cf8aef |
hs = H5Screate_simple(rank, dims, 0);
|
|
|
7cf8aef |
#if(MGL_USE_DOUBLE==1)
|
|
|
7cf8aef |
- hd = H5Dcreate(hf, data, H5T_NATIVE_DOUBLE, hs, H5P_DEFAULT);
|
|
|
7cf8aef |
+ hd = H5Dcreate(hf, data, H5T_NATIVE_DOUBLE, hs, H5P_DEFAULT,H5P_DEFAULT);
|
|
|
7cf8aef |
H5Dwrite(hd, H5T_NATIVE_DOUBLE, hs, hs, H5P_DEFAULT, a);
|
|
|
7cf8aef |
#else
|
|
|
7cf8aef |
- hd = H5Dcreate(hf, data, H5T_NATIVE_FLOAT, hs, H5P_DEFAULT);
|
|
|
7cf8aef |
+ hd = H5Dcreate(hf, data, H5T_NATIVE_FLOAT, hs, H5P_DEFAULT,H5P_DEFAULT,H5P_DEFAULT);
|
|
|
7cf8aef |
H5Dwrite(hd, H5T_NATIVE_FLOAT, hs, hs, H5P_DEFAULT, a);
|
|
|
7cf8aef |
#endif
|
|
|
7cf8aef |
H5Dclose(hd); H5Sclose(hs); H5Fclose(hf);
|
|
|
7cf8aef |
@@ -943,7 +943,7 @@
|
|
|
7cf8aef |
hsize_t dims[3];
|
|
|
7cf8aef |
long rank;
|
|
|
7cf8aef |
hf = H5Fopen(fname, H5F_ACC_RDONLY, H5P_DEFAULT);
|
|
|
7cf8aef |
- hd = H5Dopen(hf,data);
|
|
|
7cf8aef |
+ hd = H5Dopen(hf,data,H5P_DEFAULT);
|
|
|
7cf8aef |
hs = H5Dget_space(hd);
|
|
|
7cf8aef |
rank = H5Sget_simple_extent_ndims(hs);
|
|
|
7cf8aef |
if(rank>0 && rank<=3)
|