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 ...@@ -126,8 +126,9 @@ CONTAINS
WRITE(0,"(10(a,/))") (TRIM(text(n)),n=1,linenr) WRITE(0,"(10(a,/))") (TRIM(text(n)),n=1,linenr)
CALL add_usage_data("Error",message) CALL add_usage_data("Error",message)
!$OMP MASTER
CALL send_usage_data() CALL send_usage_data()
!$OMP END MASTER
CALL juDFT_STOP() CALL juDFT_STOP()
ENDIF ENDIF
WRITE(0,*) 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