From 7bf3985219b19f66ceff95e8792fdf12ef5ec917 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Thu, 3 Sep 2015 17:23:09 +0200 Subject: [PATCH] examples/H5Block/read_write_scalar_fieldf-f90: - bugfix: open file read-only --- examples/H5Block/read_write_scalar_fieldf.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/H5Block/read_write_scalar_fieldf.f90 b/examples/H5Block/read_write_scalar_fieldf.f90 index 7a92ed3..60f239f 100644 --- a/examples/H5Block/read_write_scalar_fieldf.f90 +++ b/examples/H5Block/read_write_scalar_fieldf.f90 @@ -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)