Commit 833ac245 authored by Gregor Michalicek's avatar Gregor Michalicek

Added missing initializations of some enpara arrays in init/inpeig.f90

These initializations are relevant for the old inp file if no enpara file is used.
parent 0526b698
......@@ -55,6 +55,9 @@
WRITE(6,*) "No enpara file found, using default values"
enpara%el0(:,:,1)=0.0
enpara%el0(0,:,1)=-999999.0
enpara%lchange = .FALSE.
enpara%llochg = .FALSE.
enpara%lchg_v = .FALSE.
DO n = 1, atoms%ntype
l_clf = .FALSE.
WRITE(fname,"('corelevels.',i2.2)") NINT(atoms%zatom(n))
......
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