|
From: <sv...@va...> - 2007-06-04 21:14:37
|
Author: sewardj
Date: 2007-06-04 22:14:36 +0100 (Mon, 04 Jun 2007)
New Revision: 6756
Log:
Merge (from branch) r6755 (Handle MPI_DOUBLE_PRECISION).
Modified:
trunk/auxprogs/libmpiwrap.c
Modified: trunk/auxprogs/libmpiwrap.c
===================================================================
--- trunk/auxprogs/libmpiwrap.c 2007-06-04 21:00:16 UTC (rev 6755)
+++ trunk/auxprogs/libmpiwrap.c 2007-06-04 21:14:36 UTC (rev 6756)
@@ -268,6 +268,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:???");
}
@@ -450,6 +453,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)
|