From 15bb4ac101e9082c8a2413d4a5024d68a6fe956b Mon Sep 17 00:00:00 2001 From: sfilippone Date: Fri, 10 May 2024 14:43:38 +0200 Subject: [PATCH] Avoid overflow --- amgprec/impl/aggregator/amg_d_soc1_map_bld.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/amgprec/impl/aggregator/amg_d_soc1_map_bld.F90 b/amgprec/impl/aggregator/amg_d_soc1_map_bld.F90 index fba80c10..7b95e5cd 100644 --- a/amgprec/impl/aggregator/amg_d_soc1_map_bld.F90 +++ b/amgprec/impl/aggregator/amg_d_soc1_map_bld.F90 @@ -275,7 +275,7 @@ subroutine amg_d_soc1_map_bld(iorder,theta,clean_zeros,a,desc_a,nlaggr,ilaggr,in disjoint = all(ilaggr(icol(1:ip)) == -(nr+1)).or.(ip==0) if (disjoint) then locnaggr(kk) = locnaggr(kk) + 1 - itmp = (bnds(kk)-1+locnaggr(kk))*nths+kk + itmp = (bnds(kk)-1_psb_lpk_+locnaggr(kk))*nths+kk if (itmp < (bnds(kk)-1+locnaggr(kk))) then !$omp atomic update info = max(12345678,info)