01  function rank = MPI_Comm_rank(comm)
02  % MPI_Comm_rank  -  returns the rank of the current processor.
03  %
04  %   rank = MPI_Comm_rank(comm)
05  %
06  rank = comm.rank ;
07  
08  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
09  % MatlabMPI
10  % Dr. Jeremy Kepner
11  % MIT Lincoln Laboratory
12  % kepner@ll.mit.edu
13  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14  % Copyright 2002 Massachusetts Institute of Technology
15  %
16  % Permission is herby granted, without payment, to copy, modify, display
17  % and distribute this software and its documentation, if any, for any
18  % purpose, provided that the above copyright notices and the following
19  % three paragraphs appear in all copies of this software.  Use of this
20  % software constitutes acceptance of these terms and conditions.
21  %
22  % IN NO EVENT SHALL MIT BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT,
23  % SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF
24  % THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF MIT HAS BEEN ADVISED OF THE
25  % POSSIBILITY OF SUCH DAMAGE.
26  %
27  % MIT SPECIFICALLY DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTIES INCLUDING,
28  % BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS
29  % FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.
30  %
31  % THIS SOFTWARE IS PROVIDED "AS IS," MIT HAS NO OBLIGATION TO PROVIDE
32  % MAINTENANCE, SUPPORT, UPDATE, ENHANCEMENTS, OR MODIFICATIONS.
33