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

Choose Krylov method together with preconditioner.

Browse Source
stopcriterion
Salvatore Filippone 8 years ago
parent 933bb90a6f
commit 50ec525f48
8 changed files with 28 additions and 20 deletions
Show Stats Download Patch File Download Diff File

2
examples/fileread/mld_cexample_1lev.f90
Unescape Escape View File

@ -226,7 +226,7 @@ program mld_cexample_1lev
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) call psb_krylov('BiCGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
call psb_amx(ictxt,t2) call psb_amx(ictxt,t2)

8
examples/fileread/mld_cexample_ml.f90
Unescape Escape View File

@ -102,7 +102,7 @@ program mld_cexample_ml
integer :: ierr, ircode integer :: ierr, ircode
real(psb_spk_) :: resmx, resmxp real(psb_spk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec real(psb_dpk_) :: t1, t2, tprec
character(len=20) :: name character(len=20) :: name, kmethod
integer, parameter :: iunit=12 integer, parameter :: iunit=12
! initialize the parallel environment ! initialize the parallel environment
@ -215,6 +215,7 @@ program mld_cexample_ml
! solver ! solver
call P%init('ML',info) call P%init('ML',info)
kmethod = 'CG'
case(2) case(2)
@ -226,6 +227,7 @@ program mld_cexample_ml
call P%set('SMOOTHER_TYPE','BJAC',info) call P%set('SMOOTHER_TYPE','BJAC',info)
call P%set('COARSE_SOLVE','BJAC',info) call P%set('COARSE_SOLVE','BJAC',info)
call P%set('COARSE_SWEEPS',8,info) call P%set('COARSE_SWEEPS',8,info)
kmethod = 'CG'
case(3) case(3)
@ -240,7 +242,7 @@ program mld_cexample_ml
call P%set('SMOOTHER_SWEEPS',2,info,pos='POST') call P%set('SMOOTHER_SWEEPS',2,info,pos='POST')
call P%set('COARSE_SOLVE','MUMPS',info) call P%set('COARSE_SOLVE','MUMPS',info)
call P%set('COARSE_MAT','DIST',info) call P%set('COARSE_MAT','DIST',info)
kmethod = 'BICGSTAB'
end select end select
! build the preconditioner ! build the preconditioner
@ -270,7 +272,7 @@ program mld_cexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) call psb_krylov(kmethod,A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
call psb_amx(ictxt,t2) call psb_amx(ictxt,t2)

2
examples/fileread/mld_dexample_1lev.f90
Unescape Escape View File

@ -226,7 +226,7 @@ program mld_dexample_1lev
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) call psb_krylov('BiCGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
call psb_amx(ictxt,t2) call psb_amx(ictxt,t2)

8
examples/fileread/mld_dexample_ml.f90
Unescape Escape View File

@ -102,7 +102,7 @@ program mld_dexample_ml
integer :: ierr, ircode integer :: ierr, ircode
real(psb_dpk_) :: resmx, resmxp real(psb_dpk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec real(psb_dpk_) :: t1, t2, tprec
character(len=20) :: name character(len=20) :: name, kmethod
integer, parameter :: iunit=12 integer, parameter :: iunit=12
! initialize the parallel environment ! initialize the parallel environment
@ -215,6 +215,7 @@ program mld_dexample_ml
! solver ! solver
call P%init('ML',info) call P%init('ML',info)
kmethod = 'CG'
case(2) case(2)
@ -226,6 +227,7 @@ program mld_dexample_ml
call P%set('SMOOTHER_TYPE','BJAC',info) call P%set('SMOOTHER_TYPE','BJAC',info)
call P%set('COARSE_SOLVE','BJAC',info) call P%set('COARSE_SOLVE','BJAC',info)
call P%set('COARSE_SWEEPS',8,info) call P%set('COARSE_SWEEPS',8,info)
kmethod = 'CG'
case(3) case(3)
@ -240,7 +242,7 @@ program mld_dexample_ml
call P%set('SMOOTHER_SWEEPS',2,info,pos='POST') call P%set('SMOOTHER_SWEEPS',2,info,pos='POST')
call P%set('COARSE_SOLVE','MUMPS',info) call P%set('COARSE_SOLVE','MUMPS',info)
call P%set('COARSE_MAT','DIST',info) call P%set('COARSE_MAT','DIST',info)
kmethod = 'BICGSTAB'
end select end select
! build the preconditioner ! build the preconditioner
@ -270,7 +272,7 @@ program mld_dexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) call psb_krylov(kmethod,A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
call psb_amx(ictxt,t2) call psb_amx(ictxt,t2)

2
examples/fileread/mld_sexample_1lev.f90
Unescape Escape View File

@ -226,7 +226,7 @@ program mld_sexample_1lev
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) call psb_krylov('BiCGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
call psb_amx(ictxt,t2) call psb_amx(ictxt,t2)

8
examples/fileread/mld_sexample_ml.f90
Unescape Escape View File

@ -102,7 +102,7 @@ program mld_sexample_ml
integer :: ierr, ircode integer :: ierr, ircode
real(psb_spk_) :: resmx, resmxp real(psb_spk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec real(psb_dpk_) :: t1, t2, tprec
character(len=20) :: name character(len=20) :: name, kmethod
integer, parameter :: iunit=12 integer, parameter :: iunit=12
! initialize the parallel environment ! initialize the parallel environment
@ -215,6 +215,7 @@ program mld_sexample_ml
! solver ! solver
call P%init('ML',info) call P%init('ML',info)
kmethod = 'CG'
case(2) case(2)
@ -226,6 +227,7 @@ program mld_sexample_ml
call P%set('SMOOTHER_TYPE','BJAC',info) call P%set('SMOOTHER_TYPE','BJAC',info)
call P%set('COARSE_SOLVE','BJAC',info) call P%set('COARSE_SOLVE','BJAC',info)
call P%set('COARSE_SWEEPS',8,info) call P%set('COARSE_SWEEPS',8,info)
kmethod = 'CG'
case(3) case(3)
@ -240,7 +242,7 @@ program mld_sexample_ml
call P%set('SMOOTHER_SWEEPS',2,info,pos='POST') call P%set('SMOOTHER_SWEEPS',2,info,pos='POST')
call P%set('COARSE_SOLVE','MUMPS',info) call P%set('COARSE_SOLVE','MUMPS',info)
call P%set('COARSE_MAT','DIST',info) call P%set('COARSE_MAT','DIST',info)
kmethod = 'BICGSTAB'
end select end select
! build the preconditioner ! build the preconditioner
@ -270,7 +272,7 @@ program mld_sexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) call psb_krylov(kmethod,A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
call psb_amx(ictxt,t2) call psb_amx(ictxt,t2)

2
examples/fileread/mld_zexample_1lev.f90
Unescape Escape View File

@ -226,7 +226,7 @@ program mld_zexample_1lev
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2) call psb_krylov('BiCGSTAB',A,P,b,x,tol,desc_A,info,itmax,iter,err,istop=2)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
call psb_amx(ictxt,t2) call psb_amx(ictxt,t2)

8
examples/fileread/mld_zexample_ml.f90
Unescape Escape View File

@ -102,7 +102,7 @@ program mld_zexample_ml
integer :: ierr, ircode integer :: ierr, ircode
real(psb_dpk_) :: resmx, resmxp real(psb_dpk_) :: resmx, resmxp
real(psb_dpk_) :: t1, t2, tprec real(psb_dpk_) :: t1, t2, tprec
character(len=20) :: name character(len=20) :: name, kmethod
integer, parameter :: iunit=12 integer, parameter :: iunit=12
! initialize the parallel environment ! initialize the parallel environment
@ -215,6 +215,7 @@ program mld_zexample_ml
! solver ! solver
call P%init('ML',info) call P%init('ML',info)
kmethod = 'CG'
case(2) case(2)
@ -226,6 +227,7 @@ program mld_zexample_ml
call P%set('SMOOTHER_TYPE','BJAC',info) call P%set('SMOOTHER_TYPE','BJAC',info)
call P%set('COARSE_SOLVE','BJAC',info) call P%set('COARSE_SOLVE','BJAC',info)
call P%set('COARSE_SWEEPS',8,info) call P%set('COARSE_SWEEPS',8,info)
kmethod = 'CG'
case(3) case(3)
@ -240,7 +242,7 @@ program mld_zexample_ml
call P%set('SMOOTHER_SWEEPS',2,info,pos='POST') call P%set('SMOOTHER_SWEEPS',2,info,pos='POST')
call P%set('COARSE_SOLVE','MUMPS',info) call P%set('COARSE_SOLVE','MUMPS',info)
call P%set('COARSE_MAT','DIST',info) call P%set('COARSE_MAT','DIST',info)
kmethod = 'BICGSTAB'
end select end select
! build the preconditioner ! build the preconditioner
@ -270,7 +272,7 @@ program mld_zexample_ml
call psb_barrier(ictxt) call psb_barrier(ictxt)
t1 = psb_wtime() t1 = psb_wtime()
call psb_krylov('CG',A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2) call psb_krylov(kmethod,A,P,b,x,tol,desc_A,info,itmax,iter,err,itrace=1,istop=2)
t2 = psb_wtime() - t1 t2 = psb_wtime() - t1
call psb_amx(ictxt,t2) call psb_amx(ictxt,t2)

Write Preview
Loading…
Cancel
Save