1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
From: Stuart Prescott <stuart@debian.org>
Date: Sun, 9 Feb 2020 21:26:33 +1100
Subject: Port to MPI 3.0
---
src/init.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/init.c b/src/init.c
index 9af90f7..11ed514 100644
--- a/src/init.c
+++ b/src/init.c
@@ -413,7 +413,7 @@ void gfs_init (int * argc, char *** argv)
}
else
MPI_Init (argc, argv);
- MPI_Errhandler_set (MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL);
+ MPI_Comm_set_errhandler (MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL);
}
atexit ((AtExitFunc) MPI_Finalize);
#endif /* HAVE_MPI */
|
