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

psblas3:

Browse Source 
base/modules/psb_base_mat_mod.f90
 krylov/psb_cbicg.f90
 krylov/psb_ccg.f90
 krylov/psb_ccgs.f90
 krylov/psb_ccgstab.f90
 krylov/psb_ccgstabl.f90
 krylov/psb_ckrylov.f90
 krylov/psb_crgmres.f90
 krylov/psb_dbicg.f90
 krylov/psb_dcg.F90
 krylov/psb_dcgs.f90
 krylov/psb_dcgstab.F90
 krylov/psb_dcgstabl.f90
 krylov/psb_dkrylov.f90
 krylov/psb_drgmres.f90
 krylov/psb_sbicg.f90
 krylov/psb_scg.F90
 krylov/psb_scgs.f90
 krylov/psb_scgstab.F90
 krylov/psb_scgstabl.f90
 krylov/psb_skrylov.f90
 krylov/psb_srgmres.f90
 krylov/psb_zbicg.f90
 krylov/psb_zcg.F90
 krylov/psb_zcgs.f90
 krylov/psb_zcgstab.f90
 krylov/psb_zcgstabl.f90
 krylov/psb_zkrylov.f90
 krylov/psb_zrgmres.f90
 opt/psb_c_rsb_mat_mod.F90
 opt/psb_s_rsb_mat_mod.F90
 opt/psb_z_rsb_mat_mod.F90
 util/psb_hbio_impl.f90

Fixes in comments to Krylov methods.
psblas3-type-indexed
Salvatore Filippone 14 years ago
parent 4ca3b89e1c
commit 997cef4a94
33 changed files with 220 additions and 219 deletions
Show Stats Download Patch File Download Diff File

1
base/modules/psb_base_mat_mod.f90
Unescape Escape View File

@ -37,6 +37,7 @@
! type variants, such as number of rows and columns, whether the ! type variants, such as number of rows and columns, whether the
! matrix is supposed to be triangular (upper or lower) and with a unit ! matrix is supposed to be triangular (upper or lower) and with a unit
! (i.e. assumed) diagonal, together with some state variables. This ! (i.e. assumed) diagonal, together with some state variables. This
! base class is in common among all variants of real/complex, ! base class is in common among all variants of real/complex,
! short/long precision; as such, it only contains information that is ! short/long precision; as such, it only contains information that is
! inherently integer in nature. ! inherently integer in nature.

6
krylov/psb_cbicg.f90
Unescape Escape View File

@ -85,10 +85,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_ccg.f90
Unescape Escape View File

@ -87,10 +87,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_ccgs.f90
Unescape Escape View File

@ -85,10 +85,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_ccgstab.f90
Unescape Escape View File

@ -86,10 +86,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_ccgstabl.f90
Unescape Escape View File

@ -93,10 +93,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration
! is stopped when |r| <= eps * (|a||x|+|b|) ! is stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! irst - integer(optional) Input: restart parameter L ! irst - integer(optional) Input: restart parameter L

4
krylov/psb_ckrylov.f90
Unescape Escape View File

@ -74,8 +74,8 @@
! BICGSTAB(L) methods ! BICGSTAB(L) methods
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b| ! 1: err = |r|/(|a||x|+|b|)
! 2: err = |r|/(|a||x|+|b|) ! 2: err = |r|/|b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual ! estimate of) residual
! !

6
krylov/psb_crgmres.f90
Unescape Escape View File

@ -97,10 +97,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! irst - integer(optional) Input: restart parameter ! irst - integer(optional) Input: restart parameter

6
krylov/psb_dbicg.f90
Unescape Escape View File

@ -86,10 +86,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_dcg.F90
Unescape Escape View File

@ -87,10 +87,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_dcgs.f90
Unescape Escape View File

@ -86,10 +86,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_dcgstab.F90
Unescape Escape View File

@ -85,10 +85,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_dcgstabl.f90
Unescape Escape View File

@ -93,10 +93,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! irst - integer(optional) Input: restart parameter L ! irst - integer(optional) Input: restart parameter L

4
krylov/psb_dkrylov.f90
Unescape Escape View File

@ -71,8 +71,8 @@
! BICGSTAB(L) methods ! BICGSTAB(L) methods
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b| ! 1: err = |r|/(|a||x|+|b|)
! 2: err = |r|/(|a||x|+|b|) ! 2: err = |r|/|b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual ! estimate of) residual
! !

6
krylov/psb_drgmres.f90
Unescape Escape View File

@ -97,10 +97,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! irst - integer(optional) Input: restart parameter ! irst - integer(optional) Input: restart parameter

6
krylov/psb_sbicg.f90
Unescape Escape View File

@ -86,10 +86,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_scg.F90
Unescape Escape View File

@ -87,10 +87,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_scgs.f90
Unescape Escape View File

@ -86,10 +86,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_scgstab.F90
Unescape Escape View File

@ -85,10 +85,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_scgstabl.f90
Unescape Escape View File

@ -93,10 +93,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! irst - integer(optional) Input: restart parameter L ! irst - integer(optional) Input: restart parameter L

4
krylov/psb_skrylov.f90
Unescape Escape View File

@ -70,8 +70,8 @@
! BICGSTAB(L) methods ! BICGSTAB(L) methods
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b| ! 1: err = |r|/(|a||x|+|b|)
! 2: err = |r|/(|a||x|+|b|) ! 2: err = |r|/|b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual ! estimate of) residual
! !

6
krylov/psb_srgmres.f90
Unescape Escape View File

@ -97,10 +97,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! irst - integer(optional) Input: restart parameter ! irst - integer(optional) Input: restart parameter

6
krylov/psb_zbicg.f90
Unescape Escape View File

@ -85,10 +85,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_zcg.F90
Unescape Escape View File

@ -87,10 +87,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_zcgs.f90
Unescape Escape View File

@ -85,10 +85,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_zcgstab.f90
Unescape Escape View File

@ -86,10 +86,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! !

6
krylov/psb_zcgstabl.f90
Unescape Escape View File

@ -93,10 +93,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration
! is stopped when |r| <= eps * (|a||x|+|b|) ! is stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! irst - integer(optional) Input: restart parameter L ! irst - integer(optional) Input: restart parameter L

4
krylov/psb_zkrylov.f90
Unescape Escape View File

@ -72,8 +72,8 @@
! BICGSTAB(L) methods ! BICGSTAB(L) methods
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b| ! 1: err = |r|/(|a||x|+|b|)
! 2: err = |r|/(|a||x|+|b|) ! 2: err = |r|/|b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual ! estimate of) residual
! !

6
krylov/psb_zrgmres.f90
Unescape Escape View File

@ -97,10 +97,10 @@
! iterations ! iterations
! istop - integer(optional) Input: stopping criterion, or how ! istop - integer(optional) Input: stopping criterion, or how
! to estimate the error. ! to estimate the error.
! 1: err = |r|/|b|; here the iteration is ! 1: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * |b|
! 2: err = |r|/(|a||x|+|b|); here the iteration is
! stopped when |r| <= eps * (|a||x|+|b|) ! stopped when |r| <= eps * (|a||x|+|b|)
! 2: err = |r|/|b|; here the iteration is
! stopped when |r| <= eps * |b|
! where r is the (preconditioned, recursive ! where r is the (preconditioned, recursive
! estimate of) residual. ! estimate of) residual.
! irst - integer(optional) Input: restart parameter ! irst - integer(optional) Input: restart parameter

Write Preview
Loading…
Cancel
Save