| << 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