<< MPI_Comm_object | Message Passing Interface | MPI_Comm_size >> |
r = MPI_Comm_rank(Comm) |
a MPI_Comm object.
an integer value: rank of the calling process in the group of Comm.
Return the rank of the calling process in the specified communicator.
mpiexec([modulepath('mpi'), '/examples/MPI_helloworld.m'], 4)
if ~MPI_Initialized()
MPI_Init();
end
comm = MPI_Comm_object()
my_rank = MPI_Comm_rank (comm)
num_ranks = MPI_Comm_size(comm)
TAG= 1;
if (my_rank != 0)
rankvect = 0;
MPI_Send(rand(3,3) + my_rank, rankvect, TAG, comm);
else
disp('MPI master receive:')
for source = 1:num_ranks - 1
disp(['From slave ', int2str(source)])
message = MPI_Recv (source, TAG, comm);
disp(message)
end
end
if MPI_Initialized()
MPI_Finalize();
end
Version | Description |
---|---|
1.0.0 | initial version |
Allan CORNET