Commit 9633a87f authored by Daniel Wortmann's avatar Daniel Wortmann

Merge branch 'develop' of fleur-git:fleur into develop

parents 736893bd c2e7651c
......@@ -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))
......
......@@ -302,6 +302,8 @@ CONTAINS
kidx2=0
!-gu
stars%rgphs(:,:,:) = cmplx(0.0,0.0)
stars%ft2_gfx = 0.0
stars%ft2_gfy = 0.0
DO k = 1,stars%ng3
CALL spgrot(&
......
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