user errors are catched earlier

internal errors (essentially programming faults) should stop with 'error stop'
2022-05-27 06:41:55 +02:00 · 2022-05-27 06:41:55 +02:00 · 5f0ae4fe7a
parent 79fad5ca19
commit 5f0ae4fe7a
1 changed files with 1 additions and 1 deletions
--- 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