|
Lines 832-838
Link Here
|
| 832 |
hid_t hf,hd,hs; |
832 |
hid_t hf,hd,hs; |
| 833 |
hsize_t dims[3]; |
833 |
hsize_t dims[3]; |
| 834 |
long rank = 3, res; |
834 |
long rank = 3, res; |
| 835 |
H5Eset_auto(0,0); |
835 |
H5Eset_auto(NULL,0,0); |
| 836 |
res=H5Fis_hdf5(fname); |
836 |
res=H5Fis_hdf5(fname); |
| 837 |
if(res>0 && !rewrite) hf = H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT); |
837 |
if(res>0 && !rewrite) hf = H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT); |
| 838 |
else hf = H5Fcreate(fname, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT); |
838 |
else hf = H5Fcreate(fname, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT); |
|
Lines 841-847
Link Here
|
| 841 |
else if(nz==1) { rank = 2; dims[0] = ny; dims[1] = nx; } |
841 |
else if(nz==1) { rank = 2; dims[0] = ny; dims[1] = nx; } |
| 842 |
else { rank = 3; dims[0] = nz; dims[1] = ny; dims[2] = nx; } |
842 |
else { rank = 3; dims[0] = nz; dims[1] = ny; dims[2] = nx; } |
| 843 |
hs = H5Screate_simple(rank, dims, 0); |
843 |
hs = H5Screate_simple(rank, dims, 0); |
| 844 |
hd = H5Dcreate(hf, data, H5T_IEEE_F32LE, hs, H5P_DEFAULT); |
844 |
hd = H5Dcreate(hf, data, H5T_IEEE_F32LE, hs, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); |
| 845 |
H5Dwrite(hd, H5T_NATIVE_FLOAT, hs, hs, H5P_DEFAULT, a); |
845 |
H5Dwrite(hd, H5T_NATIVE_FLOAT, hs, hs, H5P_DEFAULT, a); |
| 846 |
H5Dclose(hd); H5Sclose(hs); H5Fclose(hf); |
846 |
H5Dclose(hd); H5Sclose(hs); H5Fclose(hf); |
| 847 |
} |
847 |
} |
|
Lines 852-858
Link Here
|
| 852 |
hsize_t dims[3]; |
852 |
hsize_t dims[3]; |
| 853 |
long rank; |
853 |
long rank; |
| 854 |
hf = H5Fopen(fname, H5F_ACC_RDONLY, H5P_DEFAULT); |
854 |
hf = H5Fopen(fname, H5F_ACC_RDONLY, H5P_DEFAULT); |
| 855 |
hd = H5Dopen(hf,data); |
855 |
hd = H5Dopen(hf,data,H5P_DEFAULT); |
| 856 |
hs = H5Dget_space(hd); |
856 |
hs = H5Dget_space(hd); |
| 857 |
rank = H5Sget_simple_extent_ndims(hs); |
857 |
rank = H5Sget_simple_extent_ndims(hs); |
| 858 |
if(rank>0 && rank<=3) |
858 |
if(rank>0 && rank<=3) |
