Fix matrix generation

Fix sample matrix generators
4 changed files with 10 additions and 10 deletions
--- a/test/pdegen/psb_d_pde2d.F90
+++ b/test/pdegen/psb_d_pde2d.F90
@ -467,8 +467,8 @@ contains
          ! compute gridpoint coordinates
          call idx2ijk(ix,iy,glob_row,idim,idim)
          ! x, y coordinates
-          x = (ix-1)*deltah
+          x = (ix)*deltah
-          y = (iy-1)*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
@ -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
+          x = (ix)*deltah
-          y = (iy-1)*deltah
+          y = (iy)*deltah
-          z = (iz-1)*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
@ -467,8 +467,8 @@ contains
          ! compute gridpoint coordinates
          call idx2ijk(ix,iy,glob_row,idim,idim)
          ! x, y coordinates
-          x = (ix-1)*deltah
+          x = (ix)*deltah
-          y = (iy-1)*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
@ -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
+          x = (ix)*deltah
-          y = (iy-1)*deltah
+          y = (iy)*deltah
-          z = (iz-1)*deltah
+          z = (iz)*deltah
          zt(k) = f_(x,y,z)
          ! internal point: build discretization
          !
Author	SHA1	Message	Date
sfilippone	926409bf0e	Fix matrix generation	2 months ago
sfilippone	6c9337c728	Fix sample matrix generators	2 months ago