fork download
copy 
  1. #include "mpi.h"
  2. #include <iostream>
  3.  
  4. int main(int argc, char *argv[]) {
  5.     int numtasks, rank, dest, source, tag = 1;
  6.     MPI_Status Stat;
  7.     int inmsg, outmsg;
  8.     MPI_Init(&argc, &argv);
  9.     MPI_Comm_size(MPI_COMM_WORLD, &numtasks);
  10.     MPI_Comm_rank(MPI_COMM_WORLD, &rank);
  11.  
  12.     outmsg = rank;
  13.     if (rank % 2 == 0) {
  14.         dest = (rank + 1) % numtasks;
  15.         MPI_Send(&outmsg, 1, MPI_INT, dest, tag, MPI_COMM_WORLD);
  16.         source = (rank == 0) ? numtasks - 1 : rank - 1;
  17.         MPI_Recv(&inmsg, 1, MPI_INT, source, tag, MPI_COMM_WORLD, &Stat);
  18.     } else {
  19.         source = (rank == 0) ? numtasks - 1 : rank - 1;
  20.         MPI_Recv(&inmsg, 1, MPI_INT, source, tag, MPI_COMM_WORLD, &Stat);
  21.         dest = (rank + 1) % numtasks;
  22.         MPI_Send(&outmsg, 1, MPI_INT, dest, tag, MPI_COMM_WORLD);
  23.     }
  24.  
  25.     std::cout << "Task " << rank << ": Received " << inmsg << std::endl;
  26.  
  27.     MPI_Finalize();
  28.     return 0;
  29. }
  30.  
Success #stdin #stdout #stderr 0.3s 40772KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: unexpected symbol in "int main"
Execution halted
https://ideone.com/08o2JW
language:
R (R 3.5.2)
created:
5 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!