Fix matrix generation.

6 years ago · 883c026367
parent 9a6d9ac5c4
commit 883c026367
4 changed files with 4 additions and 4 deletions
--- a/test/pargen/psb_d_pde2d.f90
+++ b/test/pargen/psb_d_pde2d.f90
@ -227,7 +227,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
@ -243,7 +243,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
@ -227,7 +227,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
@ -243,7 +243,7 @@ contains
      f_ => s_null_func_3d
    end if

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