fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

MLPREC: merged bjac_aply inside as_aply, and updated baseprec_aply

Browse Source 
accordingly.
This commit is contained in:
Salvatore Filippone
2008-01-18 16:49:02 +00:00
parent 5a0956030d
commit 72f98f8f3a
4 changed files with 22 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_das_aply.f90
+10 -1
View File
@@ -108,6 +108,15 @@ subroutine mld_das_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
select case(prec%iprcparm(mld_prec_type_))
case(mld_bjac_)
call mld_bjac_aply(alpha,prec,x,beta,y,desc_data,trans_,work,info)
if (info /= 0) then
info=4010
ch_err='mld_bjac_aply'
goto 9999
end if
case(mld_as_)
!
! Additive Schwarz preconditioner
@@ -120,7 +129,7 @@ subroutine mld_das_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
call mld_bjac_aply(alpha,prec,x,beta,y,desc_data,trans_,work,info)
if(info /= 0) then
info=4010
ch_err='psb_bjac_aply'
ch_err='mld_bjac_aply'
goto 9999
end if
mlprec/mld_dbaseprec_aply.f90
+1 -13
View File
@@ -155,19 +155,7 @@ subroutine mld_dbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
end if
end if
case(mld_bjac_)
!
! Block-Jacobi preconditioner
!
call mld_bjac_aply(alpha,prec,x,beta,y,desc_data,trans_,work,info)
if(info /= 0) then
info=4010
ch_err='mld_bjac_aply'
goto 9999
end if
case(mld_as_)
case(mld_bjac_,mld_as_)
!
! Additive Schwarz preconditioner
!
mlprec/mld_zas_aply.f90
+10 -1
View File
@@ -108,6 +108,15 @@ subroutine mld_zas_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
select case(prec%iprcparm(mld_prec_type_))
case(mld_bjac_)
call mld_bjac_aply(alpha,prec,x,beta,y,desc_data,trans_,work,info)
if (info /= 0) then
info=4010
ch_err='mld_bjac_aply'
goto 9999
end if
case(mld_as_)
!
! Additive Schwarz preconditioner
@@ -120,7 +129,7 @@ subroutine mld_zas_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
call mld_bjac_aply(alpha,prec,x,beta,y,desc_data,trans_,work,info)
if(info /= 0) then
info=4010
ch_err='psb_bjac_aply'
ch_err='mld_bjac_aply'
goto 9999
end if
mlprec/mld_zbaseprec_aply.f90
+1 -13
View File
@@ -159,19 +159,7 @@ subroutine mld_zbaseprec_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
end if
end if
case(mld_bjac_)
!
! Block-Jacobi preconditioner
!
call mld_bjac_aply(alpha,prec,x,beta,y,desc_data,trans_,work,info)
if(info /= 0) then
info=4010
ch_err='mld_bjac_aply'
goto 9999
end if
case(mld_as_)
case(mld_bjac_,mld_as_)
!
! Additive Schwarz preconditioner
!