38 строки
748 B
C
38 строки
748 B
C
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include "mpi.h"
|
||
|
|
|
||
|
|
#define MAX_DATA 100
|
||
|
|
|
||
|
|
int main( int argc, char **argv )
|
||
|
|
{
|
||
|
|
MPI_Comm server;
|
||
|
|
double buf[MAX_DATA];
|
||
|
|
char port_name[MPI_MAX_PORT_NAME];
|
||
|
|
int done = 0, tag, n, CNT=0;
|
||
|
|
|
||
|
|
MPI_Init( &argc, &argv );
|
||
|
|
strcpy(port_name, argv[1] ); /* assume server's name is cmd-line arg */
|
||
|
|
|
||
|
|
MPI_Comm_connect( port_name, MPI_INFO_NULL, 0, MPI_COMM_WORLD, &server );
|
||
|
|
|
||
|
|
n = MAX_DATA;
|
||
|
|
|
||
|
|
while (!done)
|
||
|
|
{
|
||
|
|
tag = 2; /* Action to perform */
|
||
|
|
if ( CNT == 5 ) { tag = 0; done = 1; }
|
||
|
|
fprintf(stderr, "Client sending message %d\n", CNT);
|
||
|
|
MPI_Send( buf, n, MPI_DOUBLE, 0, tag, server );
|
||
|
|
CNT++;
|
||
|
|
/* etc */
|
||
|
|
}
|
||
|
|
|
||
|
|
MPI_Comm_disconnect( &server );
|
||
|
|
MPI_Finalize();
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|