From 39803ca9f15044e6f37becb87ad04c967de41e2a Mon Sep 17 00:00:00 2001 From: Albert Cheng Date: Tue, 12 Apr 2005 15:38:17 -0500 Subject: [svn-r10593] Purpose: Bug fix. Description: Data file name is hardcoded to be in current directory which does not necessarily support MPIO. Changed it to /tmp/sds.h5 for slightly larger chance of success but the eventual solution is to set it according to environment variables. Patch it this way for now. Platforms tested: mir. Misc. update: --- fortran/examples/ph5example.f90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/fortran/examples/ph5example.f90 b/fortran/examples/ph5example.f90 index 3def552..ae2906d 100644 --- a/fortran/examples/ph5example.f90 +++ b/fortran/examples/ph5example.f90 @@ -22,7 +22,8 @@ IMPLICIT NONE INCLUDE 'mpif.h' - CHARACTER(LEN=10), PARAMETER :: filename = "sds.h5" ! File name + ! Hard coded the file name. Change it according to where your PFS is. + CHARACTER(LEN=20), PARAMETER :: filename = "/tmp/sds.h5" ! File name CHARACTER(LEN=8), PARAMETER :: dsetname = "IntArray" ! Dataset name INTEGER(HID_T) :: file_id ! File identifier @@ -113,6 +114,9 @@ CALL h5dclose_f(dset_id, error) CALL h5pclose_f(plist_id, error) CALL h5fclose_f(file_id, error) + ! Attempt to remove the data file. Remove the line if the compiler + ! does not support it. + CALL unlink(filename) ! ! Close FORTRAN interface -- cgit v0.12