From 1d6de29c46a29fa3536ac2f6dce20b57c6e8cc99 Mon Sep 17 00:00:00 2001 From: Yann Garniron Date: Thu, 27 Sep 2018 12:11:04 +0200 Subject: [PATCH] removed debug --- src/Determinants/slater_rules.irp.f | 9 --------- 1 file changed, 9 deletions(-) diff --git a/src/Determinants/slater_rules.irp.f b/src/Determinants/slater_rules.irp.f index d1e3a624..9986ee6e 100644 --- a/src/Determinants/slater_rules.irp.f +++ b/src/Determinants/slater_rules.irp.f @@ -525,11 +525,6 @@ subroutine i_H_j_s2(key_i,key_j,Nint,hij,s2) ASSERT (sum(popcnt(key_j(:,1))) == elec_alpha_num) ASSERT (sum(popcnt(key_j(:,2))) == elec_beta_num) - if(sum(popcnt(key_i(:,1))) /= elec_alpha_num) stop "STOP2P 1" - if(sum(popcnt(key_i(:,2))) /= elec_beta_num) stop "STOP2P 2" - if(sum(popcnt(key_j(:,1))) /= elec_alpha_num) stop "ST2OPP 3" - if(sum(popcnt(key_j(:,2))) /= elec_beta_num) stop "ST2OPP 4" - hij = 0.d0 s2 = 0d0 !DIR$ FORCEINLINE @@ -631,10 +626,6 @@ subroutine i_H_j(key_i,key_j,Nint,hij) ASSERT (sum(popcnt(key_i(:,2))) == elec_beta_num) ASSERT (sum(popcnt(key_j(:,1))) == elec_alpha_num) ASSERT (sum(popcnt(key_j(:,2))) == elec_beta_num) - if(sum(popcnt(key_i(:,1))) /= elec_alpha_num) stop "STOP2P 1" - if(sum(popcnt(key_i(:,2))) /= elec_beta_num) stop "STOP2P 2" - if(sum(popcnt(key_j(:,1))) /= elec_alpha_num) stop "ST2OPP 3" - if(sum(popcnt(key_j(:,2))) /= elec_beta_num) stop "ST2OPP 4" hij = 0.d0