diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-11-25 20:51:29 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-11-25 20:51:29 (GMT) |
| commit | 595ca51493fd1f94d6077150d86956df3bae2b15 (patch) | |
| tree | 27bc025a08962eee5d9dd0ee1530bf6da93309c8 /perform | |
| parent | 36a46913beec7893b099466599c609007a0b108c (diff) | |
| download | hdf5-595ca51493fd1f94d6077150d86956df3bae2b15.zip hdf5-595ca51493fd1f94d6077150d86956df3bae2b15.tar.gz hdf5-595ca51493fd1f94d6077150d86956df3bae2b15.tar.bz2 | |
[svn-r7885] Purpose:
Small bug fix
Description:
MPI_DOUBLE_PRECISION -> MPI_DOUBLE in C code.
Platforms tested:
Cray T3E (hubble)
Too minor to require h5committest
Diffstat (limited to 'perform')
| -rw-r--r-- | perform/perf_meta.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perform/perf_meta.c b/perform/perf_meta.c index 736aa49..f50b07d 100644 --- a/perform/perf_meta.c +++ b/perform/perf_meta.c @@ -707,13 +707,13 @@ void perf(p_time *perf_t, double start_t, double end_t) MPI_Comm_rank(MPI_COMM_WORLD, &mpi_rank); MPI_Barrier(MPI_COMM_WORLD); - MPI_Reduce(&t, &reduced_t, 1, MPI_DOUBLE_PRECISION, MPI_SUM, 0, + MPI_Reduce(&t, &reduced_t, 1, MPI_DOUBLE, MPI_SUM, 0, MPI_COMM_WORLD); reduced_t /= mpi_size; - MPI_Reduce(&t, &t_max, 1, MPI_DOUBLE_PRECISION, MPI_MAX, 0, + MPI_Reduce(&t, &t_max, 1, MPI_DOUBLE, MPI_MAX, 0, MPI_COMM_WORLD); - MPI_Reduce(&t, &t_min, 1, MPI_DOUBLE_PRECISION, MPI_MIN, 0, + MPI_Reduce(&t, &t_min, 1, MPI_DOUBLE, MPI_MIN, 0, MPI_COMM_WORLD); if (MAINPROCESS) { |