From 2e62c7a20fdeb4a04609c5387f7ea6cfd9c703d5 Mon Sep 17 00:00:00 2001 From: Gregor Michalicek Date: Thu, 4 May 2017 18:04:20 +0200 Subject: [PATCH] Eliminated circular dependence juDFT<->xmlOutput --- io/xmlOutput.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/io/xmlOutput.F90 b/io/xmlOutput.F90 index e9ec84ac..51597b28 100644 --- a/io/xmlOutput.F90 +++ b/io/xmlOutput.F90 @@ -41,7 +41,8 @@ MODULE m_xmlOutput END FUNCTION getXMLOutputUnitNumber SUBROUTINE startXMLOutput() - USE m_judft + + USE m_juDFT_args USE m_constants USE m_utility USE m_compile_descr @@ -71,7 +72,7 @@ MODULE m_xmlOutput CALL DATE_AND_TIME(date,time,zone) WRITE(dateString,'(a4,a1,a2,a1,a2)') date(1:4),'/',date(5:6),'/',date(7:8) WRITE(timeString,'(a2,a1,a2,a1,a2)') time(1:2),':',time(3:4),':',time(5:6) - IF (judft_was_argument("-info")) THEN + IF (juDFT_was_argument("-info")) THEN OPEN (xmlOutputUnit,status='scratch') ELSE OPEN (xmlOutputUnit,file='out.xml',form='formatted',status='unknown') -- 2.22.0