Commit 10a1c707 authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed missing initialization of cell%z1

The initialization was missing if no film calculation
was performed. I don't know why this variable is needed
in this case anyway. Hope the fix always works.
parent 99ec80be
......@@ -1013,6 +1013,7 @@ SUBROUTINE r_inpXML(&
END SELECT
IF (latticeScale.EQ.0.0) latticeScale = 1.0
IF (.NOT.input%film) vacuum%dvac = a3(3)
vacuum%dvac = latticeScale*vacuum%dvac
dtild = latticeScale*dtild
......
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