fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Renaming inner precaply.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-02-15 11:22:15 +00:00
parent dff1d9c27d
commit 002adffb28
5 changed files with 16 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_dbaseprc_aply.f90 → prec/psb_dgen_precaply.f90
+2 -2
View File
@@ -28,7 +28,7 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
subroutine psb_dbaseprc_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
subroutine psb_dgen_precaply(alpha,prec,x,beta,y,desc_data,trans,work,info)
!
! Compute Y <- beta*Y + alpha*K^-1 X
! where K is a a basic preconditioner stored in prec
@@ -145,5 +145,5 @@ subroutine psb_dbaseprc_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
end if
return
end subroutine psb_dbaseprc_aply
end subroutine psb_dgen_precaply
prec/psb_dprc_aply.f90
+10 -10
View File
@@ -48,18 +48,18 @@ subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work)
logical,parameter :: debug=.false., debugprt=.false.
character(len=20) :: name
interface psb_baseprc_aply
subroutine psb_dbaseprc_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
interface psb_gen_precaply
subroutine psb_dgen_precaply(alpha,prec,x,beta,y,desc_data,trans,work,info)
use psb_base_mod
use psb_prec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_desc_type),intent(in) :: desc_data
type(psb_dprec_type), intent(in) :: prec
real(kind(0.d0)),intent(inout) :: x(:), y(:)
real(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans
real(kind(0.d0)),target :: work(:)
integer, intent(out) :: info
end subroutine psb_dbaseprc_aply
real(kind(0.d0)),intent(inout) :: x(:), y(:)
real(kind(0.d0)),intent(in) :: alpha,beta
character(len=1) :: trans
real(kind(0.d0)),target :: work(:)
integer, intent(out) :: info
end subroutine psb_dgen_precaply
end interface
name='psb_prc_aply'
@@ -86,7 +86,7 @@ subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work)
end if
call psb_baseprc_aply(done,prec,x,dzero,y,desc_data,trans_,work_,info)
call psb_gen_precaply(done,prec,x,dzero,y,desc_data,trans_,work_,info)
if (present(work)) then
else
prec/psb_prec_mod.f90
-15
View File
@@ -81,21 +81,6 @@ module psb_prec_mod
end interface
!!$ interface psb_precfree
!!$ subroutine psb_dprecfree(p,info)
!!$ use psb_base_mod
!!$ use psb_prec_type
!!$ type(psb_dprec_type), intent(inout) :: p
!!$ integer, intent(out) :: info
!!$ end subroutine psb_dprecfree
!!$ subroutine psb_zprecfree(p,info)
!!$ use psb_base_mod
!!$ use psb_prec_type
!!$ type(psb_zprec_type), intent(inout) :: p
!!$ integer, intent(out) :: info
!!$ end subroutine psb_zprecfree
!!$ end interface
interface psb_precaply
subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans,work)
use psb_base_mod
prec/psb_zbaseprc_aply.f90 → prec/psb_zgen_precaply
View File
prec/psb_zprc_aply.f90
+4 -4
View File
@@ -48,8 +48,8 @@ subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
logical,parameter :: debug=.false., debugprt=.false.
character(len=20) :: name
interface psb_baseprc_aply
subroutine psb_zbaseprc_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
interface psb_gen_precaply
subroutine psb_zgen_precaply(alpha,prec,x,beta,y,desc_data,trans,work,info)
use psb_base_mod
use psb_prec_type
type(psb_desc_type),intent(in) :: desc_data
@@ -59,7 +59,7 @@ subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
character(len=1) :: trans
complex(kind(0.d0)),target :: work(:)
integer, intent(out) :: info
end subroutine psb_zbaseprc_aply
end subroutine psb_zgen_precaply
end interface
name='psb_prc_aply'
@@ -86,7 +86,7 @@ subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work)
end if
call psb_baseprc_aply(zone,prec,x,zzero,y,desc_data,trans_, work_,info)
call psb_gen_precaply(zone,prec,x,zzero,y,desc_data,trans_, work_,info)
if (present(work)) then
else