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

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
This commit is contained in:
Salvatore Filippone
2013-06-05 12:19:27 +00:00
parent 9ce20e7c34
commit e24e4109ab
8 changed files with 56 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_c_mat_mod.f90
+2 -2
View File
@@ -409,8 +409,8 @@ module psb_c_mat_mod
subroutine psb_c_csgetblk(imin,imax,a,b,info,&
& 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(in) :: a
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
base/modules/psb_d_mat_mod.f90
+2 -2
View File
@@ -409,8 +409,8 @@ module psb_d_mat_mod
subroutine psb_d_csgetblk(imin,imax,a,b,info,&
& 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(in) :: a
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
base/modules/psb_s_mat_mod.f90
+2 -2
View File
@@ -409,8 +409,8 @@ module psb_s_mat_mod
subroutine psb_s_csgetblk(imin,imax,a,b,info,&
& 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(in) :: a
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
base/modules/psb_z_mat_mod.f90
+2 -2
View File
@@ -409,8 +409,8 @@ module psb_z_mat_mod
subroutine psb_z_csgetblk(imin,imax,a,b,info,&
& 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(in) :: a
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
base/serial/impl/psb_c_mat_impl.F90
+12 -2
View File
@@ -884,8 +884,8 @@ subroutine psb_c_csgetblk(imin,imax,a,b,info,&
use psb_c_mat_mod, psb_protect_name => psb_c_csgetblk
implicit none
class(psb_cspmat_type), intent(in) :: a
class(psb_cspmat_type), intent(out) :: b
class(psb_cspmat_type), intent(in) :: a
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,&
base/serial/impl/psb_d_mat_impl.F90
+12 -2
View File
@@ -884,8 +884,8 @@ subroutine psb_d_csgetblk(imin,imax,a,b,info,&
use psb_d_mat_mod, psb_protect_name => psb_d_csgetblk
implicit none
class(psb_dspmat_type), intent(in) :: a
class(psb_dspmat_type), intent(out) :: b
class(psb_dspmat_type), intent(in) :: a
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,&
base/serial/impl/psb_s_mat_impl.F90
+12 -2
View File
@@ -884,8 +884,8 @@ subroutine psb_s_csgetblk(imin,imax,a,b,info,&
use psb_s_mat_mod, psb_protect_name => psb_s_csgetblk
implicit none
class(psb_sspmat_type), intent(in) :: a
class(psb_sspmat_type), intent(out) :: b
class(psb_sspmat_type), intent(in) :: a
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,&
base/serial/impl/psb_z_mat_impl.F90
+12 -2
View File
@@ -884,8 +884,8 @@ subroutine psb_z_csgetblk(imin,imax,a,b,info,&
use psb_z_mat_mod, psb_protect_name => psb_z_csgetblk
implicit none
class(psb_zspmat_type), intent(in) :: a
class(psb_zspmat_type), intent(out) :: b
class(psb_zspmat_type), intent(in) :: a
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,&