From 17793dfdcfdbbe97ecc2320876898b425c622782 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Wed, 5 Mar 2014 17:42:45 -0500
Subject: [PATCH] check filetype before reading in source

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

diff --git a/src/source.F90 b/src/source.F90
index 8e83b2ee9..2d3f74ec9 100644
--- a/src/source.F90
+++ b/src/source.F90
@@ -49,6 +49,12 @@ contains
       ! Read the file type
       call sp % read_data(itmp, "filetype")
 
+      ! Check to make sure this is a source file
+      if (itmp /= FILETYPE_SOURCE) then
+        message = "Specified starting source file not a source file type."
+        call fatal_error()
+      end if
+
       ! Read in the source bank
       call sp % read_source_bank()