From acb16a3e884b387bd2bf1eb75e25876a334ab9fe Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Fri, 29 Nov 2013 13:47:46 -0500
Subject: [PATCH] Prevent unused variable warning in cmfd_input.

---
 src/cmfd_input.F90 | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/cmfd_input.F90 b/src/cmfd_input.F90
index ac3d59824e..120db5f649 100644
--- a/src/cmfd_input.F90
+++ b/src/cmfd_input.F90
@@ -20,7 +20,9 @@ contains
 
     use cmfd_header,  only: allocate_cmfd
 
+#ifdef PETSC
     integer :: new_comm ! new mpi communicator
+#endif
     integer :: color    ! color group of processor
 
     ! Read in cmfd input file
@@ -34,17 +36,17 @@ contains
     end if
 
     ! Split up procs
-# ifdef PETSC 
+#ifdef PETSC
     call MPI_COMM_SPLIT(MPI_COMM_WORLD, color, 0, new_comm, mpi_err)
-# endif
+#endif
 
     ! assign to PETSc
-# ifdef PETSC
+#ifdef PETSC
     PETSC_COMM_WORLD = new_comm
 
     ! Initialize PETSc on all procs
     call PetscInitialize(PETSC_NULL_CHARACTER, mpi_err)
-# endif
+#endif
 
     ! Initialize timers
     call time_cmfd % reset()