Commit 40cf503c authored by Daniel Wortmann's avatar Daniel Wortmann

Removed output to stdout for reading of q-vectors in force-theorem setups

parent 0f3a8f31
......@@ -2344,11 +2344,11 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu
n=xmlGetNumberOfNodes(TRIM(ADJUSTL(path))//'/q')
ALLOCATE(q(3,n))
DO i = 1, n
PRINT *, path,'/q[',i,']'
!PRINT *, path,'/q[',i,']'
WRITE(xPathA,"(a,a,i0,a)") TRIM(ADJUSTL(path)),'/q[',i,']'
PRINT *,xpatha
!PRINT *,xpatha
valueString = TRIM(ADJUSTL(xmlGetAttributeValue(TRIM(ADJUSTL(xPathA)))))
PRINT *,"Q:",valueString
!PRINT *,"Q:",valueString
READ(valueString,*) q(1,i),q(2,i),q(3,i)
END DO
END FUNCTION priv_read_q_list
......
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