From 9d1064071bf61938c0aca185db8a34a360d146d0 Mon Sep 17 00:00:00 2001 From: Pedro Vicente Nunes Date: Wed, 4 May 2005 11:54:32 -0500 Subject: [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: --- fortran/testpar/hyper.f90 | 7 +++++-- 1 file 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) -- cgit v0.12