From ab4167452719095e726b557ec5048bfce9825629 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Wed, 10 Oct 2018 07:56:34 -0500
Subject: [PATCH] Remove unused variables

---
 src/simulation.F90 | 14 --------------
 1 file changed, 14 deletions(-)

diff --git a/src/simulation.F90 b/src/simulation.F90
index c4158062eb..767ec52442 100644
--- a/src/simulation.F90
+++ b/src/simulation.F90
@@ -325,9 +325,6 @@ contains
   subroutine finalize_batch()
 
     integer(C_INT) :: err
-#ifdef OPENMC_MPI
-    integer :: mpi_err ! MPI error code
-#endif
     character(MAX_FILE_LEN) :: filename
 
     interface
@@ -477,17 +474,6 @@ contains
     integer(C_INT) :: err
 
     integer    :: i       ! loop index
-#ifdef OPENMC_MPI
-    integer    :: n       ! size of arrays
-    integer    :: mpi_err  ! MPI error code
-    integer    :: count_per_filter ! number of result values for one filter bin
-    real(8)    :: tempr(3) ! temporary array for communication
-#ifdef OPENMC_MPIF08
-    type(MPI_Datatype) :: result_block
-#else
-    integer :: result_block
-#endif
-#endif
 
     interface
       subroutine print_overlap_check() bind(C)