| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | /*********************************************************************************/ | ||
| 2 | /* Copyright 2009-2021 Barcelona Supercomputing Center */ | ||
| 3 | /* */ | ||
| 4 | /* This file is part of the DLB library. */ | ||
| 5 | /* */ | ||
| 6 | /* DLB is free software: you can redistribute it and/or modify */ | ||
| 7 | /* it under the terms of the GNU Lesser General Public License as published by */ | ||
| 8 | /* the Free Software Foundation, either version 3 of the License, or */ | ||
| 9 | /* (at your option) any later version. */ | ||
| 10 | /* */ | ||
| 11 | /* DLB is distributed in the hope that it will be useful, */ | ||
| 12 | /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ | ||
| 13 | /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ | ||
| 14 | /* GNU Lesser General Public License for more details. */ | ||
| 15 | /* */ | ||
| 16 | /* You should have received a copy of the GNU Lesser General Public License */ | ||
| 17 | /* along with DLB. If not, see <https://www.gnu.org/licenses/>. */ | ||
| 18 | /*********************************************************************************/ | ||
| 19 | |||
| 20 | #include "support/dlb_common.h" | ||
| 21 | |||
| 22 | #ifdef MPI_LIB | ||
| 23 | #include <mpi.h> | ||
| 24 | #include "mpi/mpi_core.h" | ||
| 25 | void mpi_barrier_(MPI_Comm *, int *) __attribute__((weak)); | ||
| 26 | |||
| 27 | DLB_EXPORT_SYMBOL | ||
| 28 | void dlb_mpi_node_barrier(void) { | ||
| 29 | if (is_mpi_ready()) { | ||
| 30 | int ierror; | ||
| 31 | MPI_Comm mpi_comm_node = getNodeComm(); | ||
| 32 | if (mpi_barrier_) { | ||
| 33 | mpi_barrier_(&mpi_comm_node, &ierror); | ||
| 34 | } else { | ||
| 35 | warning("MPI_Barrier symbol could not be found. Please report a ticket."); | ||
| 36 | } | ||
| 37 | } | ||
| 38 | } | ||
| 39 | #else | ||
| 40 | DLB_EXPORT_SYMBOL | ||
| 41 | ✗ | void dlb_mpi_node_barrier(void) {} | |
| 42 | #endif | ||
| 43 | |||
| 44 | DLB_EXPORT_SYMBOL | ||
| 45 | DLB_ALIAS(void, dlb_mpi_node_barrier_, (void), (), dlb_mpi_node_barrier) | ||
| 46 | |||
| 47 | DLB_EXPORT_SYMBOL | ||
| 48 | DLB_ALIAS(void, dlb_mpi_node_barrier__, (void), (), dlb_mpi_node_barrier) | ||
| 49 |