From 6de8c821f8feac7618e0d6a126b382571875271c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 12 Oct 2015 19:02:42 +0000 Subject: [PATCH] improved consistency check on loadcase --- code/DAMASK_spectral_driver.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/DAMASK_spectral_driver.f90 b/code/DAMASK_spectral_driver.f90 index b5f283b30..8b7f3b718 100644 --- a/code/DAMASK_spectral_driver.f90 +++ b/code/DAMASK_spectral_driver.f90 @@ -185,10 +185,10 @@ program DAMASK_spectral_Driver case('n','incs','increments','steps','logincs','logincrements','logsteps') N_n = N_n + 1_pInt end select - enddo ! count all identifiers to allocate memory and do sanity check + enddo ! count all identifiers to allocate memory and do sanity check enddo - if ((N_def /= N_n) .or. (N_n /= N_t)) & ! sanity check + if ((N_def /= N_n) .or. (N_n /= N_t) .or. N_n < 1_pInt) & ! sanity check call IO_error(error_ID=837_pInt,ext_msg = trim(loadCaseFile)) ! error message for incomplete loadcase allocate (loadCases(N_n)) ! array of load cases loadCases%P%myType='p'