summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorAlbert Cheng <acheng@hdfgroup.org>2005-04-12 20:38:17 (GMT)
committerAlbert Cheng <acheng@hdfgroup.org>2005-04-12 20:38:17 (GMT)
commit39803ca9f15044e6f37becb87ad04c967de41e2a (patch)
treee080ef2694dd75194e546cdb366ec28bd34fa51a /fortran
parentafef3c035864297dd2ffe537508164ecb87e89e4 (diff)
downloadhdf5-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:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/examples/ph5example.f906
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