From 4b10522bee228df137d606a3b7271af26137837b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 28 Jun 2019 17:52:38 -0700 Subject: [PATCH] catch user inputs that result in division by zero --- src/grid/DAMASK_grid.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index 5d78f8f13..5beab767d 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -299,6 +299,7 @@ program DAMASK_spectral write(6,'(2x,a,i5)') 'increments: ', newLoadCase%incs if (newLoadCase%outputfrequency < 1) errorID = 836 ! non-positive result frequency write(6,'(2x,a,i5)') 'output frequency: ', newLoadCase%outputfrequency + if (newLoadCase%restartfrequency < 1) errorID = 836 ! non-positive restart frequency write(6,'(2x,a,i5)') 'restart frequency: ', newLoadCase%restartfrequency if (errorID > 0) call IO_error(error_ID = errorID, ext_msg = loadcase_string) ! exit with error message endif reportAndCheck