23 static const char rcsid[] = 
"$Id";
 
   78 int Communicator::self_global()
 
  105   for (
int i = 0; i < 
m_ndim; ++i) {
 
  114   for (
int i = 0; i < 
m_ndim; ++i) {
 
  127 int Communicator::sync_global()
 
  163   memcpy(recv_buf, send_buf, size);
 
  170   memcpy(recv_buf, send_buf, 
sizeof(
double) * count);
 
  177   memcpy(recv_buf, send_buf, 
sizeof(
int) * count);
 
  184   memcpy(recv_buf, send_buf, size);
 
  189 int Communicator::send_1to1(
int count, 
double *recv_buf, 
double *send_buf, 
int send_to, 
int recv_from, 
int tag)
 
  191   memcpy(recv_buf, send_buf, 
sizeof(
double) * count);
 
  198   memcpy(recv_buf, send_buf, 
sizeof(
int) * count);
 
  205   memcpy(recv_buf, send_buf, 
sizeof(
double) * count);
 
  212   memcpy(recv_buf, send_buf, 
sizeof(
int) * count);
 
  238   printf(
"Communicator Single\n");
 
  248   if (gettimeofday(&now, (
struct timezone *)0) != 0) {
 
  252   double sec = (double)now.tv_sec + ((
double)now.tv_usec) * 1.0e-6;
 
static int npe(const int dir)
logical grid extent 
 
static int reduce_max(int count, double *recv_buf, double *send_buf, int pattern=0)
find a global maximum of an array of double over the communicator. pattern specifies the dimensions t...
 
static void abort()
terminate communicator 
 
static int self()
rank within small world. 
 
static bool is_primary_master()
check if the present node is primary in global communicator. 
 
static int init(int *pargc, char ***pargv)
initialize communicator 
 
static int grid_coord(int *grid_coord, const int rank)
find grid coordinate from rank number. 
 
static int reduce_min(int count, double *recv_buf, double *send_buf, int pattern=0)
find a global minimum of an array of double over the communicator. pattern specifies the dimensions t...
 
static int broadcast(size_t size, void *data, int sender)
 
static int ipe(const int dir)
logical coordinate of current proc. 
 
static int finalize()
finalize communicator 
 
static int send_1to1(int count, double *recv_buf, double *send_buf, int p_to, int p_from, int tag)
send array of double from rank p_from to rank p_to. communication distinguished by tag...
 
static int exchange(size_t size, void *recv_buf, void *send_buf, int idir, int ipm, int tag)
 
static int grid_dims(int *grid_dims)
find grid dimensions. 
 
static int exchange(int count, double *recv_buf, double *send_buf, int idir, int ipm, int tag)
receive array of double from upstream specified by idir and ipm, and send array to downstream...
 
static int grid_rank(int *rank, const int *grid_coord)
find rank number from grid coordinate. 
 
static int setup(int ninstance=1)
setup communicator 
 
static int send_1to1(size_t size, void *recv_buf, void *send_buf, int send_to, int recv_from, int tag)
 
static int size()
size of small world. 
 
static double get_time()
obtain a wall-clock time. 
 
static int reduce_sum(int count, double *recv_buf, double *send_buf, int pattern=0)
make a global sum of an array of double over the communicator. pattern specifies the dimensions to be...
 
static int sync()
synchronize within small world. 
 
static int broadcast(int count, double *data, int sender)
broadcast array of double from sender. 
 
static const char rcsid[]
 
static bool is_primary()
check if the present node is primary in small communicator.