X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/cc65d2b16b44aceb784687cf94626c7dca9423b4..68694b3ec9b57621efb384cfed57f2b3a35d6669:/examples/smpi/mc/non_deterministic.c diff --git a/examples/smpi/mc/non_deterministic.c b/examples/smpi/mc/non_deterministic.c deleted file mode 100644 index 9df64c009b..0000000000 --- a/examples/smpi/mc/non_deterministic.c +++ /dev/null @@ -1,54 +0,0 @@ -/* ../../../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. - * All rights reserved. */ - -/* This program is free software; you can redistribute it and/or modify it - * under the terms of the license (GNU LGPL) which comes with this package. */ - -#include -#include -#include - - -int main(int argc, char **argv) -{ - int recv_buff, err, size, rank, i; - MPI_Status status; - - /* Initialize MPI */ - err = MPI_Init(&argc, &argv); - if (err != MPI_SUCCESS) { - printf("MPI initialization failed!\n"); - exit(1); - } - - 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(); - exit(0); - } - - if (rank == 0) { - //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); - MPI_Send(&recv_buff, 1, MPI_INT, status.MPI_SOURCE, 42, MPI_COMM_WORLD); - // printf("Sent %d to rank %d\n", status.MPI_SOURCE); - } - - }else{ - MPI_Send(&rank, 1, MPI_INT, 0, 42, MPI_COMM_WORLD); - //printf("Sent %d to rank 0\n", rank); - MPI_Recv(&recv_buff, 1, MPI_INT, 0, MPI_ANY_TAG, MPI_COMM_WORLD, &status); - //printf("Message received from %d\n", recv_buff); - } - - MPI_Finalize(); - - return 0; -}