From 8e615f6788640c165a98588dc085feffcbb294f8 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Mon, 16 Mar 2020 11:38:19 -0500 Subject: [PATCH] fixed complex/real bug --- src/determinants/slater_rules.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/determinants/slater_rules.irp.f b/src/determinants/slater_rules.irp.f index 29bd8b23..723f3194 100644 --- a/src/determinants/slater_rules.irp.f +++ b/src/determinants/slater_rules.irp.f @@ -2777,7 +2777,7 @@ subroutine i_H_j_single_spin_complex(key_i,key_j,Nint,spin,hij) PROVIDE big_array_exchange_integrals_complex mo_two_e_integrals_in_map call get_single_excitation_spin(key_i(1,spin),key_j(1,spin),exc,phase,Nint) - call get_single_excitation_from_fock(key_i,key_j,exc(1,1),exc(1,2),spin,phase,hij) + call get_single_excitation_from_fock_complex(key_i,key_j,exc(1,1),exc(1,2),spin,phase,hij) end subroutine i_H_j_double_spin_complex(key_i,key_j,Nint,hij)