test/serial/psb_d_cxx_impl.f90
 test/serial/psb_d_cxx_mat_mod.f90

Fixed serial example for new interface of CSPUT
psblas-3.3.1-1
Salvatore Filippone 10 years ago
parent 36f378caf8
commit 6a0f76051e

@ -2333,10 +2333,10 @@ end subroutine psb_d_cxx_csgetblk
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)
use psb_error_mod
use psb_realloc_mod
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csput
use psb_d_cxx_mat_mod, psb_protect_name => psb_d_cxx_csput_a
implicit none
class(psb_d_cxx_sparse_mat), intent(inout) :: a
@ -2618,7 +2618,7 @@ contains
end subroutine psb_d_cxx_srch_upd
end subroutine psb_d_cxx_csput
end subroutine psb_d_cxx_csput_a
subroutine psb_d_cxx_reinit(a,clear)

@ -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_to_fmt => psb_d_mv_cxx_to_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) :: csgetptn => psb_d_cxx_csgetptn
procedure, pass(a) :: csgetrow => psb_d_cxx_csgetrow
@ -280,7 +280,7 @@ module psb_d_cxx_mat_mod
!> \memberof psb_d_cxx_sparse_mat
!! \see psb_d_base_mat_mod::psb_d_base_csput
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_
class(psb_d_cxx_sparse_mat), intent(inout) :: a
real(psb_dpk_), intent(in) :: val(:)
@ -288,7 +288,7 @@ module psb_d_cxx_mat_mod
& imin,imax,jmin,jmax
integer(psb_ipk_), intent(out) :: info
integer(psb_ipk_), intent(in), optional :: gtl(:)
end subroutine psb_d_cxx_csput
end subroutine psb_d_cxx_csput_a
end interface
!> \memberof psb_d_cxx_sparse_mat

Loading…
Cancel
Save