From 1c14b837c298f3122ac97214f45dea5b0a03a7e4 Mon Sep 17 00:00:00 2001 From: Kevin Gasperich Date: Tue, 2 Jun 2020 18:16:36 -0500 Subject: [PATCH] int type --- src/utils_complex/export_integrals_ao_cplx.irp.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/utils_complex/export_integrals_ao_cplx.irp.f b/src/utils_complex/export_integrals_ao_cplx.irp.f index d24a51e2..7d40ba76 100644 --- a/src/utils_complex/export_integrals_ao_cplx.irp.f +++ b/src/utils_complex/export_integrals_ao_cplx.irp.f @@ -159,7 +159,7 @@ provide ao_two_e_integrals_in_map if (cdabs(tmp_cmplx-int2e_tmp1).gt.thr0) then print'(4(I4),4(E15.7))',i,j,k,l,tmp_cmplx,int2e_tmp1 endif - integer*8 :: ii + integer :: ii ii = l-ao_integrals_cache_min ii = ior( shiftl(ii,6), k-ao_integrals_cache_min) ii = ior( shiftl(ii,6), j-ao_integrals_cache_min)