From 274558de6d75aec320999259dad79a538cbc9eb6 Mon Sep 17 00:00:00 2001 From: Julian Seward Date: Mon, 4 Jun 2007 21:14:36 +0000 Subject: [PATCH] Merge (from branch) r6755 (Handle MPI_DOUBLE_PRECISION). git-svn-id: svn://svn.valgrind.org/valgrind/trunk@6756 --- auxprogs/libmpiwrap.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/auxprogs/libmpiwrap.c b/auxprogs/libmpiwrap.c index 27a9a272ff..5c8964b5fa 100644 --- a/auxprogs/libmpiwrap.c +++ b/auxprogs/libmpiwrap.c @@ -267,6 +267,9 @@ static void showTy ( FILE* f, MPI_Datatype ty ) # endif # if defined(MPI_INTEGER4) else if (ty == MPI_INTEGER4) fprintf(f, "INTEGER4"); +# endif +# if defined(MPI_DOUBLE_PRECISION) + else if (ty == MPI_DOUBLE_PRECISION) fprintf(f, "DOUBLE_PRECISION"); # endif else fprintf(f,"showTy:???"); } @@ -450,6 +453,9 @@ static long sizeofOneNamedTy ( MPI_Datatype ty ) # if defined(MPI_INTEGER4) if (ty == MPI_INTEGER4) return sizeof(signed int); # endif +# if defined(MPI_DOUBLE_PRECISION) + if (ty == MPI_DOUBLE_PRECISION) return sizeof(double); +# endif /* new in MPI2: */ # if defined(MPI_WCHAR) -- 2.47.2