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)