From 33e666c1fbd06fd4fb9907686550ee264ba0d085 Mon Sep 17 00:00:00 2001
From: Antoine <antoine.hoffmann@epfl.ch>
Date: Tue, 14 May 2024 18:00:57 +0200
Subject: [PATCH] remove std before mpi init
---
src/control.F90 | 1 -
1 file changed, 1 deletion(-)
diff --git a/src/control.F90 b/src/control.F90
index e0c326b..81412cc 100644
--- a/src/control.F90
+++ b/src/control.F90
@@ -20,7 +20,6 @@ SUBROUTINE control
! ] 1. Prologue
! 1.0 Initialize the parallel environment
- CALL speak('Init MPI [',2)
CALL ppinit
CALL speak('] MPI initialized',2)
CALL mpi_barrier(MPI_COMM_WORLD, ierr)
--
GitLab