Replace non-standard exit calls with fortran stop

mkrack · Mar 8, 2022 · 7ee0cc0 · 7ee0cc0
1 parent 70f9198
commit 7ee0cc0
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/src/w90chk2chk.F90 b/src/w90chk2chk.F90
@@ -131,7 +131,7 @@ subroutine io_error(error_msg, stdout, seedname)
     close (stdout)
     write (*, '(1x,a)') trim(error_msg)
     write (*, '(A)') "Error: examine the output/error file for details"
-    call exit(1)
+    stop
   end subroutine io_error
 
   subroutine print_usage(stdout)

diff --git a/src/w90spn2spn.F90 b/src/w90spn2spn.F90
@@ -59,7 +59,7 @@ subroutine io_error(error_msg, stdout, seedname)
     close (stdout)
     write (*, '(1x,a)') trim(error_msg)
     write (*, '(A)') "Error: examine the output/error file for details"
-    call exit(1)
+    stop
   end subroutine io_error
 
   !================================================!

diff --git a/src/wannier_lib.F90 b/src/wannier_lib.F90
@@ -123,7 +123,8 @@ subroutine prterr(error, stdout)
     ! rep old behaviour for a moment while testing...
     write (stdout, *) 'Exiting.......'
     write (stdout, *) error%message
-    call exit(error%code)
+    stop
+    !call exit(error%code)
   end subroutine prterr
 end module w90_libv1_types