LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 05:43:47 +01:00
Code Issues Releases Wiki Activity

removed debug

Browse Source
This commit is contained in:
Yann Garniron 2018-09-27 12:11:04 +02:00
parent c8d64668d0
commit 1d6de29c46
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Determinants/slater_rules.irp.f
View File

@ -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