Commit 965d2d0e authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files

Added restoring of defaults when mixing is reset. #575

parent 50a9efdd
......@@ -108,6 +108,20 @@ CONTAINS
IF (ALLOCATED(g_mt)) DEALLOCATE (g_mt)
IF (ALLOCATED(g_vac)) DEALLOCATE (g_vac)
IF (ALLOCATED(g_misc)) DEALLOCATE (g_misc)
!restore defaults
pw_start(3) = 0
mt_start(3) = 0
vac_start(3) = 0
misc_length = 0
misc_start(3) = 0
spin_here(3) = .TRUE.
pw_here = .TRUE.
mt_here = .TRUE.
vac_here = .TRUE.
misc_here = .TRUE.
mt_rank = 0
mt_size = 1
l_pot = .FALSE. !Is this a potential?
END SUBROUTINE mixvector_reset
SUBROUTINE mixvector_from_density(vec, den, swapspin)
......
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