/* ../../../smpi_script/bin/smpirun -hostfile hostfile_send_deterministic -platform ../../platforms/cluster.xml -np 3 --cfg=model-check:1 --cfg=smpi/send_is_detached_thres:0 gdb\ --args\ ./send_deterministic */
-/* Copyright (c) 2009 - 2014. The SimGrid Team.
+/* Copyright (c) 2009-2014. The SimGrid Team.
* All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
exit(1);
}
- err = MPI_Comm_size(MPI_COMM_WORLD, &size); /* Get nr of tasks */
- err = MPI_Comm_rank(MPI_COMM_WORLD, &rank); /* Get id of this process */
+ MPI_Comm_size(MPI_COMM_WORLD, &size); /* Get nr of tasks */
+ MPI_Comm_rank(MPI_COMM_WORLD, &rank); /* Get id of this process */
if (size < 2) {
printf("run this program with at least 2 processes \n");
MPI_Finalize();
}
if (rank == 0) {
- printf("MPI_ISend / MPI_IRecv Test \n");
+ //printf("MPI_ISend / MPI_IRecv Test \n");
for(i=0; i < size - 1; i++){
MPI_Recv(&recv_buff, 1, MPI_INT, MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_COMM_WORLD, &status);
- printf("Message received from %d\n", recv_buff);
+ //printf("Message received from %d\n", recv_buff);
}
}else{
MPI_Send(&rank, 1, MPI_INT, 0, 42, MPI_COMM_WORLD);
- printf("Sent %d to rank 0\n", rank);
+ //printf("Sent %d to rank 0\n", rank);
}
MPI_Finalize();