From 5f0ae4fe7aa8f728abd1da47e5df434e4be8ddf7 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Fri, 27 May 2022 06:41:55 +0200
Subject: [PATCH] user errors are catched earlier

internal errors (essentially programming faults) should stop with 'error
stop'
---
 src/Marc/element.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Marc/element.f90 b/src/Marc/element.f90
index 295a41547..b53322f34 100644
--- a/src/Marc/element.f90
+++ b/src/Marc/element.f90
@@ -714,7 +714,7 @@ subroutine tElement_init(self,elemType)
     case(13)
       self%cellNodeParentNodeWeights = CELLNODEPARENTNODEWEIGHTS13
     case default
-      call IO_error(0,ext_msg='invalid element type')
+      error stop 'invalid element type'
   end select