|
|
@ -86,7 +86,7 @@ module psb_d_cxx_mat_mod
|
|
|
|
procedure, pass(a) :: mv_from_coo => psb_d_mv_cxx_from_coo
|
|
|
|
procedure, pass(a) :: mv_from_coo => psb_d_mv_cxx_from_coo
|
|
|
|
procedure, pass(a) :: mv_to_fmt => psb_d_mv_cxx_to_fmt
|
|
|
|
procedure, pass(a) :: mv_to_fmt => psb_d_mv_cxx_to_fmt
|
|
|
|
procedure, pass(a) :: mv_from_fmt => psb_d_mv_cxx_from_fmt
|
|
|
|
procedure, pass(a) :: mv_from_fmt => psb_d_mv_cxx_from_fmt
|
|
|
|
procedure, pass(a) :: csput => psb_d_cxx_csput
|
|
|
|
procedure, pass(a) :: csput_a => psb_d_cxx_csput_a
|
|
|
|
procedure, pass(a) :: get_diag => psb_d_cxx_get_diag
|
|
|
|
procedure, pass(a) :: get_diag => psb_d_cxx_get_diag
|
|
|
|
procedure, pass(a) :: csgetptn => psb_d_cxx_csgetptn
|
|
|
|
procedure, pass(a) :: csgetptn => psb_d_cxx_csgetptn
|
|
|
|
procedure, pass(a) :: csgetrow => psb_d_cxx_csgetrow
|
|
|
|
procedure, pass(a) :: csgetrow => psb_d_cxx_csgetrow
|
|
|
@ -280,7 +280,7 @@ module psb_d_cxx_mat_mod
|
|
|
|
!> \memberof psb_d_cxx_sparse_mat
|
|
|
|
!> \memberof psb_d_cxx_sparse_mat
|
|
|
|
!! \see psb_d_base_mat_mod::psb_d_base_csput
|
|
|
|
!! \see psb_d_base_mat_mod::psb_d_base_csput
|
|
|
|
interface
|
|
|
|
interface
|
|
|
|
subroutine psb_d_cxx_csput(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
|
|
|
|
subroutine psb_d_cxx_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info,gtl)
|
|
|
|
import :: psb_ipk_, psb_d_cxx_sparse_mat, psb_dpk_
|
|
|
|
import :: psb_ipk_, psb_d_cxx_sparse_mat, psb_dpk_
|
|
|
|
class(psb_d_cxx_sparse_mat), intent(inout) :: a
|
|
|
|
class(psb_d_cxx_sparse_mat), intent(inout) :: a
|
|
|
|
real(psb_dpk_), intent(in) :: val(:)
|
|
|
|
real(psb_dpk_), intent(in) :: val(:)
|
|
|
@ -288,7 +288,7 @@ module psb_d_cxx_mat_mod
|
|
|
|
& imin,imax,jmin,jmax
|
|
|
|
& imin,imax,jmin,jmax
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
integer(psb_ipk_), intent(out) :: info
|
|
|
|
integer(psb_ipk_), intent(in), optional :: gtl(:)
|
|
|
|
integer(psb_ipk_), intent(in), optional :: gtl(:)
|
|
|
|
end subroutine psb_d_cxx_csput
|
|
|
|
end subroutine psb_d_cxx_csput_a
|
|
|
|
end interface
|
|
|
|
end interface
|
|
|
|
|
|
|
|
|
|
|
|
!> \memberof psb_d_cxx_sparse_mat
|
|
|
|
!> \memberof psb_d_cxx_sparse_mat
|
|
|
|