teshsuite/smpi/mpich-test/pt2pt/isndrcv2.c

   1 #include <stdio.h>
   2 #include "mpi.h"
   3
   4 int main( int argc, char **argv )
   5 {
   6   int rank, size;
   7   MPI_Request r1, r2;
   8   MPI_Status  s;
   9   int         buf[10000], buf2[10000], count, tag1, tag2;
  10
  11   count = 10000;
  12   tag1  = 100;
  13   tag2  = 1000;
  14
  15   MPI_Init( &argc, &argv );
  16   MPI_Comm_rank( MPI_COMM_WORLD, &rank );
  17   MPI_Comm_size( MPI_COMM_WORLD, &size );
  18
  19   if (rank == 0) {
  20     MPI_Isend( buf, count, MPI_INT, 1, tag1, MPI_COMM_WORLD, &r1 );
  21     MPI_Isend( buf2, count, MPI_INT, 1, tag2, MPI_COMM_WORLD, &r2 );
  22     MPI_Wait( &r1, &s );
  23     MPI_Wait( &r2, &s );
  24   }
  25   else if (rank == 1) {
  26     MPI_Irecv( buf2, count, MPI_INT, 0, tag2, MPI_COMM_WORLD, &r2 );
  27     MPI_Irecv( buf,  count, MPI_INT, 0, tag1, MPI_COMM_WORLD, &r1 );
  28     MPI_Wait( &r2, &s );
  29     if (s.MPI_TAG != tag2) {
  30             printf( "Error in receive order\n" );
  31     }
  32     MPI_Wait( &r1, &s );
  33   }
  34
  35   MPI_Barrier( MPI_COMM_WORLD );
  36   if (rank == 0) {
  37     printf( "Test completed\n" );
  38   }
  39   MPI_Finalize( );
  40   return 0;
  41 }