From 1c8eb1920db91a590f1cc533ed8cfa5ec41b41dc Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Sat, 22 Feb 2014 15:14:26 -0500
Subject: [PATCH] fixed integer type for filetype during read source

---
 src/source.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/source.F90 b/src/source.F90
index 85ef87d65f..8e83b2ee91 100644
--- a/src/source.F90
+++ b/src/source.F90
@@ -29,7 +29,7 @@ contains
 
     integer(8) :: i          ! loop index over bank sites
     integer(8) :: id         ! particle id
-    integer(8) :: itmp       ! temporary integer
+    integer(4) :: itmp       ! temporary integer
     type(Bank), pointer :: src => null() ! source bank site
     type(BinaryOutput) :: sp ! statepoint/source binary file