Mentions légales du service

Skip to content
Snippets Groups Projects

Feature mpi comm user

Merged PRUVOST Florent requested to merge fpruvost/chameleon:feature-mpi-comm-user into master
All threads resolved!
1 file
+ 13
13
Compare changes
  • Side-by-side
  • Inline
+ 13
13
@@ -117,7+117,7 @@
int CHAMELEON_Initialized (void);
int CHAMELEON_My_Mpi_Rank (void) __attribute__((deprecated));
int __chameleon_init (int nworkers, int ncudas);
int __chameleon_initpar (int nworkers, int ncudas, int nthreads_per_worker);
int __chameleon_initparcomm (int nworkers, int ncudas, int nthreads_per_worker, MPI_Comm comm);
int __chameleon_finalize (void);
int CHAMELEON_Pause (void);
@@ -240,7+240,7 @@
*/
#if defined(CHAMELEON_SCHED_OPENMP)
#define CHAMELEON_Init( _nworkers_, _ncudas_ ) \
__chameleon_init( (_nworkers_), (_ncudas_) ); \
_Pragma("omp parallel") \
_Pragma("omp master") \
#define CHAMELEON_Init( _nworkers_, _ncudas_ ) \
__chameleon_init( (_nworkers_), (_ncudas_) ); \
_Pragma("omp parallel") \
_Pragma("omp master") \
{
#define CHAMELEON_InitPar( _nworkers_, _ncudas_, _nthreads_per_worker_ ) \
#define CHAMELEON_InitPar( _nworkers_, _ncudas_, _nthreads_per_worker_ ) \
__chameleon_initpar( (_nworkers_), (_ncudas_), (_nthreads_per_worker_) ); \
_Pragma("omp parallel") \
_Pragma("omp master") \
_Pragma("omp parallel") \
_Pragma("omp master") \
{
#define CHAMELEON_InitParComm( _nworkers_, _ncudas_, _nthreads_per_worker_, _comm_ ) \
#define CHAMELEON_InitParComm( _nworkers_, _ncudas_, _nthreads_per_worker_, _comm_ ) \
__chameleon_initparcomm( (_nworkers_), (_ncudas_), (_nthreads_per_worker_), (_comm_) ); \
_Pragma("omp parallel") \
_Pragma("omp master") \
_Pragma("omp parallel") \
_Pragma("omp master") \
{
#define CHAMELEON_Finalize() \
} \
#define CHAMELEON_Finalize() \
} \
__chameleon_finalize();
#else
#define CHAMELEON_Init( _nworkers_, _ncudas_ ) \
#define CHAMELEON_Init( _nworkers_, _ncudas_ ) \
__chameleon_init( (_nworkers_), (_ncudas_) );
#define CHAMELEON_InitPar( _nworkers_, _ncudas_, _nthreads_per_worker_ ) \
Loading