LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-10-20 06:48:20 +02:00
Code Issues Releases Wiki Activity

Removed test

Browse Source
This commit is contained in:
Anthony Scemama 2018-12-01 00:58:34 +01:00
parent 34ba5d4fd4
commit ee35e7f619
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2133,11 +2133,11 @@ subroutine ac_operator(iorb,ispin,key,hjj,Nint,na,nb)
key(k,ispin) = ibset(key(k,ispin),l) key(k,ispin) = ibset(key(k,ispin),l)
other_spin = iand(ispin,1)+1 other_spin = iand(ispin,1)+1
if (iorb > mo_tot_num) then ! if (iorb > mo_tot_num) then
print *, irp_here, 'iorb > mo_tot_num' ! print *, irp_here, 'iorb > mo_tot_num'
print *, iorb, mo_tot_num ! print *, iorb, mo_tot_num
stop -1 ! stop -1
endif ! endif
hjj = hjj + mo_mono_elec_integral(iorb,iorb) hjj = hjj + mo_mono_elec_integral(iorb,iorb)
! Same spin ! Same spin