From 06c7afb0f8b8a7f52afb3c1dc9d2066b2947f484 Mon Sep 17 00:00:00 2001 From: Daniel Wortmann Date: Tue, 26 Sep 2017 11:40:50 +0200 Subject: [PATCH] Added blanck line in front of stop messages to avoid messing up output with non-advancing IO before --- juDFT/stop.F90 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/juDFT/stop.F90 b/juDFT/stop.F90 index e47a715d..3a75798c 100644 --- a/juDFT/stop.F90 +++ b/juDFT/stop.F90 @@ -78,7 +78,7 @@ CONTAINS ELSE callstop = .TRUE. ENDIF - + IF (.NOT.warn) THEN WRITE(text(1),*) PE,"**************juDFT-Error*****************" ELSE @@ -115,9 +115,11 @@ CONTAINS linenr=linenr+1 WRITE(text(linenr),'(a)')"Warnings not ignored. Touch 'JUDFT_WARN_ONLY' to make the warning nonfatal" 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() ENDIF + WRITE(0,*) write(0,"(10(a,/))") (trim(text(n)),n=1,linenr) END SUBROUTINE juDFT_error @@ -161,7 +163,7 @@ CONTAINS CALL endXMLOutput() END IF END IF - + WRITE(0,*) WRITE(0,*) "*****************************************" WRITE(0,*) "Run finished successfully" WRITE(0,*) "Stop message:" -- GitLab