From 02a67e86b2281f92adb82d55f7b1713a69318489 Mon Sep 17 00:00:00 2001
From: Grzegorz Kowal <grzegorz@amuncode.org>
Date: Sat, 9 Aug 2014 09:31:52 -0300
Subject: [PATCH] DRIVER: Print information about the number of MPI processes
 used.

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

diff --git a/src/driver.F90 b/src/driver.F90
index e6d3b60..6b355ce 100644
--- a/src/driver.F90
+++ b/src/driver.F90
@@ -286,6 +286,14 @@ program amun
 !
   call get_parameter_integer("ndat" , ndat)
 
+! initialize MPI module and print info
+!
+  if (master) then
+    write (*,*)
+    write (*,"(1x,a)"        ) "Parallelization:"
+    write (*,"(4x,a,1x,i6 )" ) "MPI processes          =", nprocs
+  end if
+
 ! set up the MPI geometry
 !
   call setup_mpi(div(:), per(:), .false.)