diff --git a/src/determinants/slater_rules.irp.f b/src/determinants/slater_rules.irp.f index 9bab9213..10881ea5 100644 --- a/src/determinants/slater_rules.irp.f +++ b/src/determinants/slater_rules.irp.f @@ -126,6 +126,8 @@ subroutine get_excitation(det1,det2,exc,degree,phase,Nint) return case(0) + ! Avoid uninitialized phase + phase = 1d0 return end select