fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +00:00
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)
This commit is contained in:
Salvatore Filippone
2008-07-19 14:38:58 +00:00
parent 645a5cfe56
commit 038104260b
26 changed files with 33827 additions and 18671 deletions
Download Patch File Download Diff File Expand all files Collapse all files
docs/pdf/methods.tex
+1 -1
View File
@@ -96,7 +96,7 @@ Scope: {\bf global} \\
Type: {\bf optional}.\\
Intent: {\bf in}.\\
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[x] The computed solution. \\
Scope: {\bf local} \\
docs/userguide.pdf
+33802 -18646
View File
File diff suppressed because one or more lines are too long
krylov/psb_cbicg.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
!
! istop_ = 1: normwise backward error, infinity norm
krylov/psb_ccg.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_ccgs.f90
+1 -1
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
istop_ = istop
Else
istop_ = 1
istop_ = 2
Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_ccgstab.f90
+1 -1
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
istop_ = istop
Else
istop_ = 1
istop_ = 2
Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_ccgstabl.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
if (present(itmax)) then
krylov/psb_crgmres.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
!
! ISTOP_ = 1: Normwise backward error, infinity norm
krylov/psb_dbicg.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
!
! istop_ = 1: normwise backward error, infinity norm
krylov/psb_dcg.F90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_dcgs.f90
+1 -1
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
istop_ = istop
Else
istop_ = 1
istop_ = 2
Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_dcgstab.F90
+1 -1
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
istop_ = istop
Else
istop_ = 1
istop_ = 2
Endif
!
! ISTOP_ = 1: Normwise backward error, infinity norm
krylov/psb_dcgstabl.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
if (present(itmax)) then
krylov/psb_drgmres.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
!
! ISTOP_ = 1: Normwise backward error, infinity norm
krylov/psb_sbicg.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
!
! istop_ = 1: normwise backward error, infinity norm
krylov/psb_scg.F90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_scgs.f90
+1 -1
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
istop_ = istop
Else
istop_ = 1
istop_ = 2
Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_scgstab.F90
+1 -1
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
istop_ = istop
Else
istop_ = 1
istop_ = 2
Endif
!
! ISTOP_ = 1: Normwise backward error, infinity norm
krylov/psb_scgstabl.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
if (present(itmax)) then
krylov/psb_srgmres.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
!
! ISTOP_ = 1: Normwise backward error, infinity norm
krylov/psb_zbicg.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
!
! istop_ = 1: normwise backward error, infinity norm
krylov/psb_zcg.F90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_zcgs.f90
+1 -1
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
istop_ = istop
Else
istop_ = 1
istop_ = 2
Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_zcgstab.f90
+1 -1
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
istop_ = istop
Else
istop_ = 1
istop_ = 2
Endif
call psb_chkvect(mglob,1,size(x,1),1,1,desc_a,info)
krylov/psb_zcgstabl.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
if (present(itmax)) then
krylov/psb_zrgmres.f90
+1 -1
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
istop_ = istop
else
istop_ = 1
istop_ = 2
endif
!
! ISTOP_ = 1: Normwise backward error, infinity norm