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

psblas3:

Browse Source 
base/modules/psb_psblas_mod.f90

Fixed interface bug for multiple vectors, exposed by new kiva
testing.
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent 7007f4901a
commit dc5e6813ac
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

16
base/modules/psb_psblas_mod.f90
Unescape Escape View File

@ -304,14 +304,14 @@ module psb_psblas_mod
type(psb_desc_type), intent (in) :: desc_a type(psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_samaxvs end subroutine psb_samaxvs
subroutine psb_smamax(res,x,desc_a,info,jx) subroutine psb_smamaxs(res,x,desc_a,info,jx)
use psb_descriptor_type use psb_descriptor_type
real(psb_spk_), intent (out) :: res(:) real(psb_spk_), intent (out) :: res(:)
real(psb_spk_), intent (in) :: x(:,:) real(psb_spk_), intent (in) :: x(:,:)
type(psb_desc_type), intent (in) :: desc_a type(psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional :: jx integer, optional :: jx
end subroutine psb_smamax end subroutine psb_smamaxs
subroutine psb_damaxvs(res,x,desc_a,info) subroutine psb_damaxvs(res,x,desc_a,info)
use psb_descriptor_type use psb_descriptor_type
real(psb_dpk_), intent (out) :: res real(psb_dpk_), intent (out) :: res
@ -319,14 +319,14 @@ module psb_psblas_mod
type(psb_desc_type), intent (in) :: desc_a type(psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_damaxvs end subroutine psb_damaxvs
subroutine psb_dmamax(res,x,desc_a,info,jx) subroutine psb_dmamaxs(res,x,desc_a,info,jx)
use psb_descriptor_type use psb_descriptor_type
real(psb_dpk_), intent (out) :: res(:) real(psb_dpk_), intent (out) :: res(:)
real(psb_dpk_), intent (in) :: x(:,:) real(psb_dpk_), intent (in) :: x(:,:)
type(psb_desc_type), intent (in) :: desc_a type(psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional :: jx integer, optional :: jx
end subroutine psb_dmamax end subroutine psb_dmamaxs
subroutine psb_camaxvs(res,x,desc_a,info) subroutine psb_camaxvs(res,x,desc_a,info)
use psb_descriptor_type use psb_descriptor_type
real(psb_spk_), intent (out) :: res real(psb_spk_), intent (out) :: res
@ -334,14 +334,14 @@ module psb_psblas_mod
type(psb_desc_type), intent (in) :: desc_a type(psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_camaxvs end subroutine psb_camaxvs
subroutine psb_cmamax(res,x,desc_a,info,jx) subroutine psb_cmamaxs(res,x,desc_a,info,jx)
use psb_descriptor_type use psb_descriptor_type
real(psb_spk_), intent (out) :: res(:) real(psb_spk_), intent (out) :: res(:)
complex(psb_spk_), intent (in) :: x(:,:) complex(psb_spk_), intent (in) :: x(:,:)
type(psb_desc_type), intent (in) :: desc_a type(psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional :: jx integer, optional :: jx
end subroutine psb_cmamax end subroutine psb_cmamaxs
subroutine psb_zamaxvs(res,x,desc_a,info) subroutine psb_zamaxvs(res,x,desc_a,info)
use psb_descriptor_type use psb_descriptor_type
real(psb_dpk_), intent (out) :: res real(psb_dpk_), intent (out) :: res
@ -349,14 +349,14 @@ module psb_psblas_mod
type(psb_desc_type), intent (in) :: desc_a type(psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
end subroutine psb_zamaxvs end subroutine psb_zamaxvs
subroutine psb_zmamax(res,x,desc_a,info,jx) subroutine psb_zmamaxs(res,x,desc_a,info,jx)
use psb_descriptor_type use psb_descriptor_type
real(psb_dpk_), intent (out) :: res(:) real(psb_dpk_), intent (out) :: res(:)
complex(psb_dpk_), intent (in) :: x(:,:) complex(psb_dpk_), intent (in) :: x(:,:)
type(psb_desc_type), intent (in) :: desc_a type(psb_desc_type), intent (in) :: desc_a
integer, intent(out) :: info integer, intent(out) :: info
integer, optional :: jx integer, optional :: jx
end subroutine psb_zmamax end subroutine psb_zmamaxs
end interface end interface
interface psb_geasum interface psb_geasum

Write Preview
Loading…
Cancel
Save