fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
test/serial/psb_d_cxx_impl.f90
 test/serial/psb_d_cxx_mat_mod.f90

Fixed serial example for new interface of CSPUT
This commit is contained in:
Salvatore Filippone
2014-10-17 09:32:19 +00:00
parent 36f378caf8
commit 6a0f76051e
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/serial/psb_d_cxx_impl.f90
+3 -3
View File
@@ -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)
test/serial/psb_d_cxx_mat_mod.f90
+3 -3
View File
@@ -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