From 8dbb0315c55c8ea181ffc287a985f11eba592a4d Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Tue, 25 Nov 2003 15:51:27 -0500 Subject: [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 --- perform/perf_meta.c | 6 +++--- 1 file 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) { -- cgit v0.12