diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2005-04-12 20:38:17 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2005-04-12 20:38:17 (GMT) |
| commit | 39803ca9f15044e6f37becb87ad04c967de41e2a (patch) | |
| tree | e080ef2694dd75194e546cdb366ec28bd34fa51a | |
| parent | afef3c035864297dd2ffe537508164ecb87e89e4 (diff) | |
| download | hdf5-39803ca9f15044e6f37becb87ad04c967de41e2a.zip hdf5-39803ca9f15044e6f37becb87ad04c967de41e2a.tar.gz hdf5-39803ca9f15044e6f37becb87ad04c967de41e2a.tar.bz2 | |
[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:
| -rw-r--r-- | fortran/examples/ph5example.f90 | 6 |
1 files changed, 5 insertions, 1 deletions
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 |