Commit 314fab33 authored by Matthias Redies's avatar Matthias Redies

remove debugging output

parent a732811a
...@@ -1121,18 +1121,14 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu ...@@ -1121,18 +1121,14 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu
IF(xmlGetNumberOfNodes(TRIM(xPathA) // '/@etot_exchange') == 1) THEN IF(xmlGetNumberOfNodes(TRIM(xPathA) // '/@etot_exchange') == 1) THEN
exc_id_x = evaluateFirstOnly(xmlGetAttributeValue(xPathA // '/@etot_exchange')) exc_id_x = evaluateFirstOnly(xmlGetAttributeValue(xPathA // '/@etot_exchange'))
write (*,*) "read exc_id_x", exc_id_x
ELSE ELSE
exc_id_x = vxc_id_x exc_id_x = vxc_id_x
write (*,*) "ignore exc_id_x", exc_id_x
ENDIF ENDIF
IF(xmlGetNumberOfNodes(TRIM(xPathA) // '/@exc_correlation') == 1) THEN IF(xmlGetNumberOfNodes(TRIM(xPathA) // '/@exc_correlation') == 1) THEN
exc_id_c = evaluateFirstOnly(xmlGetAttributeValue(xPathA // '/@exc_correlation')) exc_id_c = evaluateFirstOnly(xmlGetAttributeValue(xPathA // '/@exc_correlation'))
write (*,*) "read exc_id_c", exc_id_x
ELSE ELSE
exc_id_c = vxc_id_c exc_id_c = vxc_id_c
write (*,*) "ignore exc_id_c", exc_id_x
ENDIF ENDIF
#else #else
CALL judft_error("To use libxc functionals you have to compile with libXC support") CALL judft_error("To use libxc functionals you have to compile with libXC support")
......
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