mirror of
https://github.com/PhasicFlow/phasicFlow.git
synced 2025-07-08 03:07:03 +00:00
Zoltan is added as thirdParty package
This commit is contained in:
55
thirdParty/Zoltan/siMPI/pyMPI/siMPI/tests/testSendRecv7.c
vendored
Normal file
55
thirdParty/Zoltan/siMPI/pyMPI/siMPI/tests/testSendRecv7.c
vendored
Normal file
@ -0,0 +1,55 @@
|
||||
|
||||
/*TEST
|
||||
SKIP=1
|
||||
PATH='tests/testSendRecv7.c'
|
||||
CCFLAGS=""
|
||||
INPUT=""
|
||||
OUTPUT=''
|
||||
STATUS=0
|
||||
TEST*/
|
||||
|
||||
/******************************************************************/
|
||||
/* FILE *********** testSendRecv7.c ********************/
|
||||
/******************************************************************/
|
||||
/* Author : Lisa Alano June 5 2002 */
|
||||
/* Copyright (c) 2002 University of California Regents */
|
||||
/******************************************************************/
|
||||
/******************************************************************/
|
||||
|
||||
#if 0
|
||||
CCFLAGS = TEST FLAGS
|
||||
ARGS = None
|
||||
INPUT = EOF
|
||||
OUTPUT = MPI_Receive source invalid.
|
||||
WAITS FOREVER.
|
||||
STATUS = 1
|
||||
#endif
|
||||
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include "mpi.h"
|
||||
|
||||
int main(int argc, char**argv)
|
||||
{
|
||||
int my_rank;
|
||||
int p;
|
||||
char message1[50];
|
||||
char message2[50];
|
||||
int source, dest, tag;
|
||||
MPI_Status status;
|
||||
|
||||
MPI_Init(&argc, &argv);
|
||||
MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
|
||||
MPI_Comm_size(MPI_COMM_WORLD, &p);
|
||||
|
||||
tag = dest = 0;
|
||||
source = 1;
|
||||
sprintf(message1, "Hello there");
|
||||
MPI_Send(message1, strlen(message1)+1, MPI_CHAR, dest, tag, MPI_COMM_WORLD);
|
||||
MPI_Recv(message2, 50, MPI_CHAR, source, tag, MPI_COMM_WORLD, &status);
|
||||
|
||||
printf("%s\n", message2);
|
||||
|
||||
MPI_Finalize();
|
||||
return 0;
|
||||
}
|
Reference in New Issue
Block a user