parallel / 3-2010
.pdf) MPI_Sendrecv
:
int MPI_Sendrecv(void *sendbuf, int sendcount, MPI_Datatype sendtype, int dest, int sendtag, void *recvbuf, int recvcount, MPI_Datatype recvtype, int source, int recvtag, MPI_Comm comm, MPI_Status *status)
MPI_Sendrecv(sendbuf, sendcount, sendtype, dest, sendtag, recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr)
/ .
2008
) MPI_Sendrecv_replace
, !:
int MPI_Sendrecv_replace(void *buf, int count, MPI_Datatype datatype, int dest, int sendtag, int source, int recvtag, MPI_Comm comm, MPI_Status *status)
MPI_Sendrecv_replace(BUF, COUNT, DATATYPE, DEST, SENDTAG,
SOURCE, RECVTAG, COMM, STATUS, IERR)
2008
!
* :
MPI-
Microsoft Windows;
MPI;
,
.
2008
MPI- .
- ,
* :
parallel-g112@yandex.ru
2008
C
MPI. $ * ,
.
2008
#include "mpi.h" #include <stdio.h>
int main(int argc,char *argv[])
{
int myid, numprocs; char message[20]; int myrank; MPI_Status status; int TAG = 0;
MPI_Init(&argc, &argv); MPI_Comm_rank(MPI_COMM_WORLD, &myrank); if (myrank == 0)
{
strcpy(message, "Hi, Second Processor!"); MPI_Send(...);
}
else
{
MPI_Recv(...);
printf("received: %s\n", message);
}
MPI_Finalize(); return 0;
}
2008
C
. .
MPI. $ * ,
.
2008
#include "mpi.h" #include <stdio.h>
int main(int argc,char *argv[])
{
int myrank, size, message; int TAG = 0;
MPI_Status status; MPI_Init(&argc, &argv);
MPI_Comm_rank(MPI_COMM_WORLD, &myrank); MPI_Comm_size(MPI_COMM_WORLD, &size); message = myrank;
if((myrank % 2) == 0)
{
if((myrank + 1) != size) MPI_Send(...);
}
else
{
if(myrank != 0) MPI_Recv(...);
printf("received :%i\n", message);
}
MPI_Finalize(); return 0;
}2008
$ a b N
, N *. " .
MPI-
*
. )
master-slave, master-
( )
* .
-
MPI- ,
.
% .
2008
# !"
$ MPI