From 2a95ef7a425af3b498fd95afe3ef7917efea33fe Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Thu, 25 Sep 2014 21:29:07 -0400
Subject: [PATCH] If "current" score is specified, make sure a mesh filter is
 also specified. Closes #322 on github.

---
 src/input_xml.F90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/input_xml.F90 b/src/input_xml.F90
index c7bf3ef17a..869f9fd63f 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -2647,6 +2647,12 @@ contains
             ! Get index of mesh filter
             k = t % find_filter(FILTER_MESH)
 
+            ! Check to make sure mesh filter was specified
+            if (k == 0) then
+              message = "Cannot tally surface current without a mesh filter."
+              call fatal_error()
+            end if
+
             ! Get pointer to mesh
             i_mesh = t % filters(k) % int_bins(1)
             m => meshes(i_mesh)