LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-18 11:23:38 +01:00
Code Releases Activity

fixed incorrect function call

Browse Source
This commit is contained in:
Kevin Gasperich 2020-04-10 13:32:37 -05:00
parent 16d3f8b6d0
commit 0d50e067bd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/cipsi/selection.irp.f
View File

@ -2793,7 +2793,7 @@ subroutine get_d0_complex(gen, phasemask, bannedOrb, banned, mat, mask, h, p, sp
h2 = p(1,2) h2 = p(1,2)
do p1=1, mo_num do p1=1, mo_num
if(bannedOrb(p1, 1)) cycle if(bannedOrb(p1, 1)) cycle
call get_mo_two_e_integrals_complex(p1,h2,h1,mo_num,hij_cache1,mo_integrals_map) call get_mo_two_e_integrals_complex(p1,h2,h1,mo_num,hij_cache1,mo_integrals_map,mo_integrals_map_2)
do p2=1, mo_num do p2=1, mo_num
if(bannedOrb(p2,2)) cycle if(bannedOrb(p2,2)) cycle
if(banned(p1, p2, bant)) cycle ! rentable? if(banned(p1, p2, bant)) cycle ! rentable?