From b4122c7319d22cbabe5ffd4796eb5e216c83a98c Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Tue, 22 Oct 2013 09:22:08 -0400
Subject: [PATCH] when opening separate source file, read filetype first

---
 src/state_point.F90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/state_point.F90 b/src/state_point.F90
index 74d0f6054..306fb8f37 100644
--- a/src/state_point.F90
+++ b/src/state_point.F90
@@ -783,6 +783,9 @@ contains
         ! Open source file 
         call sp % file_open(filename, 'r', serial = .false.)
 
+        ! Read file type
+        call sp % read_data(int_array(1), "filetype")
+
       end if
 
       ! Write out source