fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

various changes, including test matrix generators

Browse Source
This commit is contained in:
sfilippone
2026-05-05 15:49:13 +02:00
parent 19ce4a0942
commit 09308b5c7d
29 changed files with 395 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pdegen/psb_d_pde2d.F90
+3 -3
View File
@@ -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
test/pdegen/psb_d_pde3d.F90
+4 -4
View File
@@ -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
!
test/pdegen/psb_s_pde2d.F90
+3 -3
View File
@@ -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
test/pdegen/psb_s_pde3d.F90
+4 -4
View File
@@ -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
!