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:
sfilippone
2026-05-05 16:49:55 +02:00
parent 03c23d60ae
commit d4e3d13a7d
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/pdegen/amg_d_genpde_mod.F90
+2 -2
View File
@@ -176,7 +176,7 @@ contains
else
partition_ = 3
end if
deltah = done/(idim+2)
deltah = done/(idim+1)
sqdeltah = deltah*deltah
deltah2 = 2.0_psb_dpk_* deltah
@@ -643,7 +643,7 @@ contains
f_ => d_null_func_2d
end if
deltah = done/(idim+2)
deltah = done/(idim+1)
sqdeltah = deltah*deltah
deltah2 = 2.0_psb_dpk_* deltah
samples/advanced/pdegen/amg_s_genpde_mod.F90
+2 -2
View File
@@ -176,7 +176,7 @@ contains
else
partition_ = 3
end if
deltah = sone/(idim+2)
deltah = sone/(idim+1)
sqdeltah = deltah*deltah
deltah2 = 2.0_psb_spk_* deltah
@@ -643,7 +643,7 @@ contains
f_ => s_null_func_2d
end if
deltah = sone/(idim+2)
deltah = sone/(idim+1)
sqdeltah = deltah*deltah
deltah2 = 2.0_psb_spk_* deltah
samples/simple/pdegen/amg_dpde_mod.f90
+1 -1
View File
@@ -144,7 +144,7 @@ contains
f_ => d_null_func_3d
end if
deltah = 1.d0/(idim+2)
deltah = 1.d0/(idim+1)
sqdeltah = deltah*deltah
deltah2 = 2.0_psb_dpk_* deltah
samples/simple/pdegen/amg_spde_mod.f90
+1 -1
View File
@@ -144,7 +144,7 @@ contains
f_ => s_null_func_3d
end if
deltah = 1.d0/(idim+2)
deltah = 1.d0/(idim+1)
sqdeltah = deltah*deltah
deltah2 = 2.0_psb_spk_* deltah