Skip to content

GitLab

fleur
fleur
Commit 02dfc4f4 authored by Matthias Redies's avatar Matthias Redies
Browse files
Options

remove debugging output

parent 4d340c39
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 2 deletions
io/r_inpXML.F90
View file @ 02dfc4f4
...@@ -1145,10 +1145,8 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu ...@@ -1145,10 +1145,8 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu
IF(xmlGetNumberOfNodes(TRIM(xPathB) // '/@etot_exchange') == 1) THEN IF(xmlGetNumberOfNodes(TRIM(xPathB) // '/@etot_exchange') == 1) THEN
valueString = TRIM(ADJUSTL(xmlGetAttributeValue(TRIM(xPathB) // '/@etot_exchange'))) valueString = TRIM(ADJUSTL(xmlGetAttributeValue(TRIM(xPathB) // '/@etot_exchange')))
exc_id_x = xc_f03_functional_get_number(TRIM(valueString)) exc_id_x = xc_f03_functional_get_number(TRIM(valueString))
write (*,*) "read exc_id_x"
ELSE ELSE
exc_id_x = vxc_id_x exc_id_x = vxc_id_x
write (*,*) "ignore exc_id_x"
ENDIF ENDIF
IF(xmlGetNumberOfNodes(TRIM(xPathB) // '/@etot_correlation') == 1) THEN IF(xmlGetNumberOfNodes(TRIM(xPathB) // '/@etot_correlation') == 1) THEN
......
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