From 314c9c246d6db054e64a061c569e1007630c829e Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sat, 25 Oct 2014 10:53:32 -0400 Subject: [PATCH] Pass argument to fatal_error. --- src/state_point.F90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/state_point.F90 b/src/state_point.F90 index 495fd11384..b39bda74de 100644 --- a/src/state_point.F90 +++ b/src/state_point.F90 @@ -305,7 +305,7 @@ contains ! Set filename filename = trim(path_output) // 'source.' // & & zero_padded(current_batch, count_digits(n_batches)) - + #ifdef HDF5 filename = trim(filename) // '.h5' #else @@ -572,9 +572,8 @@ contains call sp % read_data(restart_batch, "current_batch") if (restart_batch > n_batches) then - message = 'The number batches specified in settings.xml is fewer than' //& - & ' the number of batches in the given statepoint file.' - call fatal_error() + call fatal_error("The number batches specified in settings.xml is fewer & + & than the number of batches in the given statepoint file.") end if ! Read information specific to eigenvalue run