fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +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:04:07 +01:00
parent 1e484f6a18
commit ea11994314
6 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/pdegen/mld_dpde_mod.f90
+1 -1
View File
@@ -139,7 +139,7 @@ contains
f_ => d_null_func_3d
end if
deltah = 1.d0/(idim+2)
deltah = 1.d0/(idim+1)
sqdeltah = deltah*deltah
deltah2 = 2.d0* deltah
examples/pdegen/mld_spde_mod.f90
+1 -1
View File
@@ -139,7 +139,7 @@ contains
f_ => s_null_func_3d
end if
deltah = 1.d0/(idim+2)
deltah = 1.d0/(idim+1)
sqdeltah = deltah*deltah
deltah2 = 2.d0* deltah
tests/pdegen/mld_d_pde2d.f90
+1 -1
View File
@@ -231,7 +231,7 @@ contains
f_ => d_null_func_2d
end if
deltah = done/(idim+2)
deltah = done/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*done)* deltah
tests/pdegen/mld_d_pde3d.f90
+1 -1
View File
@@ -248,7 +248,7 @@ contains
f_ => d_null_func_3d
end if
deltah = done/(idim+2)
deltah = done/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*done)* deltah
tests/pdegen/mld_s_pde2d.f90
+1 -1
View File
@@ -231,7 +231,7 @@ contains
f_ => s_null_func_2d
end if
deltah = sone/(idim+2)
deltah = sone/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*sone)* deltah
tests/pdegen/mld_s_pde3d.f90
+1 -1
View File
@@ -248,7 +248,7 @@ contains
f_ => s_null_func_3d
end if
deltah = sone/(idim+2)
deltah = sone/(idim+1)
sqdeltah = deltah*deltah
deltah2 = (2*sone)* deltah