Commit b051213f authored by Victor Yu's avatar Victor Yu

Fix uninitialized variables

parent 330d2730
......@@ -97,6 +97,8 @@ subroutine elsi_extrapolate_dm_real(eh,ovlp0,ovlp1,dm)
call elsi_check_init(eh%bh,eh%handle_init,caller)
solver_save = eh%ph%solver
if(eh%ph%solver == SIPS_SOLVER .and. eh%ph%sips_n_elpa > 0) then
solver_save = SIPS_SOLVER
eh%ph%solver = ELPA_SOLVER
......@@ -157,6 +159,8 @@ subroutine elsi_extrapolate_dm_complex(eh,ovlp0,ovlp1,dm)
call elsi_check_init(eh%bh,eh%handle_init,caller)
solver_save = eh%ph%solver
if(eh%ph%solver == OMM_SOLVER .and. eh%ph%omm_n_elpa > 0) then
solver_save = OMM_SOLVER
eh%ph%solver = ELPA_SOLVER
......
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