From cbe6560ba1d6e85d47f35a5645dfa0fac928ec8d Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Fri, 31 Jan 2014 11:34:07 -0500
Subject: [PATCH] message written when reading in source

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

diff --git a/src/source.F90 b/src/source.F90
index 4ec358776..85ef87d65 100644
--- a/src/source.F90
+++ b/src/source.F90
@@ -40,6 +40,9 @@ contains
       ! Read the source from a binary file instead of sampling from some
       ! assumed source distribution
 
+      message = 'Reading source file from ' // trim(path_source) // '...'
+      call write_message(6)
+
       ! Open the binary file
       call sp % file_open(path_source, 'r', serial = .false.)