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_c_mat_mod.f90
 base/modules/psb_d_mat_mod.f90
 base/modules/psb_s_mat_mod.f90
 base/modules/psb_z_mat_mod.f90
 base/serial/impl/psb_c_mat_impl.F90
 base/serial/impl/psb_d_mat_impl.F90
 base/serial/impl/psb_s_mat_impl.F90
 base/serial/impl/psb_z_mat_impl.F90

Inconsistent INTENT(OUT) on B vs. APPEND
psblas-3.1-maint
Salvatore Filippone 12 years ago
parent 9ce20e7c34
commit e24e4109ab
8 changed files with 56 additions and 16 deletions
Show Stats Download Patch File Download Diff File

2
base/modules/psb_c_mat_mod.f90
Unescape Escape View File

@ -410,7 +410,7 @@ module psb_c_mat_mod
& jmin,jmax,iren,append,rscale,cscale)
import :: psb_ipk_, psb_cspmat_type, psb_spk_
class(psb_cspmat_type), intent(in) :: a
class(psb_cspmat_type), intent(out) :: b
class(psb_cspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(in) :: imin,imax
integer(psb_ipk_),intent(out) :: info
logical, intent(in), optional :: append

2
base/modules/psb_d_mat_mod.f90
Unescape Escape View File

@ -410,7 +410,7 @@ module psb_d_mat_mod
& jmin,jmax,iren,append,rscale,cscale)
import :: psb_ipk_, psb_dspmat_type, psb_dpk_
class(psb_dspmat_type), intent(in) :: a
class(psb_dspmat_type), intent(out) :: b
class(psb_dspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(in) :: imin,imax
integer(psb_ipk_),intent(out) :: info
logical, intent(in), optional :: append

2
base/modules/psb_s_mat_mod.f90
Unescape Escape View File

@ -410,7 +410,7 @@ module psb_s_mat_mod
& jmin,jmax,iren,append,rscale,cscale)
import :: psb_ipk_, psb_sspmat_type, psb_spk_
class(psb_sspmat_type), intent(in) :: a
class(psb_sspmat_type), intent(out) :: b
class(psb_sspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(in) :: imin,imax
integer(psb_ipk_),intent(out) :: info
logical, intent(in), optional :: append

2
base/modules/psb_z_mat_mod.f90
Unescape Escape View File

@ -410,7 +410,7 @@ module psb_z_mat_mod
& jmin,jmax,iren,append,rscale,cscale)
import :: psb_ipk_, psb_zspmat_type, psb_dpk_
class(psb_zspmat_type), intent(in) :: a
class(psb_zspmat_type), intent(out) :: b
class(psb_zspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(in) :: imin,imax
integer(psb_ipk_),intent(out) :: info
logical, intent(in), optional :: append

12
base/serial/impl/psb_c_mat_impl.F90
Unescape Escape View File

@ -885,7 +885,7 @@ subroutine psb_c_csgetblk(imin,imax,a,b,info,&
implicit none
class(psb_cspmat_type), intent(in) :: a
class(psb_cspmat_type), intent(out) :: b
class(psb_cspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(in) :: imin,imax
integer(psb_ipk_),intent(out) :: info
logical, intent(in), optional :: append
@ -896,6 +896,7 @@ subroutine psb_c_csgetblk(imin,imax,a,b,info,&
integer(psb_ipk_) :: err_act
character(len=20) :: name='csget'
logical, parameter :: debug=.false.
logical :: append_
type(psb_c_coo_sparse_mat), allocatable :: acoo
@ -906,8 +907,17 @@ subroutine psb_c_csgetblk(imin,imax,a,b,info,&
call psb_errpush(info,name)
goto 9999
endif
if (present(append)) then
append_ = append
else
append_ = .false.
end if
allocate(acoo,stat=info)
if (append_.and.(info==psb_success_)) then
if (allocated(b%a)) &
& call b%a%mv_to_coo(acoo,info)
end if
if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,&

12
base/serial/impl/psb_d_mat_impl.F90
Unescape Escape View File

@ -885,7 +885,7 @@ subroutine psb_d_csgetblk(imin,imax,a,b,info,&
implicit none
class(psb_dspmat_type), intent(in) :: a
class(psb_dspmat_type), intent(out) :: b
class(psb_dspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(in) :: imin,imax
integer(psb_ipk_),intent(out) :: info
logical, intent(in), optional :: append
@ -896,6 +896,7 @@ subroutine psb_d_csgetblk(imin,imax,a,b,info,&
integer(psb_ipk_) :: err_act
character(len=20) :: name='csget'
logical, parameter :: debug=.false.
logical :: append_
type(psb_d_coo_sparse_mat), allocatable :: acoo
@ -906,8 +907,17 @@ subroutine psb_d_csgetblk(imin,imax,a,b,info,&
call psb_errpush(info,name)
goto 9999
endif
if (present(append)) then
append_ = append
else
append_ = .false.
end if
allocate(acoo,stat=info)
if (append_.and.(info==psb_success_)) then
if (allocated(b%a)) &
& call b%a%mv_to_coo(acoo,info)
end if
if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,&

12
base/serial/impl/psb_s_mat_impl.F90
Unescape Escape View File

@ -885,7 +885,7 @@ subroutine psb_s_csgetblk(imin,imax,a,b,info,&
implicit none
class(psb_sspmat_type), intent(in) :: a
class(psb_sspmat_type), intent(out) :: b
class(psb_sspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(in) :: imin,imax
integer(psb_ipk_),intent(out) :: info
logical, intent(in), optional :: append
@ -896,6 +896,7 @@ subroutine psb_s_csgetblk(imin,imax,a,b,info,&
integer(psb_ipk_) :: err_act
character(len=20) :: name='csget'
logical, parameter :: debug=.false.
logical :: append_
type(psb_s_coo_sparse_mat), allocatable :: acoo
@ -906,8 +907,17 @@ subroutine psb_s_csgetblk(imin,imax,a,b,info,&
call psb_errpush(info,name)
goto 9999
endif
if (present(append)) then
append_ = append
else
append_ = .false.
end if
allocate(acoo,stat=info)
if (append_.and.(info==psb_success_)) then
if (allocated(b%a)) &
& call b%a%mv_to_coo(acoo,info)
end if
if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,&

12
base/serial/impl/psb_z_mat_impl.F90
Unescape Escape View File

@ -885,7 +885,7 @@ subroutine psb_z_csgetblk(imin,imax,a,b,info,&
implicit none
class(psb_zspmat_type), intent(in) :: a
class(psb_zspmat_type), intent(out) :: b
class(psb_zspmat_type), intent(inout) :: b
integer(psb_ipk_), intent(in) :: imin,imax
integer(psb_ipk_),intent(out) :: info
logical, intent(in), optional :: append
@ -896,6 +896,7 @@ subroutine psb_z_csgetblk(imin,imax,a,b,info,&
integer(psb_ipk_) :: err_act
character(len=20) :: name='csget'
logical, parameter :: debug=.false.
logical :: append_
type(psb_z_coo_sparse_mat), allocatable :: acoo
@ -906,8 +907,17 @@ subroutine psb_z_csgetblk(imin,imax,a,b,info,&
call psb_errpush(info,name)
goto 9999
endif
if (present(append)) then
append_ = append
else
append_ = .false.
end if
allocate(acoo,stat=info)
if (append_.and.(info==psb_success_)) then
if (allocated(b%a)) &
& call b%a%mv_to_coo(acoo,info)
end if
if (info == psb_success_) then
call a%a%csget(imin,imax,acoo,info,&

Write Preview
Loading…
Cancel
Save