From d6718bb866b56ac7590aa698402d5755dcd3d879 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Fri, 31 Jan 2014 15:34:20 +0100 Subject: [PATCH] examples/H5Part/read_canonicalviewf.f90: some fixes, but still broken --- examples/H5Part/read_canonicalviewf.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/examples/H5Part/read_canonicalviewf.f90 b/examples/H5Part/read_canonicalviewf.f90 index d22acce..17d9b6e 100644 --- a/examples/H5Part/read_canonicalviewf.f90 +++ b/examples/H5Part/read_canonicalviewf.f90 @@ -1,5 +1,5 @@ ! -! Copyright (c) 2006-2013, The Regents of the University of California, +! Copyright (c) 2006-2014, The Regents of the University of California, ! through Lawrence Berkeley National Laboratory (subject to receipt of any ! required approvals from the U.S. Dept. of Energy) and the Paul Scherrer ! Institut (Switzerland). All rights reserved.! @@ -35,14 +35,14 @@ program read_canonicalview enddo ! open the a file for parallel writing and ceate step #0 - file = h5_openfile (FNAME, H5_O_WRONLY, H5_PROP_DEFAULT) + file = h5_openfile (FNAME, H5_O_RDONLY, H5_PROP_DEFAULT) status = h5_setstep(file, 0_8) ! set the size of the 1D array status = h5pt_setnpoints (file, npoints) ! write the particles - status = h5pt_writedata_i4 (file, "data", data) + status = h5pt_readdata_i4 (file, "data", data) ! cleanup status = h5_closefile (file)