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

New Richardson solver.

Browse Source
This commit is contained in:
sfilippone
2024-11-08 18:25:13 +01:00
parent aec5a52c7f
commit 60324084d8
4 changed files with 40 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/pdegen/amg_d_pde2d.F90
+10 -3
View File
@@ -472,9 +472,16 @@ program amg_d_pde2d
!
call psb_barrier(ctxt)
t1 = psb_wtime()
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc,irst=s_choice%irst)
if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
call psb_richardson(a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,&
& err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc)
else
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc,irst=s_choice%irst)
end if
call psb_barrier(ctxt)
tslv = psb_wtime() - t1
samples/advanced/pdegen/amg_d_pde3d.F90
+10 -3
View File
@@ -476,9 +476,16 @@ program amg_d_pde3d
!
call psb_barrier(ctxt)
t1 = psb_wtime()
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc,irst=s_choice%irst)
if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
call psb_richardson(a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,&
& err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc)
else
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc,irst=s_choice%irst)
end if
call psb_barrier(ctxt)
tslv = psb_wtime() - t1
samples/advanced/pdegen/amg_s_pde2d.F90
+10 -3
View File
@@ -472,9 +472,16 @@ program amg_s_pde2d
!
call psb_barrier(ctxt)
t1 = psb_wtime()
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc,irst=s_choice%irst)
if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
call psb_richardson(a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,&
& err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc)
else
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc,irst=s_choice%irst)
end if
call psb_barrier(ctxt)
tslv = psb_wtime() - t1
samples/advanced/pdegen/amg_s_pde3d.F90
+10 -3
View File
@@ -476,9 +476,16 @@ program amg_s_pde3d
!
call psb_barrier(ctxt)
t1 = psb_wtime()
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc,irst=s_choice%irst)
if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
call psb_richardson(a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,&
& err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc)
else
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,&
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,&
& istop=s_choice%istopc,irst=s_choice%irst)
end if
call psb_barrier(ctxt)
tslv = psb_wtime() - t1