From 71a0e03114cd92c94c04bbf3f1f524fa62470dd0 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Fri, 10 Dec 2021 10:45:33 -0300
Subject: [PATCH] STATISTICS: Fix mesh statistic header when MPI=off.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
---
 sources/statistics.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sources/statistics.F90 b/sources/statistics.F90
index aefaa30..0f29495 100644
--- a/sources/statistics.F90
+++ b/sources/statistics.F90
@@ -171,6 +171,8 @@ module statistics
 #ifdef MPI
       write(stmp,"(a,i0,a)") "(", max(1, 10 * toplev - 28), "x,'|',1x,a)"
       write(munit,stmp) "block distribution per process"
+#else /* MPI */
+      write(munit,"('')")
 #endif /* MPI */
       write(munit,"('#',75x,'|')", advance="no")
       do l = 1, toplev