Commit 42b3915c authored by Gregor Michalicek's avatar Gregor Michalicek

Initialize input%film in io/r_inpXML.F90 for inpeig call.

...it is also initialized at a later point in io/r_inpXML.F90.
parent f668d86c
......@@ -565,6 +565,13 @@ input%preconditioning_param = evaluateFirstOnly(xmlGetAttributeValue('/fleurInpu
l_kpts = .TRUE.
kpts%specificationType = 3
kpts%posScale=1.0
! We need to set input%film for inpeig. Unfortunately this is actually initialized at a later stage.
! So we do it here additionally.
input%film = .FALSE.
numberNodes = xmlGetNumberOfNodes('/fleurInput/cell/filmLattice')
IF (numberNodes.EQ.1) input%film = .TRUE.
CALL inpeig(atoms,cell,input,.FALSE.,kpts,kptsFilename=TRIM(ADJUSTL(valueString)))
END IF
......
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