H5hut/src
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

examples/H5Block/read_write_scalar_fieldf-f90:

Browse Source 
- bugfix: open file read-only
This commit is contained in:
gsell
2015-09-03 17:23:09 +02:00
parent d939354990
commit 7bf3985219
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/H5Block/read_write_scalar_fieldf.f90
+1 -1
View File
@@ -373,7 +373,7 @@ program read_write_scalar_field
integer*8 :: timestep = 1
print "('[proc ', I3, ']: Open file for reading ...')", comm_rank
file = h5_openfile (FNAME, H5_O_WRONLY, H5_PROP_DEFAULT)
file = h5_openfile (FNAME, H5_O_RDONLY, H5_PROP_DEFAULT)
h5_err = h5_setstep (file, timestep)
h5_err = read_field (file, comm_rank, layout)