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

Fixed optional itmax usage.

Browse Source
psblas3-type-indexed
Salvatore Filippone 19 years ago
parent d283f6ffa8
commit 316d3859a2
5 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File

4
src/methd/psb_dbicg.f90
Unescape Escape View File

@ -186,7 +186,7 @@ subroutine psb_dbicg(a,prec,b,x,eps,desc_a,info,&
!!$ !!$
!!$ r0 = b-ax0 !!$ r0 = b-ax0
!!$ !!$
if (itx.ge.itmax) exit restart if (itx.ge.litmax) exit restart
it = 0 it = 0
call psb_axpby(one,b,zero,r,desc_a,info) call psb_axpby(one,b,zero,r,desc_a,info)
call psb_spmm(-one,a,x,one,r,desc_a,info,work=aux) call psb_spmm(-one,a,x,one,r,desc_a,info,work=aux)
@ -301,7 +301,7 @@ subroutine psb_dbicg(a,prec,b,x,eps,desc_a,info,&
if (rerr<=eps) then if (rerr<=eps) then
exit restart exit restart
end if end if
if (itx.ge.itmax) exit restart if (itx.ge.litmax) exit restart
end do iteration end do iteration
end do restart end do restart

4
src/methd/psb_dcgs.f90
Unescape Escape View File

@ -182,7 +182,7 @@ Subroutine psb_dcgs(a,prec,b,x,eps,desc_a,info,&
!!$ !!$
!!$ r0 = b-ax0 !!$ r0 = b-ax0
!!$ !!$
If (itx.Ge.itmax) Exit restart If (itx.Ge.litmax) Exit restart
it = 0 it = 0
Call psb_axpby(one,b,zero,r,desc_a,info) Call psb_axpby(one,b,zero,r,desc_a,info)
Call psb_spmm(-one,a,x,one,r,desc_a,info,work=aux) Call psb_spmm(-one,a,x,one,r,desc_a,info,work=aux)
@ -294,7 +294,7 @@ Subroutine psb_dcgs(a,prec,b,x,eps,desc_a,info,&
If (rerr<=eps) Then If (rerr<=eps) Then
Exit restart Exit restart
End If End If
If (itx.Ge.itmax) Exit restart If (itx.Ge.litmax) Exit restart
End Do iteration End Do iteration
End Do restart End Do restart

4
src/methd/psb_dcgstab.f90
Unescape Escape View File

@ -184,7 +184,7 @@ Subroutine psb_dcgstab(a,prec,b,x,eps,desc_a,info,&
!!$ !!$
!!$ r0 = b-Ax0 !!$ r0 = b-Ax0
!!$ !!$
If (itx >= itmax) Exit restart If (itx >= litmax) Exit restart
it = 0 it = 0
Call psb_axpby(one,b,zero,r,desc_a,info) Call psb_axpby(one,b,zero,r,desc_a,info)
Call psb_spmm(-one,a,x,one,r,desc_a,info,work=aux) Call psb_spmm(-one,a,x,one,r,desc_a,info,work=aux)
@ -347,7 +347,7 @@ Subroutine psb_dcgstab(a,prec,b,x,eps,desc_a,info,&
Exit restart Exit restart
End If End If
If (itx.Ge.itmax) Exit restart If (itx.Ge.litmax) Exit restart
End Do iteration End Do iteration
End Do restart End Do restart

4
src/methd/psb_dcgstabl.f90
Unescape Escape View File

@ -202,7 +202,7 @@ Subroutine psb_dcgstabl(a,prec,b,x,eps,desc_a,info,&
!!$ r0 = b-ax0 !!$ r0 = b-ax0
!!$ !!$
If (debug) Write(0,*) 'restart: ',itx,it If (debug) Write(0,*) 'restart: ',itx,it
If (itx.Ge.itmax) Exit restart If (itx.Ge.litmax) Exit restart
it = 0 it = 0
Call psb_axpby(one,b,zero,r,desc_a,info) Call psb_axpby(one,b,zero,r,desc_a,info)
Call psb_spmm(-one,a,x,one,r,desc_a,info,work=aux) Call psb_spmm(-one,a,x,one,r,desc_a,info,work=aux)
@ -356,7 +356,7 @@ Subroutine psb_dcgstabl(a,prec,b,x,eps,desc_a,info,&
Exit restart Exit restart
End If End If
If (itx.Ge.itmax) Exit restart If (itx.Ge.litmax) Exit restart
End Do iteration End Do iteration
End Do restart End Do restart

2
src/methd/psb_dgmresr.f90
Unescape Escape View File

@ -235,7 +235,7 @@ Subroutine psb_dgmresr(a,prec,b,x,eps,desc_a,info,&
Exit restart Exit restart
End If End If
If (itx.Ge.itmax) Exit restart If (itx.Ge.litmax) Exit restart
v(:,1) = v(:,1) * scal v(:,1) = v(:,1) * scal

Write Preview
Loading…
Cancel
Save