Address the feedback of the code review

Co-authored-by: Ben Hourahine <benjamin.hourahine@strath.ac.uk>
dftbplus · Aug 25, 2024 · aa34b49 · aa34b49
1 parent f9d3e84
commit aa34b49
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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_