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

Fix matrix generation

Browse Source
This commit is contained in:
sfilippone
2026-05-05 16:45:06 +02:00
parent 3343b039e6
commit a3e1be46ee
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 else
partition_ = 3 partition_ = 3
end if end if
deltah = done/(idim+2) deltah = done/(idim+1)
sqdeltah = deltah*deltah sqdeltah = deltah*deltah
deltah2 = 2.0_psb_dpk_* deltah deltah2 = 2.0_psb_dpk_* deltah
@@ -643,7 +643,7 @@ contains
f_ => d_null_func_2d f_ => d_null_func_2d
end if end if
deltah = done/(idim+2) deltah = done/(idim+1)
sqdeltah = deltah*deltah sqdeltah = deltah*deltah
deltah2 = 2.0_psb_dpk_* 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 else
partition_ = 3 partition_ = 3
end if end if
deltah = sone/(idim+2) deltah = sone/(idim+1)
sqdeltah = deltah*deltah sqdeltah = deltah*deltah
deltah2 = 2.0_psb_spk_* deltah deltah2 = 2.0_psb_spk_* deltah
@@ -643,7 +643,7 @@ contains
f_ => s_null_func_2d f_ => s_null_func_2d
end if end if
deltah = sone/(idim+2) deltah = sone/(idim+1)
sqdeltah = deltah*deltah sqdeltah = deltah*deltah
deltah2 = 2.0_psb_spk_* 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 f_ => d_null_func_3d
end if end if
deltah = 1.d0/(idim+2) deltah = 1.d0/(idim+1)
sqdeltah = deltah*deltah sqdeltah = deltah*deltah
deltah2 = 2.0_psb_dpk_* 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 f_ => s_null_func_3d
end if end if
deltah = 1.d0/(idim+2) deltah = 1.d0/(idim+1)
sqdeltah = deltah*deltah sqdeltah = deltah*deltah
deltah2 = 2.0_psb_spk_* deltah deltah2 = 2.0_psb_spk_* deltah