Mentions légales du service

Skip to content
Snippets Groups Projects
Commit eeb5b7c2 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Merge branch 'mpi_redux_wrapup_detection' into 'master'

Added _starpu_mpi_redux_wrapup_data detection for MPI reductions

See merge request !441
parents 4dafc83f d04f97d1
No related branches found
No related tags found
1 merge request!441Added _starpu_mpi_redux_wrapup_data detection for MPI reductions
...@@ -140,6 +140,10 @@ if ( STARPU_FOUND ) ...@@ -140,6 +140,10 @@ if ( STARPU_FOUND )
if ( HAVE_STARPU_MPI_REDUX ) if ( HAVE_STARPU_MPI_REDUX )
message("-- ${Blue}Add definition HAVE_STARPU_MPI_REDUX${ColourReset}") message("-- ${Blue}Add definition HAVE_STARPU_MPI_REDUX${ColourReset}")
endif() endif()
check_function_exists(_starpu_mpi_redux_wrapup_data HAVE_STARPU_MPI_REDUX_WRAPUP)
if ( HAVE_STARPU_MPI_REDUX_WRAPUP )
message("-- ${Blue}Add definition HAVE_STARPU_MPI_REDUX_WRAPUP${ColourReset}")
endif()
check_function_exists(starpu_mpi_data_cpy_priority HAVE_STARPU_MPI_DATA_CPY_PRIORITY) check_function_exists(starpu_mpi_data_cpy_priority HAVE_STARPU_MPI_DATA_CPY_PRIORITY)
if ( HAVE_STARPU_MPI_DATA_CPY_PRIORITY ) if ( HAVE_STARPU_MPI_DATA_CPY_PRIORITY )
message("-- ${Blue}Add definition HAVE_STARPU_MPI_DATA_CPY_PRIORITY${ColourReset}") message("-- ${Blue}Add definition HAVE_STARPU_MPI_DATA_CPY_PRIORITY${ColourReset}")
......
...@@ -304,14 +304,14 @@ void RUNTIME_ipiv_reducek( const RUNTIME_option_t *options, ...@@ -304,14 +304,14 @@ void RUNTIME_ipiv_reducek( const RUNTIME_option_t *options,
starpu_data_handle_t nextpiv = RUNTIME_pivot_getaddr( ipiv, k, h ); starpu_data_handle_t nextpiv = RUNTIME_pivot_getaddr( ipiv, k, h );
starpu_data_handle_t prevpiv = RUNTIME_pivot_getaddr( ipiv, k, h-1 ); starpu_data_handle_t prevpiv = RUNTIME_pivot_getaddr( ipiv, k, h-1 );
if ( h < ipiv->n ) {
#if defined(HAVE_STARPU_MPI_REDUX) && defined(CHAMELEON_USE_MPI) #if defined(HAVE_STARPU_MPI_REDUX) && defined(CHAMELEON_USE_MPI)
#if !defined(HAVE_STARPU_MPI_REDUX_WRAPUP) #if !defined(HAVE_STARPU_MPI_REDUX_WRAPUP)
if ( h < ipiv->n ) {
starpu_mpi_redux_data_prio_tree( MPI_COMM_WORLD, nextpiv, starpu_mpi_redux_data_prio_tree( MPI_COMM_WORLD, nextpiv,
options->priority, 2 /* Binary tree */ ); options->priority, 2 /* Binary tree */ );
}
#endif #endif
#endif #endif
}
/* Invalidate the previous pivot structure for correct initialization in later reuse */ /* Invalidate the previous pivot structure for correct initialization in later reuse */
if ( h > 0 ) { if ( h > 0 ) {
......
...@@ -51,6 +51,7 @@ ...@@ -51,6 +51,7 @@
#cmakedefine HAVE_STARPU_MPI_INTERFACE_DATATYPE_NODE_REGISTER #cmakedefine HAVE_STARPU_MPI_INTERFACE_DATATYPE_NODE_REGISTER
#cmakedefine HAVE_STARPU_MPI_INTERFACE_DATATYPE_REGISTER #cmakedefine HAVE_STARPU_MPI_INTERFACE_DATATYPE_REGISTER
#cmakedefine HAVE_STARPU_MPI_REDUX #cmakedefine HAVE_STARPU_MPI_REDUX
#cmakedefine HAVE_STARPU_MPI_REDUX_WRAPUP
#cmakedefine HAVE_STARPU_MPI_DATA_CPY_PRIORITY #cmakedefine HAVE_STARPU_MPI_DATA_CPY_PRIORITY
#if (!defined(HAVE_STARPU_MPI_INTERFACE_DATATYPE_NODE_REGISTER) && !defined(HAVE_STARPU_MPI_INTERFACE_DATATYPE_REGISTER)) && defined(CHAMELEON_USE_MPI_DATATYPES) #if (!defined(HAVE_STARPU_MPI_INTERFACE_DATATYPE_NODE_REGISTER) && !defined(HAVE_STARPU_MPI_INTERFACE_DATATYPE_REGISTER)) && defined(CHAMELEON_USE_MPI_DATATYPES)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment