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

fixed bug found by bsmith, change hypre_MPI_ANY_SOURCE to source

Browse Source
This commit is contained in:
Ulrike Yang 2015-09-08 16:44:00 -07:00
parent 5e19d62b87
commit b4da140369
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
distributed_ls/ParaSails/DiagScale.c
View File

@ -120,7 +120,8 @@ static void ExchangeDiagEntriesServer(MPI_Comm comm, Matrix *mat,
recvbuf = (HYPRE_Int *) MemAlloc(mem, count*sizeof(HYPRE_Int));
sendbuf = (HYPRE_Real *) MemAlloc(mem, count*sizeof(HYPRE_Real));
hypre_MPI_Recv(recvbuf, count, HYPRE_MPI_INT, hypre_MPI_ANY_SOURCE,
/*hypre_MPI_Recv(recvbuf, count, HYPRE_MPI_INT, hypre_MPI_ANY_SOURCE, */
hypre_MPI_Recv(recvbuf, count, HYPRE_MPI_INT, source,
DIAG_INDS_TAG, comm, &status);
source = status.hypre_MPI_SOURCE;