mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-19 22:41:48 +02:00
Removed test
This commit is contained in:
parent
34ba5d4fd4
commit
ee35e7f619
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user