Commit 7f2c84c6 authored by David Goodell's avatar David Goodell
Browse files

[svn-r10658] fix overzealous MPICH2-->MPICH rename

No reviewer.
parent 14b54ed1
......@@ -9,7 +9,7 @@
#include "mpisgi2.h"
#endif */
#if (defined(MPICH) || defined(MPICH))
#if defined(MPICH)
/* MPICH also provides this routine */
void MPIR_Datatype_iscontig(MPI_Datatype datatype, int *flag);
......@@ -17,19 +17,16 @@ void ADIOI_Datatype_iscontig(MPI_Datatype datatype, int *flag)
{
MPIR_Datatype_iscontig(datatype, flag);
/* if it is MPICH and the datatype is reported as contigous,
check if the true_lb is non-zero, and if so, mark the
datatype as noncontiguous */
#ifdef MPICH
/* if the datatype is reported as contigous, check if the true_lb is
* non-zero, and if so, mark the datatype as noncontiguous */
if (*flag) {
MPI_Aint true_extent, true_lb;
MPI_Type_get_true_extent(datatype, &true_lb, &true_extent);
if (true_lb > 0)
*flag = 0;
}
#endif
}
#elif (defined(MPIHP) && defined(HAVE_MPI_INFO))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment