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

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

@ -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

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

@ -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

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

@ -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

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

@ -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

Write Preview
Loading…
Cancel
Save