Commit 06c7afb0 authored by Daniel Wortmann's avatar Daniel Wortmann

Added blanck line in front of stop messages to avoid messing up output with non-advancing IO before

parent 9c2ad1ba
...@@ -78,7 +78,7 @@ CONTAINS ...@@ -78,7 +78,7 @@ CONTAINS
ELSE ELSE
callstop = .TRUE. callstop = .TRUE.
ENDIF ENDIF
IF (.NOT.warn) THEN IF (.NOT.warn) THEN
WRITE(text(1),*) PE,"**************juDFT-Error*****************" WRITE(text(1),*) PE,"**************juDFT-Error*****************"
ELSE ELSE
...@@ -115,9 +115,11 @@ CONTAINS ...@@ -115,9 +115,11 @@ CONTAINS
linenr=linenr+1 linenr=linenr+1
WRITE(text(linenr),'(a)')"Warnings not ignored. Touch 'JUDFT_WARN_ONLY' to make the warning nonfatal" WRITE(text(linenr),'(a)')"Warnings not ignored. Touch 'JUDFT_WARN_ONLY' to make the warning nonfatal"
ENDIF ENDIF
write(0,"(10(a,/))") (trim(text(n)),n=1,linenr) WRITE(0,*)
WRITE(0,"(10(a,/))") (TRIM(text(n)),n=1,linenr)
CALL juDFT_STOP() CALL juDFT_STOP()
ENDIF ENDIF
WRITE(0,*)
write(0,"(10(a,/))") (trim(text(n)),n=1,linenr) write(0,"(10(a,/))") (trim(text(n)),n=1,linenr)
END SUBROUTINE juDFT_error END SUBROUTINE juDFT_error
...@@ -161,7 +163,7 @@ CONTAINS ...@@ -161,7 +163,7 @@ CONTAINS
CALL endXMLOutput() CALL endXMLOutput()
END IF END IF
END IF END IF
WRITE(0,*)
WRITE(0,*) "*****************************************" WRITE(0,*) "*****************************************"
WRITE(0,*) "Run finished successfully" WRITE(0,*) "Run finished successfully"
WRITE(0,*) "Stop message:" WRITE(0,*) "Stop message:"
......
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