10
0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-24 13:23:39 +01:00

fixed problem with 2e int mapping

This commit is contained in:
Kevin Gasperich 2020-01-30 11:25:19 -06:00
parent a632b6af56
commit 240c58c84f

View File

@ -346,12 +346,22 @@ subroutine ao_two_e_integral_periodic_map_idx_sign(i,j,k,l,use_map1,idx,sign)
sign=-1.d0 sign=-1.d0
use_map1=.True. use_map1=.True.
endif endif
else if (iltk.eqv.ikltjl) then else if (iltk.eqv.jltl) then
sign=1.d0 if (iltk) then
use_map1=.False. sign=1.d0
use_map1=.True.
else
sign=-1.d0
use_map1=.True.
endif
else else
sign=-1.d0 if (jltl.eqv.ikltjl) then
use_map1=.False. sign=1.d0
use_map1=.False.
else
sign=-1.d0
use_map1=.False.
endif
endif endif
endif endif
end end