From 1add48611585d1a2fd9d58e74492925973e5dc59 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 10 Sep 2022 23:37:39 +0200
Subject: [PATCH] don't rely on PETSc for MPI init

---
 src/parallelization.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/parallelization.f90 b/src/parallelization.f90
index 5c7e9bff3..fc328001a 100644
--- a/src/parallelization.f90
+++ b/src/parallelization.f90
@@ -67,10 +67,12 @@ subroutine parallelization_init
   PetscErrorCode :: err_PETSc
 #ifdef _OPENMP
   ! If openMP is enabled, check if the MPI libary supports it and initialize accordingly.
-  ! Otherwise, the first call to PETSc will do the initialization.
   call MPI_Init_Thread(MPI_THREAD_FUNNELED,threadLevel,err_MPI)
   if (err_MPI /= 0_MPI_INTEGER_KIND)   error stop 'MPI init failed'
   if (threadLevel<MPI_THREAD_FUNNELED) error stop 'MPI library does not support OpenMP'
+#else
+  call MPI_Init(err_MPI)
+  if (err_MPI /= 0_MPI_INTEGER_KIND)   error stop 'MPI init failed'
 #endif
 
 #if defined(DEBUG)