|
From: <sv...@va...> - 2007-06-04 21:00:17
|
Author: sewardj
Date: 2007-06-04 22:00:16 +0100 (Mon, 04 Jun 2007)
New Revision: 6755
Log:
Handle MPI_DOUBLE_PRECISION.
Modified:
branches/VALGRIND_3_2_BRANCH/auxprogs/libmpiwrap.c
Modified: branches/VALGRIND_3_2_BRANCH/auxprogs/libmpiwrap.c
===================================================================
--- branches/VALGRIND_3_2_BRANCH/auxprogs/libmpiwrap.c 2007-06-04 09:47:36 UTC (rev 6754)
+++ branches/VALGRIND_3_2_BRANCH/auxprogs/libmpiwrap.c 2007-06-04 21:00:16 UTC (rev 6755)
@@ -254,6 +254,9 @@
# 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:???");
}
@@ -436,6 +439,9 @@
# 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)
|