fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-17 03:12:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix matrix generation

Browse Source
This commit is contained in:
sfilippone
2026-05-05 16:58:17 +02:00
parent c1ceda1598
commit ed138c8afd
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pdegen/psb_d_pde2d.F90
+1 -1
View File
@@ -230,7 +230,7 @@ contains
f_ => d_null_func_2d
end if
deltah = done/(idim+2)
deltah = done/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*done)* deltah
test/pdegen/psb_d_pde3d.F90
+1 -1
View File
@@ -246,7 +246,7 @@ contains
f_ => d_null_func_3d
end if
deltah = done/(idim+2)
deltah = done/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*done)* deltah
test/pdegen/psb_s_pde2d.F90
+1 -1
View File
@@ -230,7 +230,7 @@ contains
f_ => s_null_func_2d
end if
deltah = sone/(idim+2)
deltah = sone/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*sone)* deltah
test/pdegen/psb_s_pde3d.F90
+1 -1
View File
@@ -246,7 +246,7 @@ contains
f_ => s_null_func_3d
end if
deltah = sone/(idim+2)
deltah = sone/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*sone)* deltah