From cfa2be44e9ffead434a0fb7e5886caae28ea9a62 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 27 May 2022 08:48:42 +0200 Subject: [PATCH] internal errors should trigger error stop --- src/lattice.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index afff2a309..1c1cdf67a 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -1431,7 +1431,7 @@ function lattice_SchmidMatrix_slip(Nslip,lattice,cOverA) result(SchmidMatrix) do i = 1, sum(Nslip) SchmidMatrix(1:3,1:3,i) = math_outer(coordinateSystem(1:3,1,i),coordinateSystem(1:3,2,i)) if (abs(math_trace33(SchmidMatrix(1:3,1:3,i))) > tol_math_check) & - call IO_error(0,i,ext_msg = 'dilatational Schmid matrix for slip') + error stop 'dilatational Schmid matrix for slip' enddo end function lattice_SchmidMatrix_slip @@ -1478,7 +1478,7 @@ function lattice_SchmidMatrix_twin(Ntwin,lattice,cOverA) result(SchmidMatrix) do i = 1, sum(Ntwin) SchmidMatrix(1:3,1:3,i) = math_outer(coordinateSystem(1:3,1,i),coordinateSystem(1:3,2,i)) if (abs(math_trace33(SchmidMatrix(1:3,1:3,i))) > tol_math_check) & - call IO_error(0,i,ext_msg = 'dilatational Schmid matrix for twin') + error stop 'dilatational Schmid matrix for twin' enddo end function lattice_SchmidMatrix_twin