diff --git a/sktwocnt/prog/input.f90 b/sktwocnt/prog/input.f90
index b1a9cf1f..bd8e9adc 100644
--- a/sktwocnt/prog/input.f90
+++ b/sktwocnt/prog/input.f90
@@ -2,7 +2,7 @@
 module input
 
   use common_accuracy, only : dp
-  use common_globalenv, only : stdOut
+  use common_globalenv, only : stdOut, abortProgram
   use gridorbital, only : TGridorb2_init
   use twocnt, only : TTwocntInp, TAtomdata
   use xcfunctionals, only : xcFunctional
@@ -460,7 +460,8 @@ subroutine error_(txt, fname, line, iLine)
     write(stdOut, "(2X,A,I0)") "Line number: ", iLine
     write(stdOut, "(2X,A,A,A)") "Line: '", trim(line), "'"
 
-    stop
+    flush(stdOut)
+    call abortProgram()
 
   end subroutine error_