mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 12:52:14 +00:00
psblas3:
base/modules/psb_c_base_mat_mod.f90 base/modules/psb_d_base_mat_mod.f90 base/modules/psb_s_base_mat_mod.f90 base/modules/psb_z_base_mat_mod.f90 Fixed yet again (and finally!) inner spmv/spsv names.
This commit is contained in:
@@ -58,8 +58,8 @@ module psb_c_base_mat_mod
|
||||
! Data management methods: defined here, but (mostly) not implemented.
|
||||
!
|
||||
procedure, pass(a) :: csput => psb_c_base_csput
|
||||
procedure, pass(a) :: csgetrow => psb_c_base_csgetrow
|
||||
procedure, pass(a) :: csgetblk => psb_c_base_csgetblk
|
||||
procedure, pass(a) :: csgetrow => psb_c_base_csgetrow
|
||||
procedure, pass(a) :: csgetblk => psb_c_base_csgetblk
|
||||
procedure, pass(a) :: get_diag => psb_c_base_get_diag
|
||||
generic, public :: csget => csgetrow, csgetblk
|
||||
procedure, pass(a) :: csclip => psb_c_base_csclip
|
||||
@@ -88,14 +88,14 @@ module psb_c_base_mat_mod
|
||||
!
|
||||
! Computational methods: defined here but not implemented.
|
||||
!
|
||||
procedure, pass(a) :: sp_mv => psb_c_base_vect_mv
|
||||
procedure, pass(a) :: vect_mv => psb_c_base_vect_mv
|
||||
procedure, pass(a) :: csmv => psb_c_base_csmv
|
||||
procedure, pass(a) :: csmm => psb_c_base_csmm
|
||||
generic, public :: spmm => csmm, csmv, sp_mv
|
||||
procedure, pass(a) :: in_sv => psb_c_base_inner_vect_sv
|
||||
generic, public :: spmm => csmm, csmv, vect_mv
|
||||
procedure, pass(a) :: in_vect_sv => psb_c_base_inner_vect_sv
|
||||
procedure, pass(a) :: inner_cssv => psb_c_base_inner_cssv
|
||||
procedure, pass(a) :: inner_cssm => psb_c_base_inner_cssm
|
||||
generic, public :: inner_spsm => inner_cssm, inner_cssv, in_sv
|
||||
generic, public :: inner_spsm => inner_cssm, inner_cssv, in_vect_sv
|
||||
procedure, pass(a) :: vect_cssv => psb_c_base_vect_cssv
|
||||
procedure, pass(a) :: cssv => psb_c_base_cssv
|
||||
procedure, pass(a) :: cssm => psb_c_base_cssm
|
||||
|
||||
@@ -58,8 +58,8 @@ module psb_d_base_mat_mod
|
||||
! Data management methods: defined here, but (mostly) not implemented.
|
||||
!
|
||||
procedure, pass(a) :: csput => psb_d_base_csput
|
||||
procedure, pass(a) :: csgetrow => psb_d_base_csgetrow
|
||||
procedure, pass(a) :: csgetblk => psb_d_base_csgetblk
|
||||
procedure, pass(a) :: csgetrow => psb_d_base_csgetrow
|
||||
procedure, pass(a) :: csgetblk => psb_d_base_csgetblk
|
||||
procedure, pass(a) :: get_diag => psb_d_base_get_diag
|
||||
generic, public :: csget => csgetrow, csgetblk
|
||||
procedure, pass(a) :: csclip => psb_d_base_csclip
|
||||
@@ -88,14 +88,14 @@ module psb_d_base_mat_mod
|
||||
!
|
||||
! Computational methods: defined here but not implemented.
|
||||
!
|
||||
procedure, pass(a) :: sp_mv => psb_d_base_vect_mv
|
||||
procedure, pass(a) :: vect_mv => psb_d_base_vect_mv
|
||||
procedure, pass(a) :: csmv => psb_d_base_csmv
|
||||
procedure, pass(a) :: csmm => psb_d_base_csmm
|
||||
generic, public :: spmm => csmm, csmv, sp_mv
|
||||
procedure, pass(a) :: in_sv => psb_d_base_inner_vect_sv
|
||||
generic, public :: spmm => csmm, csmv, vect_mv
|
||||
procedure, pass(a) :: in_vect_sv => psb_d_base_inner_vect_sv
|
||||
procedure, pass(a) :: inner_cssv => psb_d_base_inner_cssv
|
||||
procedure, pass(a) :: inner_cssm => psb_d_base_inner_cssm
|
||||
generic, public :: inner_spsm => inner_cssm, inner_cssv, in_sv
|
||||
generic, public :: inner_spsm => inner_cssm, inner_cssv, in_vect_sv
|
||||
procedure, pass(a) :: vect_cssv => psb_d_base_vect_cssv
|
||||
procedure, pass(a) :: cssv => psb_d_base_cssv
|
||||
procedure, pass(a) :: cssm => psb_d_base_cssm
|
||||
|
||||
@@ -58,8 +58,8 @@ module psb_s_base_mat_mod
|
||||
! Data management methods: defined here, but (mostly) not implemented.
|
||||
!
|
||||
procedure, pass(a) :: csput => psb_s_base_csput
|
||||
procedure, pass(a) :: csgetrow => psb_s_base_csgetrow
|
||||
procedure, pass(a) :: csgetblk => psb_s_base_csgetblk
|
||||
procedure, pass(a) :: csgetrow => psb_s_base_csgetrow
|
||||
procedure, pass(a) :: csgetblk => psb_s_base_csgetblk
|
||||
procedure, pass(a) :: get_diag => psb_s_base_get_diag
|
||||
generic, public :: csget => csgetrow, csgetblk
|
||||
procedure, pass(a) :: csclip => psb_s_base_csclip
|
||||
@@ -88,14 +88,14 @@ module psb_s_base_mat_mod
|
||||
!
|
||||
! Computational methods: defined here but not implemented.
|
||||
!
|
||||
procedure, pass(a) :: sp_mv => psb_s_base_vect_mv
|
||||
procedure, pass(a) :: vect_mv => psb_s_base_vect_mv
|
||||
procedure, pass(a) :: csmv => psb_s_base_csmv
|
||||
procedure, pass(a) :: csmm => psb_s_base_csmm
|
||||
generic, public :: spmm => csmm, csmv, sp_mv
|
||||
procedure, pass(a) :: in_sv => psb_s_base_inner_vect_sv
|
||||
generic, public :: spmm => csmm, csmv, vect_mv
|
||||
procedure, pass(a) :: in_vect_sv => psb_s_base_inner_vect_sv
|
||||
procedure, pass(a) :: inner_cssv => psb_s_base_inner_cssv
|
||||
procedure, pass(a) :: inner_cssm => psb_s_base_inner_cssm
|
||||
generic, public :: inner_spsm => inner_cssm, inner_cssv, in_sv
|
||||
generic, public :: inner_spsm => inner_cssm, inner_cssv, in_vect_sv
|
||||
procedure, pass(a) :: vect_cssv => psb_s_base_vect_cssv
|
||||
procedure, pass(a) :: cssv => psb_s_base_cssv
|
||||
procedure, pass(a) :: cssm => psb_s_base_cssm
|
||||
|
||||
@@ -58,8 +58,8 @@ module psb_z_base_mat_mod
|
||||
! Data management methods: defined here, but (mostly) not implemented.
|
||||
!
|
||||
procedure, pass(a) :: csput => psb_z_base_csput
|
||||
procedure, pass(a) :: csgetrow => psb_z_base_csgetrow
|
||||
procedure, pass(a) :: csgetblk => psb_z_base_csgetblk
|
||||
procedure, pass(a) :: csgetrow => psb_z_base_csgetrow
|
||||
procedure, pass(a) :: csgetblk => psb_z_base_csgetblk
|
||||
procedure, pass(a) :: get_diag => psb_z_base_get_diag
|
||||
generic, public :: csget => csgetrow, csgetblk
|
||||
procedure, pass(a) :: csclip => psb_z_base_csclip
|
||||
@@ -88,14 +88,14 @@ module psb_z_base_mat_mod
|
||||
!
|
||||
! Computational methods: defined here but not implemented.
|
||||
!
|
||||
procedure, pass(a) :: sp_mv => psb_z_base_vect_mv
|
||||
procedure, pass(a) :: vect_mv => psb_z_base_vect_mv
|
||||
procedure, pass(a) :: csmv => psb_z_base_csmv
|
||||
procedure, pass(a) :: csmm => psb_z_base_csmm
|
||||
generic, public :: spmm => csmm, csmv, sp_mv
|
||||
procedure, pass(a) :: in_sv => psb_z_base_inner_vect_sv
|
||||
generic, public :: spmm => csmm, csmv, vect_mv
|
||||
procedure, pass(a) :: in_vect_sv => psb_z_base_inner_vect_sv
|
||||
procedure, pass(a) :: inner_cssv => psb_z_base_inner_cssv
|
||||
procedure, pass(a) :: inner_cssm => psb_z_base_inner_cssm
|
||||
generic, public :: inner_spsm => inner_cssm, inner_cssv, in_sv
|
||||
generic, public :: inner_spsm => inner_cssm, inner_cssv, in_vect_sv
|
||||
procedure, pass(a) :: vect_cssv => psb_z_base_vect_cssv
|
||||
procedure, pass(a) :: cssv => psb_z_base_cssv
|
||||
procedure, pass(a) :: cssm => psb_z_base_cssm
|
||||
|
||||
Reference in New Issue
Block a user