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

Take out non-user-callable interfaces.

Browse Source
psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 49a1cdec3a
commit bf754a9274
1 changed files with 58 additions and 135 deletions
Show Stats Download Patch File Download Diff File

191
src/modules/psb_prec_mod.f90
Unescape Escape View File

@ -32,54 +32,6 @@
module psb_prec_mod module psb_prec_mod
use psb_prec_type use psb_prec_type
interface psb_bldaggrmat
subroutine psb_dbldaggrmat(a,desc_a,ac,p,desc_p,info)
use psb_prec_type
use psb_descriptor_type
use psb_spmat_type
type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in) :: desc_a
type(psb_dspmat_type), intent(out), target :: ac
type(psb_dbaseprc_type), intent(inout) :: p
type(psb_desc_type), intent(inout) :: desc_p
integer, intent(out) :: info
end subroutine psb_dbldaggrmat
subroutine psb_zbldaggrmat(a,desc_a,ac,p,desc_p,info)
use psb_prec_type
use psb_descriptor_type
use psb_spmat_type
type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in) :: desc_a
type(psb_zspmat_type), intent(out), target :: ac
type(psb_zbaseprc_type), intent(inout) :: p
type(psb_desc_type), intent(inout) :: desc_p
integer, intent(out) :: info
end subroutine psb_zbldaggrmat
end interface
interface psb_genaggrmap
subroutine psb_dgenaggrmap(aggr_type,a,desc_a,nlaggr,ilaggr,info)
use psb_spmat_type
use psb_descriptor_type
implicit none
integer, intent(in) :: aggr_type
type(psb_dspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, pointer :: ilaggr(:),nlaggr(:)
integer, intent(out) :: info
end subroutine psb_dgenaggrmap
subroutine psb_zgenaggrmap(aggr_type,a,desc_a,nlaggr,ilaggr,info)
use psb_spmat_type
use psb_descriptor_type
implicit none
integer, intent(in) :: aggr_type
type(psb_zspmat_type), intent(in) :: a
type(psb_desc_type), intent(in) :: desc_a
integer, pointer :: ilaggr(:),nlaggr(:)
integer, intent(out) :: info
end subroutine psb_zgenaggrmap
end interface
interface psb_precbld interface psb_precbld
subroutine psb_dprecbld(a,desc_a,prec,info,upd) subroutine psb_dprecbld(a,desc_a,prec,info,upd)
@ -133,96 +85,67 @@ end interface
interface psb_precfree interface psb_precfree
subroutine psb_dprecfree(p,info) subroutine psb_dprecfree(p,info)
use psb_descriptor_type use psb_descriptor_type
use psb_serial_mod
use psb_const_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_descriptor_type
use psb_serial_mod
use psb_const_mod
use psb_prec_type
type(psb_zprec_type), intent(inout) :: p
integer, intent(out) :: info
end subroutine psb_zprecfree
end interface
interface psb_asmatbld
Subroutine psb_dasmatbld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt)
use psb_serial_mod use psb_serial_mod
Use psb_descriptor_type use psb_const_mod
Use psb_prec_type use psb_prec_type
integer, intent(in) :: ptype,novr type(psb_dprec_type), intent(inout) :: p
Type(psb_dspmat_type), Intent(in) :: a integer, intent(out) :: info
Type(psb_dspmat_type), Intent(inout) :: blk end subroutine psb_dprecfree
Type(psb_desc_type), Intent(inout) :: desc_p subroutine psb_zprecfree(p,info)
Type(psb_desc_type), Intent(in) :: desc_data use psb_descriptor_type
Character, Intent(in) :: upd
integer, intent(out) :: info
character(len=5), optional :: outfmt
end Subroutine psb_dasmatbld
Subroutine psb_zasmatbld(ptype,novr,a,blk,desc_data,upd,desc_p,info,outfmt)
use psb_serial_mod use psb_serial_mod
Use psb_descriptor_type use psb_const_mod
Use psb_prec_type use psb_prec_type
integer, intent(in) :: ptype,novr type(psb_zprec_type), intent(inout) :: p
Type(psb_zspmat_type), Intent(in) :: a integer, intent(out) :: info
Type(psb_zspmat_type), Intent(inout) :: blk end subroutine psb_zprecfree
Type(psb_desc_type), Intent(inout) :: desc_p end interface
Type(psb_desc_type), Intent(in) :: desc_data
Character, Intent(in) :: upd
integer, intent(out) :: info
character(len=5), optional :: outfmt
end Subroutine psb_zasmatbld
end interface
interface psb_prc_aply interface psb_prc_aply
subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans,work) subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans,work)
use psb_serial_mod use psb_serial_mod
use psb_descriptor_type use psb_descriptor_type
use psb_prec_type 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 type(psb_dprec_type), intent(in) :: prec
real(kind(0.d0)),intent(inout) :: x(:), y(:) real(kind(0.d0)),intent(inout) :: x(:), y(:)
integer, intent(out) :: info integer, intent(out) :: info
character(len=1), optional :: trans character(len=1), optional :: trans
real(kind(0.d0)),intent(inout), optional, target :: work(:) real(kind(0.d0)),intent(inout), optional, target :: work(:)
end subroutine psb_dprc_aply end subroutine psb_dprc_aply
subroutine psb_dprc_aply1(prec,x,desc_data,info,trans) subroutine psb_dprc_aply1(prec,x,desc_data,info,trans)
use psb_serial_mod use psb_serial_mod
use psb_descriptor_type use psb_descriptor_type
use psb_prec_type 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 type(psb_dprec_type), intent(in) :: prec
real(kind(0.d0)),intent(inout) :: x(:) real(kind(0.d0)),intent(inout) :: x(:)
integer, intent(out) :: info integer, intent(out) :: info
character(len=1), optional :: trans character(len=1), optional :: trans
end subroutine psb_dprc_aply1 end subroutine psb_dprc_aply1
subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans,work) subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans,work)
use psb_serial_mod use psb_serial_mod
use psb_descriptor_type use psb_descriptor_type
use psb_prec_type use psb_prec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(psb_zprec_type), intent(in) :: prec type(psb_zprec_type), intent(in) :: prec
complex(kind(0.d0)),intent(inout) :: x(:), y(:) complex(kind(0.d0)),intent(inout) :: x(:), y(:)
integer, intent(out) :: info integer, intent(out) :: info
character(len=1), optional :: trans character(len=1), optional :: trans
complex(kind(0.d0)),intent(inout), optional, target :: work(:) complex(kind(0.d0)),intent(inout), optional, target :: work(:)
end subroutine psb_zprc_aply end subroutine psb_zprc_aply
subroutine psb_zprc_aply1(prec,x,desc_data,info,trans) subroutine psb_zprc_aply1(prec,x,desc_data,info,trans)
use psb_serial_mod use psb_serial_mod
use psb_descriptor_type use psb_descriptor_type
use psb_prec_type use psb_prec_type
type(psb_desc_type),intent(in) :: desc_data type(psb_desc_type),intent(in) :: desc_data
type(psb_zprec_type), intent(in) :: prec type(psb_zprec_type), intent(in) :: prec
complex(kind(0.d0)),intent(inout) :: x(:) complex(kind(0.d0)),intent(inout) :: x(:)
integer, intent(out) :: info integer, intent(out) :: info
character(len=1), optional :: trans character(len=1), optional :: trans
end subroutine psb_zprc_aply1 end subroutine psb_zprc_aply1
end interface end interface
end module psb_prec_mod end module psb_prec_mod

Write Preview
Loading…
Cancel
Save