MPI_Finalize

MPI_Init();
rnk =    MPI_Comm_rank();
sizeNodes =    MPI_Comm_size();

SLV = rnk;                // handy shortcuts, master is rank 0
Master = ~ SLV;           // slaves are all other
tag=0;
if Master
    // The master node
    for slaveId = 1:sizeNodes-1
        // Send data to the slaves
        value = rand(100,100) + rand(100,100) * %i;
        MPI_Send(value, slaveId);
    end

    for slaveId = 1:sizeNodes-1
        valueBack=MPI_Recv(slaveId, tag);
        // Check that the slaves gaves us what we expected
        assert_checkequal(valueBack,value + 1);
    end
else
    // The slaves
    rankSource=0;
    // Receive the information from the master
    value=MPI_Recv(rankSource);
    // Increment all the values by one
    value=value+1;
    // Send back to the master
    MPI_Send(value,0);

end

MPI_Finalize();