fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
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.
psblas3-final
Salvatore Filippone 12 years ago
parent 24155b1a4f
commit 1acacb1f5f
4 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File

12
base/modules/psb_c_base_mat_mod.f90
Unescape Escape View File

@ -58,8 +58,8 @@ module psb_c_base_mat_mod
! Data management methods: defined here, but (mostly) not implemented. ! Data management methods: defined here, but (mostly) not implemented.
! !
procedure, pass(a) :: csput => psb_c_base_csput procedure, pass(a) :: csput => psb_c_base_csput
procedure, pass(a) :: csgetrow => psb_c_base_csgetrow procedure, pass(a) :: csgetrow => psb_c_base_csgetrow
procedure, pass(a) :: csgetblk => psb_c_base_csgetblk procedure, pass(a) :: csgetblk => psb_c_base_csgetblk
procedure, pass(a) :: get_diag => psb_c_base_get_diag procedure, pass(a) :: get_diag => psb_c_base_get_diag
generic, public :: csget => csgetrow, csgetblk generic, public :: csget => csgetrow, csgetblk
procedure, pass(a) :: csclip => psb_c_base_csclip 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. ! 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) :: csmv => psb_c_base_csmv
procedure, pass(a) :: csmm => psb_c_base_csmm procedure, pass(a) :: csmm => psb_c_base_csmm
generic, public :: spmm => csmm, csmv, sp_mv generic, public :: spmm => csmm, csmv, vect_mv
procedure, pass(a) :: in_sv => psb_c_base_inner_vect_sv 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_cssv => psb_c_base_inner_cssv
procedure, pass(a) :: inner_cssm => psb_c_base_inner_cssm 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) :: vect_cssv => psb_c_base_vect_cssv
procedure, pass(a) :: cssv => psb_c_base_cssv procedure, pass(a) :: cssv => psb_c_base_cssv
procedure, pass(a) :: cssm => psb_c_base_cssm procedure, pass(a) :: cssm => psb_c_base_cssm

12
base/modules/psb_d_base_mat_mod.f90
Unescape Escape View File

@ -58,8 +58,8 @@ module psb_d_base_mat_mod
! Data management methods: defined here, but (mostly) not implemented. ! Data management methods: defined here, but (mostly) not implemented.
! !
procedure, pass(a) :: csput => psb_d_base_csput procedure, pass(a) :: csput => psb_d_base_csput
procedure, pass(a) :: csgetrow => psb_d_base_csgetrow procedure, pass(a) :: csgetrow => psb_d_base_csgetrow
procedure, pass(a) :: csgetblk => psb_d_base_csgetblk procedure, pass(a) :: csgetblk => psb_d_base_csgetblk
procedure, pass(a) :: get_diag => psb_d_base_get_diag procedure, pass(a) :: get_diag => psb_d_base_get_diag
generic, public :: csget => csgetrow, csgetblk generic, public :: csget => csgetrow, csgetblk
procedure, pass(a) :: csclip => psb_d_base_csclip 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. ! 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) :: csmv => psb_d_base_csmv
procedure, pass(a) :: csmm => psb_d_base_csmm procedure, pass(a) :: csmm => psb_d_base_csmm
generic, public :: spmm => csmm, csmv, sp_mv generic, public :: spmm => csmm, csmv, vect_mv
procedure, pass(a) :: in_sv => psb_d_base_inner_vect_sv 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_cssv => psb_d_base_inner_cssv
procedure, pass(a) :: inner_cssm => psb_d_base_inner_cssm 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) :: vect_cssv => psb_d_base_vect_cssv
procedure, pass(a) :: cssv => psb_d_base_cssv procedure, pass(a) :: cssv => psb_d_base_cssv
procedure, pass(a) :: cssm => psb_d_base_cssm procedure, pass(a) :: cssm => psb_d_base_cssm

12
base/modules/psb_s_base_mat_mod.f90
Unescape Escape View File

@ -58,8 +58,8 @@ module psb_s_base_mat_mod
! Data management methods: defined here, but (mostly) not implemented. ! Data management methods: defined here, but (mostly) not implemented.
! !
procedure, pass(a) :: csput => psb_s_base_csput procedure, pass(a) :: csput => psb_s_base_csput
procedure, pass(a) :: csgetrow => psb_s_base_csgetrow procedure, pass(a) :: csgetrow => psb_s_base_csgetrow
procedure, pass(a) :: csgetblk => psb_s_base_csgetblk procedure, pass(a) :: csgetblk => psb_s_base_csgetblk
procedure, pass(a) :: get_diag => psb_s_base_get_diag procedure, pass(a) :: get_diag => psb_s_base_get_diag
generic, public :: csget => csgetrow, csgetblk generic, public :: csget => csgetrow, csgetblk
procedure, pass(a) :: csclip => psb_s_base_csclip 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. ! 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) :: csmv => psb_s_base_csmv
procedure, pass(a) :: csmm => psb_s_base_csmm procedure, pass(a) :: csmm => psb_s_base_csmm
generic, public :: spmm => csmm, csmv, sp_mv generic, public :: spmm => csmm, csmv, vect_mv
procedure, pass(a) :: in_sv => psb_s_base_inner_vect_sv 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_cssv => psb_s_base_inner_cssv
procedure, pass(a) :: inner_cssm => psb_s_base_inner_cssm 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) :: vect_cssv => psb_s_base_vect_cssv
procedure, pass(a) :: cssv => psb_s_base_cssv procedure, pass(a) :: cssv => psb_s_base_cssv
procedure, pass(a) :: cssm => psb_s_base_cssm procedure, pass(a) :: cssm => psb_s_base_cssm

12
base/modules/psb_z_base_mat_mod.f90
Unescape Escape View File

@ -58,8 +58,8 @@ module psb_z_base_mat_mod
! Data management methods: defined here, but (mostly) not implemented. ! Data management methods: defined here, but (mostly) not implemented.
! !
procedure, pass(a) :: csput => psb_z_base_csput procedure, pass(a) :: csput => psb_z_base_csput
procedure, pass(a) :: csgetrow => psb_z_base_csgetrow procedure, pass(a) :: csgetrow => psb_z_base_csgetrow
procedure, pass(a) :: csgetblk => psb_z_base_csgetblk procedure, pass(a) :: csgetblk => psb_z_base_csgetblk
procedure, pass(a) :: get_diag => psb_z_base_get_diag procedure, pass(a) :: get_diag => psb_z_base_get_diag
generic, public :: csget => csgetrow, csgetblk generic, public :: csget => csgetrow, csgetblk
procedure, pass(a) :: csclip => psb_z_base_csclip 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. ! 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) :: csmv => psb_z_base_csmv
procedure, pass(a) :: csmm => psb_z_base_csmm procedure, pass(a) :: csmm => psb_z_base_csmm
generic, public :: spmm => csmm, csmv, sp_mv generic, public :: spmm => csmm, csmv, vect_mv
procedure, pass(a) :: in_sv => psb_z_base_inner_vect_sv 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_cssv => psb_z_base_inner_cssv
procedure, pass(a) :: inner_cssm => psb_z_base_inner_cssm 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) :: vect_cssv => psb_z_base_vect_cssv
procedure, pass(a) :: cssv => psb_z_base_cssv procedure, pass(a) :: cssv => psb_z_base_cssv
procedure, pass(a) :: cssm => psb_z_base_cssm procedure, pass(a) :: cssm => psb_z_base_cssm

Write Preview
Loading…
Cancel
Save