diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix stupid bug with mpi_receive/3

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@704 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
stasinos 2002-11-21 15:57:23 +00:00
parent fc684b3be7
commit 61f2133901
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
library/mpi/mpi.c
View File

@ -9,14 +9,14 @@
************************************************************************** **************************************************************************
* * * *
* File: mpi.c * * File: mpi.c *
* Last rev: $Date: 2002-11-21 15:54:38 $ * * Last rev: $Date: 2002-11-21 15:57:23 $ *
* mods: * * mods: *
* comments: Interface to an MPI library * * comments: Interface to an MPI library *
* * * *
*************************************************************************/ *************************************************************************/
#ifndef lint #ifndef lint
static char *rcsid = "$Header: /Users/vitor/Yap/yap-cvsbackup/library/mpi/mpi.c,v 1.17 2002-11-21 15:54:38 stasinos Exp $"; static char *rcsid = "$Header: /Users/vitor/Yap/yap-cvsbackup/library/mpi/mpi.c,v 1.18 2002-11-21 15:57:23 stasinos Exp $";
#endif #endif
#include "Yap.h" #include "Yap.h"
@ -428,7 +428,7 @@ p_mpi_receive() /* mpi_receive(-data, ?orig, ?tag) */
} }
/* Receive the message as a C string */ /* Receive the message as a C string */
retv = MPI_Recv( &buf[bufptr], bufstrlen, MPI_CHAR, orig, tag, retv = MPI_Recv( buf, bufstrlen, MPI_CHAR, orig, tag,
MPI_COMM_WORLD, &status ); MPI_COMM_WORLD, &status );
if( retv != MPI_SUCCESS ) { if( retv != MPI_SUCCESS ) {
/* Getting in here would be weird; it means the first package /* Getting in here would be weird; it means the first package