Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 43ad8683 authored by SYLVAND Guillaume's avatar SYLVAND Guillaume
Browse files

Fix hmat_set_worker_index_function function prototype by adding a wrapper

parent cb7a6020
Branches
No related tags found
No related merge requests found
#include "main.h" #include "main.h"
#include <fenv.h> #include <fenv.h>
#if defined(HAVE_CHAMELEON) && defined(CHAMELEON_USE_HMAT)
#include <chameleon/runtime.h>
int get_worker_id( void )
{
return RUNTIME_thread_rank( NULL );
}
#endif
/*! \brief Runs the test of H-chameleon matrices : gemv, solve /*! \brief Runs the test of H-chameleon matrices : gemv, solve
*/ */
int testHCHAMELEON(void) { int testHCHAMELEON(void) {
...@@ -13,7 +23,7 @@ int testHCHAMELEON(void) { ...@@ -13,7 +23,7 @@ int testHCHAMELEON(void) {
Mpf_printf(MPI_COMM_WORLD,"<PERFTESTS> HRecompressionAccuracy = %.4e \n", mpf_hmat_settings.epsilon); Mpf_printf(MPI_COMM_WORLD,"<PERFTESTS> HRecompressionAccuracy = %.4e \n", mpf_hmat_settings.epsilon);
//feenableexcept (FE_INVALID|FE_DIVBYZERO|FE_OVERFLOW) ; //feenableexcept (FE_INVALID|FE_DIVBYZERO|FE_OVERFLOW) ;
hmat_set_worker_index_function((int (*)(void))RUNTIME_thread_rank); hmat_set_worker_index_function( get_worker_id );
ierr = MPI_Comm_rank(MPI_COMM_WORLD, &rank); CHKERRQ(ierr); ierr = MPI_Comm_rank(MPI_COMM_WORLD, &rank); CHKERRQ(ierr);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment