Commit e98b33f2 authored by Daniel Wortmann's avatar Daniel Wortmann

Added a OMP Master in stop procedure. Hopefully makes stopping more robust...

parent 2e7cbaa0
......@@ -126,8 +126,9 @@ CONTAINS
WRITE(0,"(10(a,/))") (TRIM(text(n)),n=1,linenr)
CALL add_usage_data("Error",message)
!$OMP MASTER
CALL send_usage_data()
!$OMP END MASTER
CALL juDFT_STOP()
ENDIF
WRITE(0,*)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment