summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorPedro Vicente Nunes <pvn@hdfgroup.org>2005-05-04 16:54:32 (GMT)
committerPedro Vicente Nunes <pvn@hdfgroup.org>2005-05-04 16:54:32 (GMT)
commit9d1064071bf61938c0aca185db8a34a360d146d0 (patch)
tree3f3747907b5c7319f49265c95eaf72acadc2408a /fortran
parent6f06567887eafcd441a246925cdc3ec727357013 (diff)
downloadhdf5-9d1064071bf61938c0aca185db8a34a360d146d0.zip
hdf5-9d1064071bf61938c0aca185db8a34a360d146d0.tar.gz
hdf5-9d1064071bf61938c0aca185db8a34a360d146d0.tar.bz2
[svn-r10725] Purpose:
bug fix Description: the hdf5 file of the test was being generated on the NFS filesystem Solution: use the libtest function h5_fixname Platforms tested: Linux Misc. update:
Diffstat (limited to 'fortran')
-rw-r--r--fortran/testpar/hyper.f907
1 files changed, 5 insertions, 2 deletions
diff --git a/fortran/testpar/hyper.f90 b/fortran/testpar/hyper.f90
index f055d3e..4b972df 100644
--- a/fortran/testpar/hyper.f90
+++ b/fortran/testpar/hyper.f90
@@ -47,6 +47,7 @@ integer(hid_t) :: driver_id ! low-level file driver identi
integer :: istart ! start position in array
integer :: iend ! end position in array
integer :: icount ! number of elements in array
+character(len=80) :: filename ! filename
integer :: i
call mpi_comm_rank( MPI_COMM_WORLD, mpi_rank, mpierror )
@@ -109,7 +110,9 @@ endif
! create the file collectively
!//////////////////////////////////////////////////////////
-call h5fcreate_f("parf.h5", H5F_ACC_TRUNC_F, file_id, hdferror, access_prp = fapl_id)
+call h5_fixname_f("parf", filename, fapl_id, hdferror)
+
+call h5fcreate_f(filename, H5F_ACC_TRUNC_F, file_id, hdferror, access_prp = fapl_id)
call check("h5fcreate_f", hdferror, nerrors)
call h5screate_simple_f(1, dims, fspace_id, hdferror)
@@ -214,7 +217,7 @@ call check("h5pcreate_f", hdferror, nerrors)
call h5pset_fapl_mpio_f(fapl_id, MPI_COMM_WORLD, MPI_INFO_NULL, hdferror)
call check("h5pcreate_f", hdferror, nerrors)
-call h5fopen_f("parf.h5", H5F_ACC_RDWR_F, file_id, hdferror, access_prp = fapl_id)
+call h5fopen_f(filename, H5F_ACC_RDWR_F, file_id, hdferror, access_prp = fapl_id)
call check("h5pcreate_f", hdferror, nerrors)
call h5screate_simple_f(1, dims, fspace_id, hdferror)