Fix matrix generation

2 months ago · ed138c8afd
parent c1ceda1598
commit ed138c8afd
4 changed files with 4 additions and 4 deletions
--- a/test/pdegen/psb_d_pde2d.F90
+++ b/test/pdegen/psb_d_pde2d.F90
@ -230,7 +230,7 @@ contains
      f_ => d_null_func_2d
    end if

-    deltah   = done/(idim+2)
+    deltah   = done/(idim+1)
    sqdeltah = deltah*deltah
    deltah2  = (2*done)* deltah

--- a/test/pdegen/psb_d_pde3d.F90
+++ b/test/pdegen/psb_d_pde3d.F90
@ -246,7 +246,7 @@ contains
      f_ => d_null_func_3d
    end if

-    deltah   = done/(idim+2)
+    deltah   = done/(idim+1)
    sqdeltah = deltah*deltah
    deltah2  = (2*done)* deltah

--- a/test/pdegen/psb_s_pde2d.F90
+++ b/test/pdegen/psb_s_pde2d.F90
@ -230,7 +230,7 @@ contains
      f_ => s_null_func_2d
    end if

-    deltah   = sone/(idim+2)
+    deltah   = sone/(idim+1)
    sqdeltah = deltah*deltah
    deltah2  = (2*sone)* deltah

--- a/test/pdegen/psb_s_pde3d.F90
+++ b/test/pdegen/psb_s_pde3d.F90
@ -246,7 +246,7 @@ contains
      f_ => s_null_func_3d
    end if

-    deltah   = sone/(idim+2)
+    deltah   = sone/(idim+1)
    sqdeltah = deltah*deltah
    deltah2  = (2*sone)* deltah