From ee35e7f6193c0e7342f2da3a0d3ced5e29c009fc Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sat, 1 Dec 2018 00:58:34 +0100 Subject: [PATCH] Removed test --- src/Determinants/slater_rules.irp.f | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/Determinants/slater_rules.irp.f b/src/Determinants/slater_rules.irp.f index bbc4e26f..c18b7c35 100644 --- a/src/Determinants/slater_rules.irp.f +++ b/src/Determinants/slater_rules.irp.f @@ -2133,11 +2133,11 @@ subroutine ac_operator(iorb,ispin,key,hjj,Nint,na,nb) key(k,ispin) = ibset(key(k,ispin),l) other_spin = iand(ispin,1)+1 - if (iorb > mo_tot_num) then - print *, irp_here, 'iorb > mo_tot_num' - print *, iorb, mo_tot_num - stop -1 - endif +! if (iorb > mo_tot_num) then +! print *, irp_here, 'iorb > mo_tot_num' +! print *, iorb, mo_tot_num +! stop -1 +! endif hjj = hjj + mo_mono_elec_integral(iorb,iorb) ! Same spin