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

psblas:

Browse Source 
docs/pdf/methods.tex
 docs/userguide.pdf
 krylov/psb_cbicg.f90
 krylov/psb_ccg.f90
 krylov/psb_ccgs.f90
 krylov/psb_ccgstab.f90
 krylov/psb_ccgstabl.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_drgmres.f90
 krylov/psb_sbicg.f90
 krylov/psb_scg.F90
 krylov/psb_scgs.f90
 krylov/psb_scgstab.F90
 krylov/psb_scgstabl.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_zrgmres.f90


Changed default stopping criterion to 2 (ratio of 2-norm of residual)
psblas3-type-indexed
Salvatore Filippone 17 years ago
parent 645a5cfe56
commit 038104260b
26 changed files with 26832 additions and 11676 deletions
Show Stats Download Patch File Download Diff File

2
docs/pdf/methods.tex
Unescape Escape View File

@ -96,7 +96,7 @@ Scope: {\bf global} \\
Type: {\bf optional}.\\ Type: {\bf optional}.\\
Intent: {\bf in}.\\ Intent: {\bf in}.\\
Values: 1: use the normwise backward error, 2: use the scaled 2-norm Values: 1: use the normwise backward error, 2: use the scaled 2-norm
of the residual. Default: 1. of the residual. Default: 2.
\item[\bf On Return] \item[\bf On Return]
\item[x] The computed solution. \\ \item[x] The computed solution. \\
Scope: {\bf local} \\ Scope: {\bf local} \\

38458
docs/userguide.pdf
View File

File diff suppressed because one or more lines are too long

2
krylov/psb_cbicg.f90
Unescape Escape View File

@ -149,7 +149,7 @@ subroutine psb_cbicg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
! !
! istop_ = 1: normwise backward error, infinity norm ! istop_ = 1: normwise backward error, infinity norm

2
krylov/psb_ccg.f90
Unescape Escape View File

@ -142,7 +142,7 @@ subroutine psb_ccg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_ccgs.f90
Unescape Escape View File

@ -141,7 +141,7 @@ Subroutine psb_ccgs(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
If (Present(istop)) Then If (Present(istop)) Then
istop_ = istop istop_ = istop
Else Else
istop_ = 1 istop_ = 2
Endif Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_ccgstab.f90
Unescape Escape View File

@ -143,7 +143,7 @@ subroutine psb_ccgstab(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
If (Present(istop)) Then If (Present(istop)) Then
istop_ = istop istop_ = istop
Else Else
istop_ = 1 istop_ = 2
Endif Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_ccgstabl.f90
Unescape Escape View File

@ -157,7 +157,7 @@ Subroutine psb_ccgstabl(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,is
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
if (present(itmax)) then if (present(itmax)) then

2
krylov/psb_crgmres.f90
Unescape Escape View File

@ -156,7 +156,7 @@ Subroutine psb_crgmres(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,ist
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
! !
! ISTOP_ = 1: Normwise backward error, infinity norm ! ISTOP_ = 1: Normwise backward error, infinity norm

2
krylov/psb_dbicg.f90
Unescape Escape View File

@ -149,7 +149,7 @@ subroutine psb_dbicg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
! !
! istop_ = 1: normwise backward error, infinity norm ! istop_ = 1: normwise backward error, infinity norm

2
krylov/psb_dcg.F90
Unescape Escape View File

@ -144,7 +144,7 @@ subroutine psb_dcg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop,cond)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_dcgs.f90
Unescape Escape View File

@ -142,7 +142,7 @@ Subroutine psb_dcgs(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
If (Present(istop)) Then If (Present(istop)) Then
istop_ = istop istop_ = istop
Else Else
istop_ = 1 istop_ = 2
Endif Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_dcgstab.F90
Unescape Escape View File

@ -164,7 +164,7 @@ Subroutine psb_dcgstab(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
If (Present(istop)) Then If (Present(istop)) Then
istop_ = istop istop_ = istop
Else Else
istop_ = 1 istop_ = 2
Endif Endif
! !
! ISTOP_ = 1: Normwise backward error, infinity norm ! ISTOP_ = 1: Normwise backward error, infinity norm

2
krylov/psb_dcgstabl.f90
Unescape Escape View File

@ -156,7 +156,7 @@ Subroutine psb_dcgstabl(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,is
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
if (present(itmax)) then if (present(itmax)) then

2
krylov/psb_drgmres.f90
Unescape Escape View File

@ -157,7 +157,7 @@ subroutine psb_drgmres(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,ist
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
! !
! ISTOP_ = 1: Normwise backward error, infinity norm ! ISTOP_ = 1: Normwise backward error, infinity norm

2
krylov/psb_sbicg.f90
Unescape Escape View File

@ -150,7 +150,7 @@ subroutine psb_sbicg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
! !
! istop_ = 1: normwise backward error, infinity norm ! istop_ = 1: normwise backward error, infinity norm

2
krylov/psb_scg.F90
Unescape Escape View File

@ -145,7 +145,7 @@ subroutine psb_scg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop,cond)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_scgs.f90
Unescape Escape View File

@ -143,7 +143,7 @@ Subroutine psb_scgs(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
If (Present(istop)) Then If (Present(istop)) Then
istop_ = istop istop_ = istop
Else Else
istop_ = 1 istop_ = 2
Endif Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_scgstab.F90
Unescape Escape View File

@ -166,7 +166,7 @@ Subroutine psb_scgstab(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
If (Present(istop)) Then If (Present(istop)) Then
istop_ = istop istop_ = istop
Else Else
istop_ = 1 istop_ = 2
Endif Endif
! !
! ISTOP_ = 1: Normwise backward error, infinity norm ! ISTOP_ = 1: Normwise backward error, infinity norm

2
krylov/psb_scgstabl.f90
Unescape Escape View File

@ -157,7 +157,7 @@ Subroutine psb_scgstabl(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,is
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
if (present(itmax)) then if (present(itmax)) then

2
krylov/psb_srgmres.f90
Unescape Escape View File

@ -156,7 +156,7 @@ subroutine psb_srgmres(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,ist
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
! !
! ISTOP_ = 1: Normwise backward error, infinity norm ! ISTOP_ = 1: Normwise backward error, infinity norm

2
krylov/psb_zbicg.f90
Unescape Escape View File

@ -148,7 +148,7 @@ subroutine psb_zbicg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
! !
! istop_ = 1: normwise backward error, infinity norm ! istop_ = 1: normwise backward error, infinity norm

2
krylov/psb_zcg.F90
Unescape Escape View File

@ -141,7 +141,7 @@ subroutine psb_zcg(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_zcgs.f90
Unescape Escape View File

@ -140,7 +140,7 @@ Subroutine psb_zcgs(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
If (Present(istop)) Then If (Present(istop)) Then
istop_ = istop istop_ = istop
Else Else
istop_ = 1 istop_ = 2
Endif Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_zcgstab.f90
Unescape Escape View File

@ -142,7 +142,7 @@ subroutine psb_zcgstab(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,istop)
If (Present(istop)) Then If (Present(istop)) Then
istop_ = istop istop_ = istop
Else Else
istop_ = 1 istop_ = 2
Endif Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info) call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)

2
krylov/psb_zcgstabl.f90
Unescape Escape View File

@ -156,7 +156,7 @@ Subroutine psb_zcgstabl(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,is
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
if (present(itmax)) then if (present(itmax)) then

2
krylov/psb_zrgmres.f90
Unescape Escape View File

@ -157,7 +157,7 @@ Subroutine psb_zrgmres(a,prec,b,x,eps,desc_a,info,itmax,iter,err,itrace,irst,ist
if (present(istop)) then if (present(istop)) then
istop_ = istop istop_ = istop
else else
istop_ = 1 istop_ = 2
endif endif
! !
! ISTOP_ = 1: Normwise backward error, infinity norm ! ISTOP_ = 1: Normwise backward error, infinity norm

Write Preview
Loading…
Cancel
Save