diff options
| author | Pedro Vicente Nunes <pvn@hdfgroup.org> | 2005-05-04 16:54:32 (GMT) |
|---|---|---|
| committer | Pedro Vicente Nunes <pvn@hdfgroup.org> | 2005-05-04 16:54:32 (GMT) |
| commit | 9d1064071bf61938c0aca185db8a34a360d146d0 (patch) | |
| tree | 3f3747907b5c7319f49265c95eaf72acadc2408a /fortran/testpar | |
| parent | 6f06567887eafcd441a246925cdc3ec727357013 (diff) | |
| download | hdf5-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/testpar')
| -rw-r--r-- | fortran/testpar/hyper.f90 | 7 |
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) |