From 59b703a5a799198ab5136907269f0ef7b9412ede Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Thu, 17 Oct 2013 08:49:50 -0400
Subject: [PATCH 1/2] bumped version to 0.5.3

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

diff --git a/src/constants.F90 b/src/constants.F90
index 558772286..e9999c0bd 100644
--- a/src/constants.F90
+++ b/src/constants.F90
@@ -8,7 +8,7 @@ module constants
   ! OpenMC major, minor, and release numbers
   integer, parameter :: VERSION_MAJOR   = 0
   integer, parameter :: VERSION_MINOR   = 5
-  integer, parameter :: VERSION_RELEASE = 2
+  integer, parameter :: VERSION_RELEASE = 3
 
   ! Revision numbers for binary files
   integer, parameter :: REVISION_STATEPOINT       = 10

From 78865f2f67c89d89181112bde1e52f577b98f394 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Mon, 21 Oct 2013 16:32:22 -0400
Subject: [PATCH 2/2] when loading statepoints, file should be opened in
 parallel

---
 src/output_interface.F90 |  6 ++++++
 src/state_point.F90      | 17 +----------------
 2 files changed, 7 insertions(+), 16 deletions(-)

diff --git a/src/output_interface.F90 b/src/output_interface.F90
index 8137fb63d..f7b342e50 100644
--- a/src/output_interface.F90
+++ b/src/output_interface.F90
@@ -1644,6 +1644,12 @@ contains
     call h5dclose_f(dset, hdf5_err)
     if (present(group)) call hdf5_close_group(self % hdf5_grp)
 
+# elif MPI
+
+    ! Write out tally buffer
+    call MPI_FILE_READ(self % unit_fh, buffer, n1*n2, MPI_TALLYRESULT, &
+         MPI_STATUS_IGNORE, mpiio_err)
+
 #else
 
     ! Read tally result
diff --git a/src/state_point.F90 b/src/state_point.F90
index 9ad9b8d9f..3793923bb 100644
--- a/src/state_point.F90
+++ b/src/state_point.F90
@@ -474,7 +474,7 @@ contains
     call write_message(1)
 
     ! Open file for reading
-    call sp % file_open(path_state_point, 'r')
+    call sp % file_open(path_state_point, 'r', serial = .false.)
 
     ! Read filetype
     call sp % read_data(int_array(1), "filetype")
@@ -705,13 +705,6 @@ contains
 
         end do TALLY_RESULTS
       end if
-
-#ifdef MPI
-      ! If using MPI, file needs to be closed and reopened in parallel
-      ! If serial, we cannot close the file or we will lose our file position
-      call sp % file_close()
-# endif
-
     end if
 
     ! Read source if in eigenvalue mode 
@@ -739,14 +732,6 @@ contains
         ! Open source file 
         call sp % file_open(filename, 'r', serial = .false.)
 
-      else
-
-#ifdef MPI
-      ! Reopen statepoint file in parallel, but only if MPI
-      ! We will compute the position where the source begins
-      call sp % file_open(path_state_point, 'r', serial = .false.)
-#endif
-
       end if
 
       ! Write out source