From bfb0c8732c03812fd77582cce81454ba006c8267 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Tue, 22 May 2018 13:51:43 -0500 Subject: [PATCH] corrected conditional related to data types (#234) difference between out_val and tmp_val is integral_kind (instead of key_kind) --- src/Integrals_Bielec/map_integrals.irp.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Integrals_Bielec/map_integrals.irp.f b/src/Integrals_Bielec/map_integrals.irp.f index 85a2f954..03f0f073 100644 --- a/src/Integrals_Bielec/map_integrals.irp.f +++ b/src/Integrals_Bielec/map_integrals.irp.f @@ -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)