Add STOP to wannier_prog prterr

mkrack · Mar 3, 2022 · f69b0cc · f69b0cc
1 parent 90c7bbc
commit f69b0cc
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/postw90/postw90.F90 b/src/postw90/postw90.F90
@@ -165,7 +165,7 @@ program postw90
 
   complex(kind=dp), allocatable :: v_matrix(:, :, :)
 
-  integer :: my_node_id, num_nodes
+  integer :: my_node_id, num_nodes, ierr
 
   logical :: effective_model = .false.
   logical :: gamma_only

diff --git a/src/wannier_prog.F90 b/src/wannier_prog.F90
@@ -641,6 +641,7 @@ subroutine prterr(error, stdout, stderr, comm)
     call mpi_finalize(je) ! je overwritten here
 #endif
     !call exit(ie) ! return true fail code (gnu extension)
+    stop
   end subroutine prterr
 
 end program wannier