Fix sample matrix generators

1 week ago · 6c9337c728
parent 6d4ed9575a
commit 6c9337c728
4 changed files with 14 additions and 14 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+1)
+    deltah   = done/(idim+2)
    sqdeltah = deltah*deltah
    deltah2  = (2*done)* deltah

@ -467,8 +467,8 @@ contains
          ! compute gridpoint coordinates
          call idx2ijk(ix,iy,glob_row,idim,idim)
          ! x, y coordinates
-          x = (ix-1)*deltah
-          y = (iy-1)*deltah
+          x = (ix)*deltah
+          y = (iy)*deltah
          
          zt(k) = f_(x,y)
          ! internal point: build discretization
--- 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+1)
+    deltah   = done/(idim+2)
    sqdeltah = deltah*deltah
    deltah2  = (2*done)* deltah

@ -496,9 +496,9 @@ contains
          ! compute gridpoint coordinates
          call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim)
          ! x, y, z coordinates
-          x = (ix-1)*deltah
-          y = (iy-1)*deltah
-          z = (iz-1)*deltah
+          x = (ix)*deltah
+          y = (iy)*deltah
+          z = (iz)*deltah
          zt(k) = f_(x,y,z)
          ! internal point: build discretization
          !
--- 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+1)
+    deltah   = sone/(idim+2)
    sqdeltah = deltah*deltah
    deltah2  = (2*sone)* deltah

@ -467,8 +467,8 @@ contains
          ! compute gridpoint coordinates
          call idx2ijk(ix,iy,glob_row,idim,idim)
          ! x, y coordinates
-          x = (ix-1)*deltah
-          y = (iy-1)*deltah
+          x = (ix)*deltah
+          y = (iy)*deltah
          
          zt(k) = f_(x,y)
          ! internal point: build discretization
--- 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+1)
+    deltah   = sone/(idim+2)
    sqdeltah = deltah*deltah
    deltah2  = (2*sone)* deltah

@ -496,9 +496,9 @@ contains
          ! compute gridpoint coordinates
          call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim)
          ! x, y, z coordinates
-          x = (ix-1)*deltah
-          y = (iy-1)*deltah
-          z = (iz-1)*deltah
+          x = (ix)*deltah
+          y = (iy)*deltah
+          z = (iz)*deltah
          zt(k) = f_(x,y,z)
          ! internal point: build discretization
          !