From 0f3c3380cb1cbff54e98f1241e160f4bcdd944f6 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Fri, 10 May 2024 14:44:18 +0200 Subject: [PATCH] Avoid overflow in bnds() --- amgprec/impl/aggregator/amg_d_soc2_map_bld.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/amgprec/impl/aggregator/amg_d_soc2_map_bld.F90 b/amgprec/impl/aggregator/amg_d_soc2_map_bld.F90 index 345cd1ad..ef1c992e 100644 --- a/amgprec/impl/aggregator/amg_d_soc2_map_bld.F90 +++ b/amgprec/impl/aggregator/amg_d_soc2_map_bld.F90 @@ -310,7 +310,7 @@ subroutine amg_d_soc2_map_bld(iorder,theta,clean_zeros,a,desc_a,nlaggr,ilaggr,in if (disjoint) then locnaggr(kk) = locnaggr(kk) + 1 itmp = (bnds(kk)-1+locnaggr(kk))*nths+kk - if (itmp < (bnds(kk)-1+locnaggr(kk))) then + if (itmp < (bnds(kk)-1_psb_lpk_+locnaggr(kk))) then !$omp atomic update info = max(12345678,info) !$omp end atomic