From 0bbe5dae2214b116d02c052ad499192a6e071201 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Mon, 4 Mar 2013 14:46:05 +0000 Subject: [PATCH] psblas3-type-indexed: 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 inner names from latest trunk. --- base/modules/psb_c_base_mat_mod.f90 | 12 ++++++------ base/modules/psb_d_base_mat_mod.f90 | 12 ++++++------ base/modules/psb_s_base_mat_mod.f90 | 12 ++++++------ base/modules/psb_z_base_mat_mod.f90 | 12 ++++++------ 4 files changed, 24 insertions(+), 24 deletions(-) diff --git a/base/modules/psb_c_base_mat_mod.f90 b/base/modules/psb_c_base_mat_mod.f90 index 9e4ed9a8a..f334f29ba 100644 --- a/base/modules/psb_c_base_mat_mod.f90 +++ b/base/modules/psb_c_base_mat_mod.f90 @@ -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 diff --git a/base/modules/psb_d_base_mat_mod.f90 b/base/modules/psb_d_base_mat_mod.f90 index 9fd921b54..d879e7c5a 100644 --- a/base/modules/psb_d_base_mat_mod.f90 +++ b/base/modules/psb_d_base_mat_mod.f90 @@ -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 diff --git a/base/modules/psb_s_base_mat_mod.f90 b/base/modules/psb_s_base_mat_mod.f90 index 0ddf7614c..6dab590b1 100644 --- a/base/modules/psb_s_base_mat_mod.f90 +++ b/base/modules/psb_s_base_mat_mod.f90 @@ -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 diff --git a/base/modules/psb_z_base_mat_mod.f90 b/base/modules/psb_z_base_mat_mod.f90 index 4b9b71683..843b5ff99 100644 --- a/base/modules/psb_z_base_mat_mod.f90 +++ b/base/modules/psb_z_base_mat_mod.f90 @@ -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