examples/H5Part/read_canonicalviewf.f90: some fixes, but still broken

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)