fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

New Richardson solver.

Browse Source
repack-newsolve
sfilippone 2 months ago
parent aec5a52c7f
commit 60324084d8
4 changed files with 40 additions and 12 deletions
Show Stats Download Patch File Download Diff File

13
samples/advanced/pdegen/amg_d_pde2d.F90
Unescape Escape View File

@ -472,9 +472,16 @@ program amg_d_pde2d
! !
call psb_barrier(ctxt) call psb_barrier(ctxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,& if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,& call psb_richardson(a,prec,b,x,s_choice%eps,&
& istop=s_choice%istopc,irst=s_choice%irst) & 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) call psb_barrier(ctxt)
tslv = psb_wtime() - t1 tslv = psb_wtime() - t1

13
samples/advanced/pdegen/amg_d_pde3d.F90
Unescape Escape View File

@ -476,9 +476,16 @@ program amg_d_pde3d
! !
call psb_barrier(ctxt) call psb_barrier(ctxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,& if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,& call psb_richardson(a,prec,b,x,s_choice%eps,&
& istop=s_choice%istopc,irst=s_choice%irst) & 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) call psb_barrier(ctxt)
tslv = psb_wtime() - t1 tslv = psb_wtime() - t1

13
samples/advanced/pdegen/amg_s_pde2d.F90
Unescape Escape View File

@ -472,9 +472,16 @@ program amg_s_pde2d
! !
call psb_barrier(ctxt) call psb_barrier(ctxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,& if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,& call psb_richardson(a,prec,b,x,s_choice%eps,&
& istop=s_choice%istopc,irst=s_choice%irst) & 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) call psb_barrier(ctxt)
tslv = psb_wtime() - t1 tslv = psb_wtime() - t1

13
samples/advanced/pdegen/amg_s_pde3d.F90
Unescape Escape View File

@ -476,9 +476,16 @@ program amg_s_pde3d
! !
call psb_barrier(ctxt) call psb_barrier(ctxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov(s_choice%kmethd,a,prec,b,x,s_choice%eps,& if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
& desc_a,info,itmax=s_choice%itmax,iter=iter,err=err,itrace=s_choice%itrace,& call psb_richardson(a,prec,b,x,s_choice%eps,&
& istop=s_choice%istopc,irst=s_choice%irst) & 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) call psb_barrier(ctxt)
tslv = psb_wtime() - t1 tslv = psb_wtime() - t1

Write Preview
Loading…
Cancel
Save