xfygogo/phasicFlow
1
0
Fork 0
mirror of https://github.com/PhasicFlow/phasicFlow.git synced 2025-07-08 03:07:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Zoltan is added as thirdParty package

Browse Source
This commit is contained in:
Hamidreza
2025-05-15 21:58:43 +03:30
parent 83a6e4baa1
commit d7479cf1bd
3392 changed files with 318142 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
thirdParty/Zoltan/siMPI/pyMPI/siMPI/tests/testSendRecv7.c vendored Normal file
View 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;
}