Commit da08153b authored by Henning Janssen's avatar Henning Janssen

Add missing initialization in fromGlobalRelax

parent f55c489d
......@@ -237,6 +237,7 @@ SUBROUTINE fromGlobalRelax(vacuum,sphhar,stars&
TYPE(t_potden), OPTIONAL,INTENT(INOUT):: den
REAL :: zeros(atoms%ntype)
zeros(:) = 0.0
CALL flipcdn(atoms,input,vacuum,sphhar,stars,sym,noco,oneD,cell,-nococonv%alphPrev,zeros,den)
CALL flipcdn(atoms,input,vacuum,sphhar,stars,sym,noco,oneD,cell,zeros,-nococonv%betaPrev,den)
nococonv%alph=nococonv%alphPrev
......
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