From 3aa332e8d28452ebb8e8f41289a9222d563b7f68 Mon Sep 17 00:00:00 2001
From: Adam Nelson <nelsonag@umich.edu>
Date: Mon, 22 Feb 2016 21:43:03 -0500
Subject: [PATCH] Think I fixed the mpi problems; #2

---
 src/initialize.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/initialize.F90 b/src/initialize.F90
index 5b7cc8c063..52853f72ff 100644
--- a/src/initialize.F90
+++ b/src/initialize.F90
@@ -201,7 +201,7 @@ contains
 
   subroutine initialize_mpi()
 
-    integer                   :: bank_blocks(6)   ! Count for each datatype
+    integer                   :: bank_blocks(5)   ! Count for each datatype
 #ifdef MPIF08
     type(MPI_Datatype)        :: bank_types(5)
     type(MPI_Datatype)        :: result_types(1)