From a2f635065829b5c75e9a622cb090675173ff3fc1 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Mon, 30 Jul 2012 15:53:21 -0400
Subject: [PATCH] Prevent users from running fixed source with fissionable
 materials.

---
 src/ace.F90 | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/ace.F90 b/src/ace.F90
index 7325e6d3e4..c12915c4b1 100644
--- a/src/ace.F90
+++ b/src/ace.F90
@@ -268,6 +268,14 @@ contains
        call read_energy_dist(nuc)
        call read_unr_res(nuc)
 
+       ! Currently subcritical fixed source calculations are not allowed. Thus,
+       ! if any fissionable material is found in a fixed source calculation,
+       ! abort the run.
+       if (run_mode == MODE_FIXEDSOURCE .and. nuc % fissionable) then
+          message = "Cannot have fissionable material in a fixed source run."
+          call fatal_error()
+       end if
+
        ! for fissionable nuclides, precalculate microscopic nu-fission cross
        ! sections so that we don't need to call the nu_total function during
        ! cross section lookups