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

int type

Browse Source
This commit is contained in:
Kevin Gasperich 2020-06-02 18:16:36 -05:00 committed by Kevin Gasperich
parent fc8abcbf0a
commit 1c14b837c2
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/utils_complex/export_integrals_ao_cplx.irp.f
View File

@ -159,7 +159,7 @@ provide ao_two_e_integrals_in_map
if (cdabs(tmp_cmplx-int2e_tmp1).gt.thr0) then if (cdabs(tmp_cmplx-int2e_tmp1).gt.thr0) then
print'(4(I4),4(E15.7))',i,j,k,l,tmp_cmplx,int2e_tmp1 print'(4(I4),4(E15.7))',i,j,k,l,tmp_cmplx,int2e_tmp1
endif endif
integer*8 :: ii integer :: ii
ii = l-ao_integrals_cache_min ii = l-ao_integrals_cache_min
ii = ior( shiftl(ii,6), k-ao_integrals_cache_min) ii = ior( shiftl(ii,6), k-ao_integrals_cache_min)
ii = ior( shiftl(ii,6), j-ao_integrals_cache_min) ii = ior( shiftl(ii,6), j-ao_integrals_cache_min)