From e953cf44156151192decc6b461f358e7d98b6cc8 Mon Sep 17 00:00:00 2001 From: ydamour Date: Tue, 17 Jan 2023 13:40:59 +0100 Subject: [PATCH] avoid uninitialized phase in get_excitation --- src/determinants/slater_rules.irp.f | 2 ++ 1 file changed, 2 insertions(+) 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