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

Modify clean_zeros and have it only at base%

Browse Source
This commit is contained in:
sfilippone
2025-01-08 17:18:54 +01:00
parent 66a9d5e50a
commit 4e71fa971c
20 changed files with 688 additions and 684 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_csc_mat_mod.f90
+26 -26
View File
@@ -87,7 +87,7 @@ module psb_c_csc_mat_mod
procedure, pass(a) :: mv_from_coo => psb_c_mv_csc_from_coo
procedure, pass(a) :: mv_to_fmt => psb_c_mv_csc_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_c_mv_csc_from_fmt
procedure, pass(a) :: clean_zeros => psb_c_csc_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_c_csc_clean_zeros
procedure, pass(a) :: csput_a => psb_c_csc_csput_a
procedure, pass(a) :: get_diag => psb_c_csc_get_diag
procedure, pass(a) :: csgetptn => psb_c_csc_csgetptn
@@ -143,7 +143,7 @@ module psb_c_csc_mat_mod
procedure, pass(a) :: mv_from_coo => psb_lc_mv_csc_from_coo
procedure, pass(a) :: mv_to_fmt => psb_lc_mv_csc_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_lc_mv_csc_from_fmt
procedure, pass(a) :: clean_zeros => psb_lc_csc_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_lc_csc_clean_zeros
procedure, pass(a) :: csput_a => psb_lc_csc_csput_a
procedure, pass(a) :: get_diag => psb_lc_csc_get_diag
procedure, pass(a) :: csgetptn => psb_lc_csc_csgetptn
@@ -313,18 +313,18 @@ module psb_c_csc_mat_mod
end subroutine psb_c_mv_csc_from_fmt
end interface
!
!>
!! \memberof psb_c_csc_sparse_mat
!! \see psb_c_base_mat_mod::psb_c_base_clean_zeros
!
interface
subroutine psb_c_csc_clean_zeros(a, info)
import
class(psb_c_csc_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_c_csc_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_c_csc_sparse_mat
!!$ !! \see psb_c_base_mat_mod::psb_c_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_c_csc_clean_zeros(a, info)
!!$ import
!!$ class(psb_c_csc_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_c_csc_clean_zeros
!!$ end interface
!> \memberof psb_c_csc_sparse_mat
@@ -717,18 +717,18 @@ module psb_c_csc_mat_mod
end subroutine psb_lc_mv_csc_from_fmt
end interface
!
!>
!! \memberof psb_lc_csc_sparse_mat
!! \see psb_lc_base_mat_mod::psb_lc_base_clean_zeros
!
interface
subroutine psb_lc_csc_clean_zeros(a, info)
import
class(psb_lc_csc_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lc_csc_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_lc_csc_sparse_mat
!!$ !! \see psb_lc_base_mat_mod::psb_lc_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_lc_csc_clean_zeros(a, info)
!!$ import
!!$ class(psb_lc_csc_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_lc_csc_clean_zeros
!!$ end interface
!> \memberof psb_lc_csc_sparse_mat
!! \see psb_lc_base_mat_mod::psb_lc_base_cp_from
base/modules/serial/psb_c_csr_mat_mod.f90
+25 -25
View File
@@ -91,7 +91,7 @@ module psb_c_csr_mat_mod
procedure, pass(a) :: mv_from_coo => psb_c_mv_csr_from_coo
procedure, pass(a) :: mv_to_fmt => psb_c_mv_csr_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_c_mv_csr_from_fmt
procedure, pass(a) :: clean_zeros => psb_c_csr_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_c_csr_clean_zeros
procedure, pass(a) :: csput_a => psb_c_csr_csput_a
procedure, pass(a) :: get_diag => psb_c_csr_get_diag
procedure, pass(a) :: csgetptn => psb_c_csr_csgetptn
@@ -261,18 +261,18 @@ module psb_c_csr_mat_mod
end subroutine psb_c_csr_triu
end interface
!
!>
!! \memberof psb_c_csr_sparse_mat
!! \see psb_c_base_mat_mod::psb_c_base_clean_zeros
!
interface
subroutine psb_c_csr_clean_zeros(a, info)
import
class(psb_c_csr_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_c_csr_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_c_csr_sparse_mat
!!$ !! \see psb_c_base_mat_mod::psb_c_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_c_csr_clean_zeros(a, info)
!!$ import
!!$ class(psb_c_csr_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_c_csr_clean_zeros
!!$ end interface
!> \memberof psb_c_csr_sparse_mat
!! \see psb_c_base_mat_mod::psb_c_base_cp_to_coo
@@ -716,7 +716,7 @@ module psb_c_csr_mat_mod
procedure, pass(a) :: mv_from_coo => psb_lc_mv_csr_from_coo
procedure, pass(a) :: mv_to_fmt => psb_lc_mv_csr_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_lc_mv_csr_from_fmt
procedure, pass(a) :: clean_zeros => psb_lc_csr_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_lc_csr_clean_zeros
procedure, pass(a) :: csput_a => psb_lc_csr_csput_a
procedure, pass(a) :: get_diag => psb_lc_csr_get_diag
procedure, pass(a) :: csgetptn => psb_lc_csr_csgetptn
@@ -895,17 +895,17 @@ module psb_c_csr_mat_mod
end interface
!
!>
!! \memberof psb_lc_csr_sparse_mat
!! \see psb_lc_base_mat_mod::psb_lc_base_clean_zeros
!
interface
subroutine psb_lc_csr_clean_zeros(a, info)
import
class(psb_lc_csr_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lc_csr_clean_zeros
end interface
!!$ !>
!!$ !! \memberof psb_lc_csr_sparse_mat
!!$ !! \see psb_lc_base_mat_mod::psb_lc_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_lc_csr_clean_zeros(a, info)
!!$ import
!!$ class(psb_lc_csr_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_lc_csr_clean_zeros
!!$ end interface
base/modules/serial/psb_d_csc_mat_mod.f90
+26 -26
View File
@@ -87,7 +87,7 @@ module psb_d_csc_mat_mod
procedure, pass(a) :: mv_from_coo => psb_d_mv_csc_from_coo
procedure, pass(a) :: mv_to_fmt => psb_d_mv_csc_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_d_mv_csc_from_fmt
procedure, pass(a) :: clean_zeros => psb_d_csc_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_d_csc_clean_zeros
procedure, pass(a) :: csput_a => psb_d_csc_csput_a
procedure, pass(a) :: get_diag => psb_d_csc_get_diag
procedure, pass(a) :: csgetptn => psb_d_csc_csgetptn
@@ -143,7 +143,7 @@ module psb_d_csc_mat_mod
procedure, pass(a) :: mv_from_coo => psb_ld_mv_csc_from_coo
procedure, pass(a) :: mv_to_fmt => psb_ld_mv_csc_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_ld_mv_csc_from_fmt
procedure, pass(a) :: clean_zeros => psb_ld_csc_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_ld_csc_clean_zeros
procedure, pass(a) :: csput_a => psb_ld_csc_csput_a
procedure, pass(a) :: get_diag => psb_ld_csc_get_diag
procedure, pass(a) :: csgetptn => psb_ld_csc_csgetptn
@@ -313,18 +313,18 @@ module psb_d_csc_mat_mod
end subroutine psb_d_mv_csc_from_fmt
end interface
!
!>
!! \memberof psb_d_csc_sparse_mat
!! \see psb_d_base_mat_mod::psb_d_base_clean_zeros
!
interface
subroutine psb_d_csc_clean_zeros(a, info)
import
class(psb_d_csc_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_d_csc_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_d_csc_sparse_mat
!!$ !! \see psb_d_base_mat_mod::psb_d_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_d_csc_clean_zeros(a, info)
!!$ import
!!$ class(psb_d_csc_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_d_csc_clean_zeros
!!$ end interface
!> \memberof psb_d_csc_sparse_mat
@@ -717,18 +717,18 @@ module psb_d_csc_mat_mod
end subroutine psb_ld_mv_csc_from_fmt
end interface
!
!>
!! \memberof psb_ld_csc_sparse_mat
!! \see psb_ld_base_mat_mod::psb_ld_base_clean_zeros
!
interface
subroutine psb_ld_csc_clean_zeros(a, info)
import
class(psb_ld_csc_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ld_csc_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_ld_csc_sparse_mat
!!$ !! \see psb_ld_base_mat_mod::psb_ld_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_ld_csc_clean_zeros(a, info)
!!$ import
!!$ class(psb_ld_csc_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_ld_csc_clean_zeros
!!$ end interface
!> \memberof psb_ld_csc_sparse_mat
!! \see psb_ld_base_mat_mod::psb_ld_base_cp_from
base/modules/serial/psb_d_csr_mat_mod.f90
+25 -25
View File
@@ -91,7 +91,7 @@ module psb_d_csr_mat_mod
procedure, pass(a) :: mv_from_coo => psb_d_mv_csr_from_coo
procedure, pass(a) :: mv_to_fmt => psb_d_mv_csr_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_d_mv_csr_from_fmt
procedure, pass(a) :: clean_zeros => psb_d_csr_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_d_csr_clean_zeros
procedure, pass(a) :: csput_a => psb_d_csr_csput_a
procedure, pass(a) :: get_diag => psb_d_csr_get_diag
procedure, pass(a) :: csgetptn => psb_d_csr_csgetptn
@@ -261,18 +261,18 @@ module psb_d_csr_mat_mod
end subroutine psb_d_csr_triu
end interface
!
!>
!! \memberof psb_d_csr_sparse_mat
!! \see psb_d_base_mat_mod::psb_d_base_clean_zeros
!
interface
subroutine psb_d_csr_clean_zeros(a, info)
import
class(psb_d_csr_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_d_csr_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_d_csr_sparse_mat
!!$ !! \see psb_d_base_mat_mod::psb_d_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_d_csr_clean_zeros(a, info)
!!$ import
!!$ class(psb_d_csr_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_d_csr_clean_zeros
!!$ end interface
!> \memberof psb_d_csr_sparse_mat
!! \see psb_d_base_mat_mod::psb_d_base_cp_to_coo
@@ -716,7 +716,7 @@ module psb_d_csr_mat_mod
procedure, pass(a) :: mv_from_coo => psb_ld_mv_csr_from_coo
procedure, pass(a) :: mv_to_fmt => psb_ld_mv_csr_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_ld_mv_csr_from_fmt
procedure, pass(a) :: clean_zeros => psb_ld_csr_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_ld_csr_clean_zeros
procedure, pass(a) :: csput_a => psb_ld_csr_csput_a
procedure, pass(a) :: get_diag => psb_ld_csr_get_diag
procedure, pass(a) :: csgetptn => psb_ld_csr_csgetptn
@@ -895,17 +895,17 @@ module psb_d_csr_mat_mod
end interface
!
!>
!! \memberof psb_ld_csr_sparse_mat
!! \see psb_ld_base_mat_mod::psb_ld_base_clean_zeros
!
interface
subroutine psb_ld_csr_clean_zeros(a, info)
import
class(psb_ld_csr_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ld_csr_clean_zeros
end interface
!!$ !>
!!$ !! \memberof psb_ld_csr_sparse_mat
!!$ !! \see psb_ld_base_mat_mod::psb_ld_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_ld_csr_clean_zeros(a, info)
!!$ import
!!$ class(psb_ld_csr_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_ld_csr_clean_zeros
!!$ end interface
base/modules/serial/psb_s_csc_mat_mod.f90
+26 -26
View File
@@ -87,7 +87,7 @@ module psb_s_csc_mat_mod
procedure, pass(a) :: mv_from_coo => psb_s_mv_csc_from_coo
procedure, pass(a) :: mv_to_fmt => psb_s_mv_csc_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_s_mv_csc_from_fmt
procedure, pass(a) :: clean_zeros => psb_s_csc_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_s_csc_clean_zeros
procedure, pass(a) :: csput_a => psb_s_csc_csput_a
procedure, pass(a) :: get_diag => psb_s_csc_get_diag
procedure, pass(a) :: csgetptn => psb_s_csc_csgetptn
@@ -143,7 +143,7 @@ module psb_s_csc_mat_mod
procedure, pass(a) :: mv_from_coo => psb_ls_mv_csc_from_coo
procedure, pass(a) :: mv_to_fmt => psb_ls_mv_csc_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_ls_mv_csc_from_fmt
procedure, pass(a) :: clean_zeros => psb_ls_csc_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_ls_csc_clean_zeros
procedure, pass(a) :: csput_a => psb_ls_csc_csput_a
procedure, pass(a) :: get_diag => psb_ls_csc_get_diag
procedure, pass(a) :: csgetptn => psb_ls_csc_csgetptn
@@ -313,18 +313,18 @@ module psb_s_csc_mat_mod
end subroutine psb_s_mv_csc_from_fmt
end interface
!
!>
!! \memberof psb_s_csc_sparse_mat
!! \see psb_s_base_mat_mod::psb_s_base_clean_zeros
!
interface
subroutine psb_s_csc_clean_zeros(a, info)
import
class(psb_s_csc_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_s_csc_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_s_csc_sparse_mat
!!$ !! \see psb_s_base_mat_mod::psb_s_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_s_csc_clean_zeros(a, info)
!!$ import
!!$ class(psb_s_csc_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_s_csc_clean_zeros
!!$ end interface
!> \memberof psb_s_csc_sparse_mat
@@ -717,18 +717,18 @@ module psb_s_csc_mat_mod
end subroutine psb_ls_mv_csc_from_fmt
end interface
!
!>
!! \memberof psb_ls_csc_sparse_mat
!! \see psb_ls_base_mat_mod::psb_ls_base_clean_zeros
!
interface
subroutine psb_ls_csc_clean_zeros(a, info)
import
class(psb_ls_csc_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ls_csc_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_ls_csc_sparse_mat
!!$ !! \see psb_ls_base_mat_mod::psb_ls_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_ls_csc_clean_zeros(a, info)
!!$ import
!!$ class(psb_ls_csc_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_ls_csc_clean_zeros
!!$ end interface
!> \memberof psb_ls_csc_sparse_mat
!! \see psb_ls_base_mat_mod::psb_ls_base_cp_from
base/modules/serial/psb_s_csr_mat_mod.f90
+25 -25
View File
@@ -91,7 +91,7 @@ module psb_s_csr_mat_mod
procedure, pass(a) :: mv_from_coo => psb_s_mv_csr_from_coo
procedure, pass(a) :: mv_to_fmt => psb_s_mv_csr_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_s_mv_csr_from_fmt
procedure, pass(a) :: clean_zeros => psb_s_csr_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_s_csr_clean_zeros
procedure, pass(a) :: csput_a => psb_s_csr_csput_a
procedure, pass(a) :: get_diag => psb_s_csr_get_diag
procedure, pass(a) :: csgetptn => psb_s_csr_csgetptn
@@ -261,18 +261,18 @@ module psb_s_csr_mat_mod
end subroutine psb_s_csr_triu
end interface
!
!>
!! \memberof psb_s_csr_sparse_mat
!! \see psb_s_base_mat_mod::psb_s_base_clean_zeros
!
interface
subroutine psb_s_csr_clean_zeros(a, info)
import
class(psb_s_csr_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_s_csr_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_s_csr_sparse_mat
!!$ !! \see psb_s_base_mat_mod::psb_s_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_s_csr_clean_zeros(a, info)
!!$ import
!!$ class(psb_s_csr_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_s_csr_clean_zeros
!!$ end interface
!> \memberof psb_s_csr_sparse_mat
!! \see psb_s_base_mat_mod::psb_s_base_cp_to_coo
@@ -716,7 +716,7 @@ module psb_s_csr_mat_mod
procedure, pass(a) :: mv_from_coo => psb_ls_mv_csr_from_coo
procedure, pass(a) :: mv_to_fmt => psb_ls_mv_csr_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_ls_mv_csr_from_fmt
procedure, pass(a) :: clean_zeros => psb_ls_csr_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_ls_csr_clean_zeros
procedure, pass(a) :: csput_a => psb_ls_csr_csput_a
procedure, pass(a) :: get_diag => psb_ls_csr_get_diag
procedure, pass(a) :: csgetptn => psb_ls_csr_csgetptn
@@ -895,17 +895,17 @@ module psb_s_csr_mat_mod
end interface
!
!>
!! \memberof psb_ls_csr_sparse_mat
!! \see psb_ls_base_mat_mod::psb_ls_base_clean_zeros
!
interface
subroutine psb_ls_csr_clean_zeros(a, info)
import
class(psb_ls_csr_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_ls_csr_clean_zeros
end interface
!!$ !>
!!$ !! \memberof psb_ls_csr_sparse_mat
!!$ !! \see psb_ls_base_mat_mod::psb_ls_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_ls_csr_clean_zeros(a, info)
!!$ import
!!$ class(psb_ls_csr_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_ls_csr_clean_zeros
!!$ end interface
base/modules/serial/psb_z_csc_mat_mod.f90
+26 -26
View File
@@ -87,7 +87,7 @@ module psb_z_csc_mat_mod
procedure, pass(a) :: mv_from_coo => psb_z_mv_csc_from_coo
procedure, pass(a) :: mv_to_fmt => psb_z_mv_csc_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_z_mv_csc_from_fmt
procedure, pass(a) :: clean_zeros => psb_z_csc_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_z_csc_clean_zeros
procedure, pass(a) :: csput_a => psb_z_csc_csput_a
procedure, pass(a) :: get_diag => psb_z_csc_get_diag
procedure, pass(a) :: csgetptn => psb_z_csc_csgetptn
@@ -143,7 +143,7 @@ module psb_z_csc_mat_mod
procedure, pass(a) :: mv_from_coo => psb_lz_mv_csc_from_coo
procedure, pass(a) :: mv_to_fmt => psb_lz_mv_csc_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_lz_mv_csc_from_fmt
procedure, pass(a) :: clean_zeros => psb_lz_csc_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_lz_csc_clean_zeros
procedure, pass(a) :: csput_a => psb_lz_csc_csput_a
procedure, pass(a) :: get_diag => psb_lz_csc_get_diag
procedure, pass(a) :: csgetptn => psb_lz_csc_csgetptn
@@ -313,18 +313,18 @@ module psb_z_csc_mat_mod
end subroutine psb_z_mv_csc_from_fmt
end interface
!
!>
!! \memberof psb_z_csc_sparse_mat
!! \see psb_z_base_mat_mod::psb_z_base_clean_zeros
!
interface
subroutine psb_z_csc_clean_zeros(a, info)
import
class(psb_z_csc_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_z_csc_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_z_csc_sparse_mat
!!$ !! \see psb_z_base_mat_mod::psb_z_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_z_csc_clean_zeros(a, info)
!!$ import
!!$ class(psb_z_csc_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_z_csc_clean_zeros
!!$ end interface
!> \memberof psb_z_csc_sparse_mat
@@ -717,18 +717,18 @@ module psb_z_csc_mat_mod
end subroutine psb_lz_mv_csc_from_fmt
end interface
!
!>
!! \memberof psb_lz_csc_sparse_mat
!! \see psb_lz_base_mat_mod::psb_lz_base_clean_zeros
!
interface
subroutine psb_lz_csc_clean_zeros(a, info)
import
class(psb_lz_csc_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lz_csc_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_lz_csc_sparse_mat
!!$ !! \see psb_lz_base_mat_mod::psb_lz_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_lz_csc_clean_zeros(a, info)
!!$ import
!!$ class(psb_lz_csc_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_lz_csc_clean_zeros
!!$ end interface
!> \memberof psb_lz_csc_sparse_mat
!! \see psb_lz_base_mat_mod::psb_lz_base_cp_from
base/modules/serial/psb_z_csr_mat_mod.f90
+25 -25
View File
@@ -91,7 +91,7 @@ module psb_z_csr_mat_mod
procedure, pass(a) :: mv_from_coo => psb_z_mv_csr_from_coo
procedure, pass(a) :: mv_to_fmt => psb_z_mv_csr_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_z_mv_csr_from_fmt
procedure, pass(a) :: clean_zeros => psb_z_csr_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_z_csr_clean_zeros
procedure, pass(a) :: csput_a => psb_z_csr_csput_a
procedure, pass(a) :: get_diag => psb_z_csr_get_diag
procedure, pass(a) :: csgetptn => psb_z_csr_csgetptn
@@ -261,18 +261,18 @@ module psb_z_csr_mat_mod
end subroutine psb_z_csr_triu
end interface
!
!>
!! \memberof psb_z_csr_sparse_mat
!! \see psb_z_base_mat_mod::psb_z_base_clean_zeros
!
interface
subroutine psb_z_csr_clean_zeros(a, info)
import
class(psb_z_csr_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_z_csr_clean_zeros
end interface
!!$ !
!!$ !>
!!$ !! \memberof psb_z_csr_sparse_mat
!!$ !! \see psb_z_base_mat_mod::psb_z_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_z_csr_clean_zeros(a, info)
!!$ import
!!$ class(psb_z_csr_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_z_csr_clean_zeros
!!$ end interface
!> \memberof psb_z_csr_sparse_mat
!! \see psb_z_base_mat_mod::psb_z_base_cp_to_coo
@@ -716,7 +716,7 @@ module psb_z_csr_mat_mod
procedure, pass(a) :: mv_from_coo => psb_lz_mv_csr_from_coo
procedure, pass(a) :: mv_to_fmt => psb_lz_mv_csr_to_fmt
procedure, pass(a) :: mv_from_fmt => psb_lz_mv_csr_from_fmt
procedure, pass(a) :: clean_zeros => psb_lz_csr_clean_zeros
! procedure, pass(a) :: clean_zeros => psb_lz_csr_clean_zeros
procedure, pass(a) :: csput_a => psb_lz_csr_csput_a
procedure, pass(a) :: get_diag => psb_lz_csr_get_diag
procedure, pass(a) :: csgetptn => psb_lz_csr_csgetptn
@@ -895,17 +895,17 @@ module psb_z_csr_mat_mod
end interface
!
!>
!! \memberof psb_lz_csr_sparse_mat
!! \see psb_lz_base_mat_mod::psb_lz_base_clean_zeros
!
interface
subroutine psb_lz_csr_clean_zeros(a, info)
import
class(psb_lz_csr_sparse_mat), intent(inout) :: a
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lz_csr_clean_zeros
end interface
!!$ !>
!!$ !! \memberof psb_lz_csr_sparse_mat
!!$ !! \see psb_lz_base_mat_mod::psb_lz_base_clean_zeros
!!$ !
!!$ interface
!!$ subroutine psb_lz_csr_clean_zeros(a, info)
!!$ import
!!$ class(psb_lz_csr_sparse_mat), intent(inout) :: a
!!$ integer(psb_ipk_), intent(out) :: info
!!$ end subroutine psb_lz_csr_clean_zeros
!!$ end interface