Commit 72499f04 authored by Gregor Michalicek's avatar Gregor Michalicek

Added missing initialization in io/calculator.f

The debug version of fleur coplained that some variable
was not initialized. This was due to a code path invoked by
a bad conventional inp file. Nevertheless I added the
missing initialization.
parent aa5fc5a3
......@@ -591,6 +591,8 @@
REAL :: nextnumber
!>
number = 0
CALL priv_peeknextatom(string, nextnumber, nextcommand)
IF (TRIM(nextcommand) == 'end') CALL priv_error
......
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