H5hut/src
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

examples/H5Part/read_stridedf.f90

Browse Source 
- bugfix in parallel version
This commit is contained in:
gsell
2017-07-26 17:00:03 +02:00
parent c33ef6d390
commit aa1f4eacc8
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/H5Part/read_stridedf.f90
+3 -2
View File
@@ -21,8 +21,6 @@ program read_stridedf
! H5hut verbosity level
integer*8, parameter :: h5_verbosity = H5_VERBOSE_DEFAULT
integer :: comm_size = 1
integer :: comm_rank = 0
integer*8 :: file, h5_ierror
integer*8 :: num_particles, num_particles_total
real*8, allocatable :: data(:)
@@ -35,6 +33,9 @@ program read_stridedf
call mpi_init (mpi_error)
call mpi_comm_size (comm, comm_size, mpi_ierror)
call mpi_comm_rank (comm, comm_rank, mpi_ierror)
#else
integer :: comm_size = 1
integer :: comm_rank = 0
#endif
call h5_abort_on_error ()