improved consistency check on loadcase

This commit is contained in:
Martin Diehl 2015-10-12 19:02:42 +00:00
parent f1482a2af4
commit 6de8c821f8
1 changed files with 2 additions and 2 deletions

View File

@ -188,7 +188,7 @@ program DAMASK_spectral_Driver
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'