From e25225d99334e3208924b25ca148e9b5f337e8ea Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Tue, 20 Dec 2011 15:00:26 -0500
Subject: [PATCH] Moved MPI_BANK to global module.

---
 src/global.F90       | 1 +
 src/mpi_routines.F90 | 3 ---
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/global.F90 b/src/global.F90
index e904f64a29..dc3d01092b 100644
--- a/src/global.F90
+++ b/src/global.F90
@@ -129,6 +129,7 @@ module global
   logical :: master      ! master process?
   logical :: mpi_enabled ! is MPI in use and initialized?
   integer :: mpi_err     ! MPI error code
+  integer :: MPI_BANK    ! MPI datatype for fission bank
 
   ! ============================================================================
   ! TIMING VARIABLES
diff --git a/src/mpi_routines.F90 b/src/mpi_routines.F90
index 38029a36bd..8d6e07a076 100644
--- a/src/mpi_routines.F90
+++ b/src/mpi_routines.F90
@@ -15,9 +15,6 @@ module mpi_routines
 
   implicit none
 
-  integer    :: MPI_BANK   ! MPI datatype for fission bank
-  integer(8) :: bank_index ! Fission bank site unique identifier
-
 contains
 
 !===============================================================================