|
From: <sv...@va...> - 2006-04-13 22:03:20
|
Author: sewardj
Date: 2006-04-13 23:03:16 +0100 (Thu, 13 Apr 2006)
New Revision: 5848
Log:
Not all MPI implementations define MPI_UNSIGNED_LONG_LONG.
Modified:
trunk/auxprogs/libmpiwrap.c
Modified: trunk/auxprogs/libmpiwrap.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
--- trunk/auxprogs/libmpiwrap.c 2006-04-13 12:44:31 UTC (rev 5847)
+++ trunk/auxprogs/libmpiwrap.c 2006-04-13 22:03:16 UTC (rev 5848)
@@ -232,7 +232,9 @@
# if defined(MPI_LONG_LONG)
else if (ty =3D=3D MPI_LONG_LONG) fprintf(f,"LONG_LONG");
# endif
+# if defined(MPI_UNSIGNED_LONG_LONG)
else if (ty =3D=3D MPI_UNSIGNED_LONG_LONG) fprintf(f,"UNSIGNED_LONG_L=
ONG");
+# endif
else fprintf(f,"showTy:???");
}
=20
@@ -407,7 +409,9 @@
# if defined(MPI_SIGNED_CHAR)
if (ty =3D=3D MPI_SIGNED_CHAR) return sizeof(signed char);
# endif
+# if defined(MPI_UNSIGNED_LONG_LONG)
if (ty =3D=3D MPI_UNSIGNED_LONG_LONG) return sizeof(unsigned long lon=
g int);
+# endif
if (ty =3D=3D MPI_LONG_LONG_INT) return sizeof(signed long long =
int);
/* Note: the following are named structs, not named basic types,
and so are not handled here:
|