From f660aa7cde4f2b6b0b5011c96241dcf85fb55db0 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Tue, 5 May 2026 16:58:50 +0200 Subject: [PATCH] Fix matrix generation --- samples/advanced/pdegen/amg_d_genpde_mod.F90 | 4 ++-- samples/advanced/pdegen/amg_s_genpde_mod.F90 | 4 ++-- samples/simple/pdegen/amg_dpde_mod.f90 | 2 +- samples/simple/pdegen/amg_spde_mod.f90 | 2 +- 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/samples/advanced/pdegen/amg_d_genpde_mod.F90 b/samples/advanced/pdegen/amg_d_genpde_mod.F90 index 7bf4b128..b83d38d3 100644 --- a/samples/advanced/pdegen/amg_d_genpde_mod.F90 +++ b/samples/advanced/pdegen/amg_d_genpde_mod.F90 @@ -176,7 +176,7 @@ contains else partition_ = 3 end if - deltah = done/(idim+2) + deltah = done/(idim+1) sqdeltah = deltah*deltah deltah2 = 2.0_psb_dpk_* deltah @@ -643,7 +643,7 @@ contains f_ => d_null_func_2d end if - deltah = done/(idim+2) + deltah = done/(idim+1) sqdeltah = deltah*deltah deltah2 = 2.0_psb_dpk_* deltah diff --git a/samples/advanced/pdegen/amg_s_genpde_mod.F90 b/samples/advanced/pdegen/amg_s_genpde_mod.F90 index bc99530d..872b1c7e 100644 --- a/samples/advanced/pdegen/amg_s_genpde_mod.F90 +++ b/samples/advanced/pdegen/amg_s_genpde_mod.F90 @@ -176,7 +176,7 @@ contains else partition_ = 3 end if - deltah = sone/(idim+2) + deltah = sone/(idim+1) sqdeltah = deltah*deltah deltah2 = 2.0_psb_spk_* deltah @@ -643,7 +643,7 @@ contains f_ => s_null_func_2d end if - deltah = sone/(idim+2) + deltah = sone/(idim+1) sqdeltah = deltah*deltah deltah2 = 2.0_psb_spk_* deltah diff --git a/samples/simple/pdegen/amg_dpde_mod.f90 b/samples/simple/pdegen/amg_dpde_mod.f90 index e6883248..fba9dcf7 100644 --- a/samples/simple/pdegen/amg_dpde_mod.f90 +++ b/samples/simple/pdegen/amg_dpde_mod.f90 @@ -144,7 +144,7 @@ contains f_ => d_null_func_3d end if - deltah = 1.d0/(idim+2) + deltah = 1.d0/(idim+1) sqdeltah = deltah*deltah deltah2 = 2.0_psb_dpk_* deltah diff --git a/samples/simple/pdegen/amg_spde_mod.f90 b/samples/simple/pdegen/amg_spde_mod.f90 index d2d55447..c3fdcfe7 100644 --- a/samples/simple/pdegen/amg_spde_mod.f90 +++ b/samples/simple/pdegen/amg_spde_mod.f90 @@ -144,7 +144,7 @@ contains f_ => s_null_func_3d end if - deltah = 1.d0/(idim+2) + deltah = 1.d0/(idim+1) sqdeltah = deltah*deltah deltah2 = 2.0_psb_spk_* deltah