Commit 3a5fa2e4 authored by Daniel Wortmann's avatar Daniel Wortmann

Small bugfix for E-Fields

parent c06c57f7
......@@ -725,7 +725,8 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu
WRITE(xPathB,"(a,a,i0,a)") TRIM(ADJUSTL(xpathA)),'/shape[',i,']'
field%efield%shapes(i)=TRIM(ADJUSTL(xmlGetAttributeValue(TRIM(ADJUSTL(xPathB)))))
ENDDO
ELSE
ALLOCATE(field%efield%shapes(0))
END IF
! Read in optional energy parameter limits
......
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