From 7bb81b159ffd95f22ab2e400bbbae22b5ecd113d Mon Sep 17 00:00:00 2001 From: marcella <40494362+marci73@users.noreply.github.com> Date: Wed, 28 Jan 2026 14:36:48 +0100 Subject: [PATCH] FIX of BUG FIX RMD + ADMM + LSD (#4749) --- src/rt_propagation_forces.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/rt_propagation_forces.F b/src/rt_propagation_forces.F index 0990ba870a..bb9d1ac65c 100644 --- a/src/rt_propagation_forces.F +++ b/src/rt_propagation_forces.F @@ -314,7 +314,7 @@ CONTAINS CALL parallel_gemm("N", "T", naux, nao, nmo, -1.0_dp, tmp_aux_mo1(1), mos(re), 0.0_dp, & tmp_aux_nao(1)) - CALL parallel_gemm("N", "T", naux, nao, nmo, -1.0_dp, tmp_aux_mo1(im), mos(im), 1.0_dp, & + CALL parallel_gemm("N", "T", naux, nao, nmo, -1.0_dp, tmp_aux_mo1(2), mos(im), 1.0_dp, & tmp_aux_nao(1)) CALL parallel_gemm("N", "T", naux, nao, nmo, 1.0_dp, tmp_aux_mo1(1), mos(im), 0.0_dp, & tmp_aux_nao(2))