From 4b9b54e19ac7459589681e5ff7aa358dde9f5fd5 Mon Sep 17 00:00:00 2001 From: Yann Garniron Date: Tue, 28 Aug 2018 10:24:38 +0200 Subject: [PATCH] removed test for phase_mask_bit --- src/Determinants/slater_rules.irp.f | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Determinants/slater_rules.irp.f b/src/Determinants/slater_rules.irp.f index 5e3b41ae..7df79f42 100644 --- a/src/Determinants/slater_rules.irp.f +++ b/src/Determinants/slater_rules.irp.f @@ -436,10 +436,10 @@ subroutine get_double_excitation(det1,det2,exc,phase,Nint) enddo phase = phase_dble(iand(nperm,1)) - call get_double_excitation_ref(det1,det2,exc,refaz,Nint) - if(phase /= refaz) then - print *, "phase", phase, refaz, n, exc(0,1,1) - end if + !call get_double_excitation_ref(det1,det2,exc,refaz,Nint) + !if(phase == refaz) then + ! print *, "phase", phase, refaz, n, exc(0,1,1) + !end if end subroutine get_mono_excitation(det1,det2,exc,phase,Nint)