Fix matrix generation.

5 years ago · ea11994314
parent 1e484f6a18
commit ea11994314
6 changed files with 6 additions and 6 deletions
--- a/examples/pdegen/mld_dpde_mod.f90
+++ b/examples/pdegen/mld_dpde_mod.f90
@ -139,7 +139,7 @@ contains
      f_ => d_null_func_3d
    end if

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

--- a/examples/pdegen/mld_spde_mod.f90
+++ b/examples/pdegen/mld_spde_mod.f90
@ -139,7 +139,7 @@ contains
      f_ => s_null_func_3d
    end if

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

--- a/tests/pdegen/mld_d_pde2d.f90
+++ b/tests/pdegen/mld_d_pde2d.f90
@ -231,7 +231,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/tests/pdegen/mld_d_pde3d.f90
+++ b/tests/pdegen/mld_d_pde3d.f90
@ -248,7 +248,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/tests/pdegen/mld_s_pde2d.f90
+++ b/tests/pdegen/mld_s_pde2d.f90
@ -231,7 +231,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/tests/pdegen/mld_s_pde3d.f90
+++ b/tests/pdegen/mld_s_pde3d.f90
@ -248,7 +248,7 @@ contains
      f_ => s_null_func_3d
    end if

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