mirror of
https://github.com/PhasicFlow/phasicFlow.git
synced 2025-07-08 03:07:03 +00:00
58 lines
1.4 KiB
C
58 lines
1.4 KiB
C
|
|
/*TEST
|
|
PATH='tests/testIsend0.c'
|
|
CCFLAGS=""
|
|
INPUT=""
|
|
OUTPUT='Hello there\n'
|
|
STATUS=0
|
|
TEST*/
|
|
|
|
/******************************************************************/
|
|
/* FILE *********** testIsend0.c ********************/
|
|
/******************************************************************/
|
|
/* Author : Lisa Alano July 29 2002 */
|
|
/* Copyright (c) 2002 University of California Regents */
|
|
/******************************************************************/
|
|
/******************************************************************/
|
|
|
|
#if 0
|
|
CCFLAGS = None
|
|
ARGS = None
|
|
INPUT = EOF
|
|
OUTPUT = Hello there
|
|
STATUS = 0
|
|
#endif
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdlib.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_Request srequest;
|
|
MPI_Request rrequest;
|
|
MPI_Status status;
|
|
|
|
MPI_Init(&argc, &argv);
|
|
MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
|
|
MPI_Comm_size(MPI_COMM_WORLD, &p);
|
|
|
|
source = tag = dest = 0;
|
|
sprintf(message1, "Hello there");
|
|
MPI_Isend(message1, strlen(message1)+1, MPI_CHAR, dest, tag, MPI_COMM_WORLD, &srequest);
|
|
MPI_Irecv(message2, 50, MPI_CHAR, source, tag, MPI_COMM_WORLD, &rrequest);
|
|
MPI_Wait(&rrequest,&status);
|
|
MPI_Wait(&srequest,&status);
|
|
|
|
printf("%s\n", message2);
|
|
|
|
MPI_Finalize();
|
|
return 0;
|
|
}
|