diff options
| author | Pedro Vicente Nunes <pvn@hdfgroup.org> | 2005-05-23 21:40:43 (GMT) |
|---|---|---|
| committer | Pedro Vicente Nunes <pvn@hdfgroup.org> | 2005-05-23 21:40:43 (GMT) |
| commit | 2e6769592db8bec18483820513ef671051a60a1c (patch) | |
| tree | 399b12ce827e006f9ccd180a7c2f20cf5ef65ccb /fortran/testpar/ptest.f90 | |
| parent | 2b4e592fe8aed00fc6ea4c2391e8a6e4a7afb456 (diff) | |
| download | hdf5-2e6769592db8bec18483820513ef671051a60a1c.zip hdf5-2e6769592db8bec18483820513ef671051a60a1c.tar.gz hdf5-2e6769592db8bec18483820513ef671051a60a1c.tar.bz2 | |
[svn-r10793] Purpose:
new fortran parallel test
Description:
added a test that writes and reads several datasets
Solution:
Platforms tested:
linux (intel compiler, tungsten)
AIX (copper)
Misc. update:
Diffstat (limited to 'fortran/testpar/ptest.f90')
| -rw-r--r-- | fortran/testpar/ptest.f90 | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/fortran/testpar/ptest.f90 b/fortran/testpar/ptest.f90 index 21948795..e844256 100644 --- a/fortran/testpar/ptest.f90 +++ b/fortran/testpar/ptest.f90 @@ -83,6 +83,17 @@ do_chunk = .true. call hyper(lenght,do_collective,do_chunk,nerrors) !////////////////////////////////////////////////////////// +! test write/read several datasets (independent MPI I/O) +!////////////////////////////////////////////////////////// + +if (mpi_rank == 0) write(*,*) 'Writing/reading several datasets (contiguous layout, independent MPI I/O)' + +do_collective = .false. +do_chunk = .false. +call multiple_dset_write(lenght,do_collective,do_chunk,nerrors) + + +!////////////////////////////////////////////////////////// ! close HDF5 interface !////////////////////////////////////////////////////////// |