File: git-mpi-init-called

package info (click to toggle)
eztrace 2.0%2Brepack-12
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 4,132 kB
  • sloc: ansic: 23,501; perl: 910; sh: 857; cpp: 771; makefile: 696; fortran: 327; f90: 320; python: 57
file content (19 lines) | stat: -rw-r--r-- 537 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
commit 5dd04e6bf4db2384d436fa75731352e8f1c941c9
Author: François Trahay <francois.trahay@telecom-sudparis.eu>
Date:   Thu Aug 25 11:35:55 2022 +0200

    MPI: avoid multiple initialization

diff --git a/src/modules/mpi/mpi.c b/src/modules/mpi/mpi.c
index 6485b191..2742c4b4 100644
--- a/src/modules/mpi/mpi.c
+++ b/src/modules/mpi/mpi.c
@@ -475,6 +475,8 @@ void ezt_mpi_initialize_trace();
  * and set the trace filename.
  */
 void _mpi_init_generic() {
+  if(_mpi_init_called)
+    return;
 
   int ret __attribute__((__unused__));