Skip to content

Commit

Permalink
Fix #2411
Browse files Browse the repository at this point in the history
  • Loading branch information
mkrack committed Nov 24, 2022
1 parent 87cd5d3 commit d6dd56c
Showing 1 changed file with 8 additions and 2 deletions.
10 changes: 8 additions & 2 deletions src/motion/rt_propagation.F
Original file line number Diff line number Diff line change
Expand Up @@ -462,8 +462,14 @@ SUBROUTINE rt_initial_guess(qs_env, force_env, rtp_control)
qs_env%run_rtp = .TRUE.
ALLOCATE (qs_env%rtp)
CALL get_qs_env(qs_env, matrix_s=matrix_s)
CALL rt_prop_create(qs_env%rtp, qs_env%mos, qs_env%mpools, dft_control, matrix_s(1)%matrix, &
rtp_control%linear_scaling)
IF (dft_control%do_admm) THEN
CPASSERT(ASSOCIATED(qs_env%admm_env))
CALL rt_prop_create(qs_env%rtp, qs_env%mos, qs_env%mpools, dft_control, matrix_s(1)%matrix, &
rtp_control%linear_scaling, qs_env%admm_env%mos_aux_fit)
ELSE
CALL rt_prop_create(qs_env%rtp, qs_env%mos, qs_env%mpools, dft_control, matrix_s(1)%matrix, &
rtp_control%linear_scaling)
END IF
CASE (use_restart_wfn, use_rt_restart)
CALL qs_energies_init(qs_env, .FALSE.)
Expand Down

0 comments on commit d6dd56c

Please sign in to comment.