fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix sample matrix generators

Browse Source
development
sfilippone 2 months ago
parent 5c055170e7
commit 3343b039e6
4 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File

10
samples/advanced/pdegen/amg_d_genpde_mod.F90
Unescape Escape View File

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

10
samples/advanced/pdegen/amg_s_genpde_mod.F90
Unescape Escape View File

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

8
samples/simple/pdegen/amg_dpde_mod.f90
Unescape Escape View File

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

8
samples/simple/pdegen/amg_spde_mod.f90
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save