parallel_global.h

Go to the documentation of this file.

//==========================================================
// AUTHOR : Fang Wei, Mohan Chen
// DATE : 2008
// LAST UPDATE : 2009-3-23 mohan add GATHER_MINIMUM_DOUBLE
//==========================================================
#ifndef PARALLEL_GLOBAL_H
#define PARALLEL_GLOBAL_H
 
#include <complex>
#include "parallel_comm.h"
 
// void myProd(std::complex<double> *in,std::complex<double> *inout,int *len,MPI_Datatype *dptr);
 
namespace Parallel_Global
{
extern int mpi_number;
extern int omp_number;
//---------------------------
// call at the very first.
//---------------------------
 
// changed from read_mpi_parameters in 2024-1018
void read_pal_param(int argc, char** argv, int& NPROC, int& NTHREAD_PER_PROC, int& MY_RANK);
#ifdef __MPI
void myProd(std::complex<double>* in, std::complex<double>* inout, int* len, MPI_Datatype* dptr);
#endif
 
void split_diag_world(const int& diag_np, const int& nproc, const int& my_rank, int& drank, int& dsize, int& dcolor);
void split_grid_world(const int diag_np, const int& nproc, const int& my_rank, int& grank, int& gsize);
 
void init_pools(const int& NPROC,
                const int& MY_RANK,
                const int& BNDPAR,
                const int& KPAR,
                int& NPROC_IN_BNDGROUP,
                int& RANK_IN_BPGROUP,
                int& MY_BNDGROUP,
                int& NPROC_IN_POOL,
                int& RANK_IN_POOL,
                int& MY_POOL);
 
void divide_pools(const int& NPROC,
                  const int& MY_RANK,
                  const int& BNDPAR,
                  const int& KPAR,
                  int& NPROC_IN_BNDGROUP,
                  int& RANK_IN_BPGROUP,
                  int& MY_BNDGROUP,
                  int& NPROC_IN_POOL,
                  int& RANK_IN_POOL,
                  int& MY_POOL);
 
void divide_mpi_groups(const int& procs,
                       const int& num_groups,
                       const int& rank,
                       int& procs_in_group,
                       int& my_group,
                       int& rank_in_group,
                       const bool even = false);
 
#ifdef __MPI
void finalize_mpi();
#endif
 
} // namespace Parallel_Global
 
#endif // PARALLEL_GLOBAL_H