From aed80ac08d6aa1f42249f93d52a2fdfbfea535b0 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Tue, 20 Dec 2011 12:50:08 -0500
Subject: [PATCH] Added check for unsupported external source type.

---
 src/source.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/source.F90 b/src/source.F90
index b3b9a552f1..dae40548a7 100644
--- a/src/source.F90
+++ b/src/source.F90
@@ -72,6 +72,10 @@ contains
     if (external_source%type == SRC_BOX) then
        p_min = external_source%values(1:3)
        p_max = external_source%values(4:6)
+    else
+       message = "Unsupported external source type: " // &
+            int_to_str(external_source%type)
+       call fatal_error()
     end if
 
     ! Initialize first cycle source bank