From ec0205694039940710a7e761641f1dab2810f0de Mon Sep 17 00:00:00 2001 From: Sterling Harper Date: Fri, 12 Sep 2014 18:46:21 -0400 Subject: [PATCH] Added error for restarts with small n_batches --- src/state_point.F90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/state_point.F90 b/src/state_point.F90 index ca260a40e7..0e8d9e5617 100644 --- a/src/state_point.F90 +++ b/src/state_point.F90 @@ -575,6 +575,12 @@ contains ! Read batch number to restart at 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() + end if + ! Read information specific to eigenvalue run if (run_mode == MODE_EIGENVALUE) then call sp % read_data(int_array(1), "n_inactive")