CFD/hypre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed the check of MPI_VERSION in mpistubs.c to handle MPI_VERSION == 1.

Browse Source
This commit is contained in:
Tzanio 2014-09-22 17:13:44 -07:00
parent cba63ab3fe
commit b84de66201
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utilities/mpistubs.c
View File

@ -784,9 +784,8 @@ HYPRE_Int
hypre_MPI_Address( void *location,
hypre_MPI_Aint *address )
{
#ifdef MPI_VERSION
if (MPI_VERSION > 1)
return (HYPRE_Int) MPI_Get_address(location, address);
#if MPI_VERSION > 1
return (HYPRE_Int) MPI_Get_address(location, address);
#else
return (HYPRE_Int) MPI_Address(location, address);
#endif
@ -1226,8 +1225,7 @@ hypre_MPI_Type_hvector( HYPRE_Int count,
hypre_MPI_Datatype oldtype,
hypre_MPI_Datatype *newtype )
{
#ifdef MPI_VERSION
if (MPI_VERSION > 1)
#if MPI_VERSION > 1
return (HYPRE_Int) MPI_Type_create_hvector((hypre_int)count, (hypre_int)blocklength,
stride, oldtype, newtype);
#else
@ -1253,8 +1251,7 @@ hypre_MPI_Type_struct( HYPRE_Int count,
mpi_array_of_blocklengths[i] = (hypre_int) array_of_blocklengths[i];
}
#ifdef MPI_VERSION
if (MPI_VERSION > 1)
#if MPI_VERSION > 1
ierr = (HYPRE_Int) MPI_Type_create_struct((hypre_int)count, mpi_array_of_blocklengths,
array_of_displacements, array_of_types,
newtype);