LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-03 01:56:05 +01:00
Code Issues Releases Wiki Activity

corrected conditional related to data types (#234)

Browse Source 
difference between out_val and tmp_val is integral_kind (instead of key_kind)
This commit is contained in:
Kevin Gasperich 2018-05-22 13:51:43 -05:00 committed by Anthony Scemama
parent 156c797ec9
commit bfb0c8732c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Integrals_Bielec/map_integrals.irp.f
View File

@ -447,7 +447,7 @@ subroutine get_mo_bielec_integrals(j,k,l,sze,out_val,map)
call bielec_integrals_index(i,j,k,l,hash(i))
enddo
if (key_kind == 8) then
if (integral_kind == 8) then
call map_get_many(map, hash, out_val, sze)
else
call map_get_many(map, hash, tmp_val, sze)
@ -534,7 +534,7 @@ subroutine get_mo_bielec_integrals_coulomb_ii(k,l,sze,out_val,map)
call bielec_integrals_index(k,i,l,i,hash(i))
enddo
if (key_kind == 8) then
if (integral_kind == 8) then
call map_get_many(map, hash, out_val, sze)
else
call map_get_many(map, hash, tmp_val, sze)
@ -567,7 +567,7 @@ subroutine get_mo_bielec_integrals_exch_ii(k,l,sze,out_val,map)
call bielec_integrals_index(k,i,i,l,hash(i))
enddo
if (key_kind == 8) then
if (integral_kind == 8) then
call map_get_many(map, hash, out_val, sze)
else
call map_get_many(map, hash, tmp_val, sze)