From a8fcebb6b531ee5041bad2c83d90c0023849f32d Mon Sep 17 00:00:00 2001 From: Augustin Lu Date: Fri, 7 Aug 2026 20:00:05 +0900 Subject: [PATCH] Initialize eri_gto to zero. --- src/exx_erigto.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/exx_erigto.f90 b/src/exx_erigto.f90 index 0386420b4..72ffecb9b 100644 --- a/src/exx_erigto.f90 +++ b/src/exx_erigto.f90 @@ -666,6 +666,8 @@ subroutine compute_eri_hoh(i,j,k,l,i_nsp,j_nsp,k_nsp,l_nsp,i_xyz,j_xyz,k_xyz,l_x real(double), dimension(5) :: F + eri_gto = zero + i_nt = trim(gto( i_nsp )%sf( i )%nt) j_nt = trim(gto( j_nsp )%sf( j )%nt) k_nt = trim(gto( k_nsp )%sf( k )%nt)