Fix pargen matrix generation.

6 years ago · fb21ed19a6
parent c75350463a
commit fb21ed19a6
4 changed files with 4 additions and 4 deletions
--- a/test/pargen/psb_d_pde2d.f90
+++ b/test/pargen/psb_d_pde2d.f90
@ -223,7 +223,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/pargen/psb_d_pde3d.f90
+++ b/test/pargen/psb_d_pde3d.f90
@ -238,7 +238,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/pargen/psb_s_pde2d.f90
+++ b/test/pargen/psb_s_pde2d.f90
@ -223,7 +223,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/pargen/psb_s_pde3d.f90
+++ b/test/pargen/psb_s_pde3d.f90
@ -238,7 +238,7 @@ contains
      f_ => s_null_func_3d
    end if

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