fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +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:24:01 +01:00
parent 5936c05eb4
commit 283e849c94
5 changed files with 65 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/psb_d_pde2d.F90
+16 -2
View File
@@ -757,8 +757,22 @@ program psb_d_pde2d
call psb_barrier(ctxt)
t1 = psb_wtime()
eps = 1.d-6
call psb_krylov(kmethd,a,prec,bv,xxv,eps,desc_a,info,&
& itmax=itmax,iter=iter,err=err,itrace=itrace,istop=istopc,irst=irst)
select case(psb_toupper(trim(kmethd)))
case('RICHARDSON')
call psb_richardson(a,prec,bv,xxv,eps,&
& desc_a,info,itmax=itmax,iter=iter,&
& err=err,itrace=itrace,&
& istop=istopc)
case('BICGSTAB','BICGSTABL','BICG','CG','CGS','FCG','GCR','RGMRES')
call psb_krylov(kmethd,a,prec,bv,xxv,eps,&
& desc_a,info,itmax=itmax,iter=iter,err=err,itrace=itrace,&
& istop=istopc,irst=irst)
case default
write(psb_err_unit,*) 'Unknown method :"',trim(kmethd),'"'
info=psb_err_invalid_input_
call psb_errpush(info,name)
goto 9999
end select
if(info /= psb_success_) then
info=psb_err_from_subroutine_
test/pargen/psb_d_pde3d.F90
+16 -2
View File
@@ -814,8 +814,22 @@ program psb_d_pde3d
call psb_barrier(ctxt)
t1 = psb_wtime()
eps = 1.d-6
call psb_krylov(kmethd,a,prec,bv,xxv,eps,desc_a,info,&
& itmax=itmax,iter=iter,err=err,itrace=itrace,istop=istopc,irst=irst)
select case(psb_toupper(trim(kmethd)))
case('RICHARDSON')
call psb_richardson(a,prec,bv,xxv,eps,&
& desc_a,info,itmax=itmax,iter=iter,&
& err=err,itrace=itrace,&
& istop=istopc)
case('BICGSTAB','BICGSTABL','BICG','CG','CGS','FCG','GCR','RGMRES')
call psb_krylov(kmethd,a,prec,bv,xxv,eps,&
& desc_a,info,itmax=itmax,iter=iter,err=err,itrace=itrace,&
& istop=istopc,irst=irst)
case default
write(psb_err_unit,*) 'Unknown method :"',trim(kmethd),'"'
info=psb_err_invalid_input_
call psb_errpush(info,name)
goto 9999
end select
if(info /= psb_success_) then
info=psb_err_from_subroutine_
test/pargen/psb_s_pde2d.F90
+16 -2
View File
@@ -757,8 +757,22 @@ program psb_s_pde2d
call psb_barrier(ctxt)
t1 = psb_wtime()
eps = 1.d-6
call psb_krylov(kmethd,a,prec,bv,xxv,eps,desc_a,info,&
& itmax=itmax,iter=iter,err=err,itrace=itrace,istop=istopc,irst=irst)
select case(psb_toupper(trim(kmethd)))
case('RICHARDSON')
call psb_richardson(a,prec,bv,xxv,eps,&
& desc_a,info,itmax=itmax,iter=iter,&
& err=err,itrace=itrace,&
& istop=istopc)
case('BICGSTAB','BICGSTABL','BICG','CG','CGS','FCG','GCR','RGMRES')
call psb_krylov(kmethd,a,prec,bv,xxv,eps,&
& desc_a,info,itmax=itmax,iter=iter,err=err,itrace=itrace,&
& istop=istopc,irst=irst)
case default
write(psb_err_unit,*) 'Unknown method :"',trim(kmethd),'"'
info=psb_err_invalid_input_
call psb_errpush(info,name)
goto 9999
end select
if(info /= psb_success_) then
info=psb_err_from_subroutine_
test/pargen/psb_s_pde3d.F90
+16 -2
View File
@@ -814,8 +814,22 @@ program psb_s_pde3d
call psb_barrier(ctxt)
t1 = psb_wtime()
eps = 1.d-6
call psb_krylov(kmethd,a,prec,bv,xxv,eps,desc_a,info,&
& itmax=itmax,iter=iter,err=err,itrace=itrace,istop=istopc,irst=irst)
select case(psb_toupper(trim(kmethd)))
case('RICHARDSON')
call psb_richardson(a,prec,bv,xxv,eps,&
& desc_a,info,itmax=itmax,iter=iter,&
& err=err,itrace=itrace,&
& istop=istopc)
case('BICGSTAB','BICGSTABL','BICG','CG','CGS','FCG','GCR','RGMRES')
call psb_krylov(kmethd,a,prec,bv,xxv,eps,&
& desc_a,info,itmax=itmax,iter=iter,err=err,itrace=itrace,&
& istop=istopc,irst=irst)
case default
write(psb_err_unit,*) 'Unknown method :"',trim(kmethd),'"'
info=psb_err_invalid_input_
call psb_errpush(info,name)
goto 9999
end select
if(info /= psb_success_) then
info=psb_err_from_subroutine_
test/pargen/runs/ppde.inp
+1 -1
View File
@@ -1,5 +1,5 @@
17 Number of entries below this
BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES FCG CGR
BICGSTAB Iterative method BICGSTAB CGS BICG BICGSTABL RGMRES FCG CGR RICHARDSON
BJAC Preconditioner NONE DIAG BJAC
CSR Storage format for matrix A: CSR COO
200 Domain size (acutal system is this**3 (pde3d) or **2 (pde2d) )