PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 21:03:49 +01:00
Code Releases Activity

fixed problem with 2e int mapping

Browse Source
This commit is contained in:
Kevin Gasperich 2020-01-30 11:25:19 -06:00
parent a632b6af56
commit 240c58c84f
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ao_two_e_ints/map_integrals.irp.f
View File

@ -346,7 +346,16 @@ subroutine ao_two_e_integral_periodic_map_idx_sign(i,j,k,l,use_map1,idx,sign)
sign=-1.d0
use_map1=.True.
endif
else if (iltk.eqv.ikltjl) then
else if (iltk.eqv.jltl) then
if (iltk) then
sign=1.d0
use_map1=.True.
else
sign=-1.d0
use_map1=.True.
endif
else
if (jltl.eqv.ikltjl) then
sign=1.d0
use_map1=.False.
else
@ -354,6 +363,7 @@ subroutine ao_two_e_integral_periodic_map_idx_sign(i,j,k,l,use_map1,idx,sign)
use_map1=.False.
endif
endif
endif
end
complex*16 function get_ao_two_e_integral_periodic_simple(i,j,k,l,map,map2) result(result)