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