diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-11-25 20:51:27 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-11-25 20:51:27 (GMT) |
| commit | 8dbb0315c55c8ea181ffc287a985f11eba592a4d (patch) | |
| tree | dfbadf4196fce27345445669cad186722a169d33 /perform | |
| parent | 308861617910d1b339c6d35a6d64df7789ce5237 (diff) | |
| download | hdf5-8dbb0315c55c8ea181ffc287a985f11eba592a4d.zip hdf5-8dbb0315c55c8ea181ffc287a985f11eba592a4d.tar.gz hdf5-8dbb0315c55c8ea181ffc287a985f11eba592a4d.tar.bz2 | |
[svn-r7884] 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 c1d7044..2f7cb92 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) { |