MPIRanknD.c

Go to the documentation of this file.

#include <mpivars.h>

int MPIRanknD(
                int ndims,    
                int rank,     
                int *iproc,   
                int *ip       
             )
{
  int i,term    = 1;
  for (i=0; i<ndims; i++) term *= iproc[i];
  for (i=ndims-1; i>=0; i--) {
    term /= iproc[i];
    ip[i] = rank/term;
    rank -= ip[i]*term;
  }
  return(0);
}