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

Cleanup use of RICHARDSON

Browse Source
This commit is contained in:
sfilippone
2024-11-18 16:20:35 +01:00
parent 1aa7c8db59
commit 13c99a0c3f
6 changed files with 46 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/pdegen/amg_d_pde2d.F90
+11 -5
View File
@@ -105,9 +105,9 @@ program amg_d_pde2d
integer(psb_epk_) :: amatsize, precsize, descsize
real(psb_dpk_) :: err, resmx, resmxp
! Krylov solver data
! Solver data
type solverdata
character(len=40) :: kmethd ! Krylov solver
character(len=40) :: kmethd ! Iterative solver
integer(psb_ipk_) :: istopc ! stopping criterion
integer(psb_ipk_) :: itmax ! maximum number of iterations
integer(psb_ipk_) :: itrace ! tracing
@@ -472,16 +472,22 @@ program amg_d_pde2d
!
call psb_barrier(ctxt)
t1 = psb_wtime()
if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
select case(psb_toupper(trim(s_choice%kmethd)))
case('RICHARDSON')
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
case('BICGSTAB','BICGSTABL','BICG','CG','CGS','FCG','GCR','RGMRES')
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
case default
write(psb_err_unit,*) 'Unknown method :"',trim(s_choice%kmethd),'"'
info=psb_err_invalid_input_
call psb_errpush(info,name)
goto 9999
end select
call psb_barrier(ctxt)
tslv = psb_wtime() - t1
samples/advanced/pdegen/amg_d_pde3d.F90
+11 -5
View File
@@ -106,9 +106,9 @@ program amg_d_pde3d
integer(psb_epk_) :: amatsize, precsize, descsize
real(psb_dpk_) :: err, resmx, resmxp
! Krylov solver data
! Solver data
type solverdata
character(len=40) :: kmethd ! Krylov solver
character(len=40) :: kmethd ! Iterative solver
integer(psb_ipk_) :: istopc ! stopping criterion
integer(psb_ipk_) :: itmax ! maximum number of iterations
integer(psb_ipk_) :: itrace ! tracing
@@ -476,16 +476,22 @@ program amg_d_pde3d
!
call psb_barrier(ctxt)
t1 = psb_wtime()
if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
select case(psb_toupper(trim(s_choice%kmethd)))
case('RICHARDSON')
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
case('BICGSTAB','BICGSTABL','BICG','CG','CGS','FCG','GCR','RGMRES')
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
case default
write(psb_err_unit,*) 'Unknown method :"',trim(s_choice%kmethd),'"'
info=psb_err_invalid_input_
call psb_errpush(info,name)
goto 9999
end select
call psb_barrier(ctxt)
tslv = psb_wtime() - t1
samples/advanced/pdegen/amg_s_pde2d.F90
+11 -5
View File
@@ -105,9 +105,9 @@ program amg_s_pde2d
integer(psb_epk_) :: amatsize, precsize, descsize
real(psb_spk_) :: err, resmx, resmxp
! Krylov solver data
! Solver data
type solverdata
character(len=40) :: kmethd ! Krylov solver
character(len=40) :: kmethd ! Iterative solver
integer(psb_ipk_) :: istopc ! stopping criterion
integer(psb_ipk_) :: itmax ! maximum number of iterations
integer(psb_ipk_) :: itrace ! tracing
@@ -472,16 +472,22 @@ program amg_s_pde2d
!
call psb_barrier(ctxt)
t1 = psb_wtime()
if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
select case(psb_toupper(trim(s_choice%kmethd)))
case('RICHARDSON')
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
case('BICGSTAB','BICGSTABL','BICG','CG','CGS','FCG','GCR','RGMRES')
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
case default
write(psb_err_unit,*) 'Unknown method :"',trim(s_choice%kmethd),'"'
info=psb_err_invalid_input_
call psb_errpush(info,name)
goto 9999
end select
call psb_barrier(ctxt)
tslv = psb_wtime() - t1
samples/advanced/pdegen/amg_s_pde3d.F90
+11 -5
View File
@@ -106,9 +106,9 @@ program amg_s_pde3d
integer(psb_epk_) :: amatsize, precsize, descsize
real(psb_spk_) :: err, resmx, resmxp
! Krylov solver data
! Solver data
type solverdata
character(len=40) :: kmethd ! Krylov solver
character(len=40) :: kmethd ! Iterative solver
integer(psb_ipk_) :: istopc ! stopping criterion
integer(psb_ipk_) :: itmax ! maximum number of iterations
integer(psb_ipk_) :: itrace ! tracing
@@ -476,16 +476,22 @@ program amg_s_pde3d
!
call psb_barrier(ctxt)
t1 = psb_wtime()
if (psb_toupper(trim(s_choice%kmethd)) == 'RICHARDSON') then
select case(psb_toupper(trim(s_choice%kmethd)))
case('RICHARDSON')
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
case('BICGSTAB','BICGSTABL','BICG','CG','CGS','FCG','GCR','RGMRES')
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
case default
write(psb_err_unit,*) 'Unknown method :"',trim(s_choice%kmethd),'"'
info=psb_err_invalid_input_
call psb_errpush(info,name)
goto 9999
end select
call psb_barrier(ctxt)
tslv = psb_wtime() - t1
samples/advanced/pdegen/runs/amg_pde2d.inp
+1 -1
View File
@@ -4,7 +4,7 @@ CSR ! Storage format CSR COO JAD
POISSON ! PDECOEFF: POISSON, EXP, BOX, GAUSS
% ! Coefficients of the PDE
CG ! Iterative method:
% ! BiCGSTAB BiCGSTABL BiCG CG CGS FCG GCR RGMRES
% ! BiCGSTAB BiCGSTABL BiCG CG CGS FCG GCR RGMRES RICHARDSON
2 ! ISTOPC
00500 ! ITMAX
1 ! ITRACE
samples/advanced/pdegen/runs/amg_pde3d.inp
+1 -1
View File
@@ -4,7 +4,7 @@ CSR ! Storage format CSR COO JAD
POISSON ! PDECOEFF: POISSON, EXP, BOX, GAUSS
% ! Coefficients of the PDE
CG ! Iterative method:
% ! BiCGSTAB BiCGSTABL BiCG CG CGS FCG GCR RGMRES
% ! BiCGSTAB BiCGSTABL BiCG CG CGS FCG GCR RGMRES RICHARDSON
2 ! ISTOPC
00500 ! ITMAX
1 ! ITRACE