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

fixed wrong index type

Browse Source
This commit is contained in:
Kevin Gasperich 2020-02-24 11:34:31 -06:00
parent a59f1e9576
commit 0ba82990ff
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/mo_two_e_ints/map_integrals_complex.irp.f
View File

@ -39,7 +39,7 @@ BEGIN_PROVIDER [ complex*16, mo_integrals_cache_complex, (0_8:128_8*128_8*128_8*
do i=mo_integrals_cache_min_8,mo_integrals_cache_max_8 do i=mo_integrals_cache_min_8,mo_integrals_cache_max_8
i4 = int(i,4) i4 = int(i,4)
!DIR$ FORCEINLINE !DIR$ FORCEINLINE
integral = get_two_e_integral_complex_simple(i,j,k,l,& integral = get_two_e_integral_complex_simple(i4,j4,k4,l4,&
mo_integrals_map,mo_integrals_map_2) mo_integrals_map,mo_integrals_map_2)
ii = l-mo_integrals_cache_min_8 ii = l-mo_integrals_cache_min_8
ii = ior( shiftl(ii,7), k-mo_integrals_cache_min_8) ii = ior( shiftl(ii,7), k-mo_integrals_cache_min_8)