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

Fix matrix generation.

Browse Source
This commit is contained in:
Salvatore Filippone
2019-05-27 12:02:47 +01:00
parent 9a6d9ac5c4
commit 883c026367
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/psb_d_pde2d.f90
+1 -1
View File
@@ -227,7 +227,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/pargen/psb_d_pde3d.f90
+1 -1
View File
@@ -243,7 +243,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/pargen/psb_s_pde2d.f90
+1 -1
View File
@@ -227,7 +227,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/pargen/psb_s_pde3d.f90
+1 -1
View File
@@ -243,7 +243,7 @@ contains
f_ => s_null_func_3d
end if
deltah = sone/(idim+2)
deltah = sone/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*sone)* deltah