mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 12:52:14 +00:00
New clip "in place" method
This commit is contained in:
Salvatore Filippone
@@ -145,8 +145,9 @@ module psb_c_mat_mod
|
||||
procedure, pass(a) :: tril => psb_c_tril
|
||||
procedure, pass(a) :: triu => psb_c_triu
|
||||
procedure, pass(a) :: m_csclip => psb_c_csclip
|
||||
procedure, pass(a) :: m_csclip_ip => psb_c_csclip_ip
|
||||
procedure, pass(a) :: b_csclip => psb_c_b_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip, m_csclip_ip
|
||||
procedure, pass(a) :: clean_zeros => psb_c_clean_zeros
|
||||
procedure, pass(a) :: reall => psb_c_reallocate_nz
|
||||
procedure, pass(a) :: get_neigh => psb_c_get_neigh
|
||||
@@ -337,8 +338,9 @@ module psb_c_mat_mod
|
||||
procedure, pass(a) :: tril => psb_lc_tril
|
||||
procedure, pass(a) :: triu => psb_lc_triu
|
||||
procedure, pass(a) :: m_csclip => psb_lc_csclip
|
||||
procedure, pass(a) :: m_csclip_ip => psb_lc_csclip_ip
|
||||
procedure, pass(a) :: b_csclip => psb_lc_b_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip, m_csclip_ip
|
||||
procedure, pass(a) :: clean_zeros => psb_lc_clean_zeros
|
||||
procedure, pass(a) :: reall => psb_lc_reallocate_nz
|
||||
procedure, pass(a) :: get_neigh => psb_lc_get_neigh
|
||||
@@ -734,6 +736,17 @@ module psb_c_mat_mod
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_c_csclip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_c_csclip_ip(a,info,&
|
||||
& imin,imax,jmin,jmax,rscale,cscale)
|
||||
import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_
|
||||
class(psb_cspmat_type), intent(inout) :: a
|
||||
integer(psb_ipk_),intent(out) :: info
|
||||
integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_c_csclip_ip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_c_b_csclip(a,b,info,&
|
||||
@@ -1462,6 +1475,17 @@ module psb_c_mat_mod
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_lc_csclip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_lc_csclip_ip(a,info,&
|
||||
& imin,imax,jmin,jmax,rscale,cscale)
|
||||
import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_
|
||||
class(psb_lcspmat_type), intent(inout) :: a
|
||||
integer(psb_ipk_),intent(out) :: info
|
||||
integer(psb_lpk_), intent(in), optional :: imin,imax,jmin,jmax
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_lc_csclip_ip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_lc_b_csclip(a,b,info,&
|
||||
|
||||
@@ -145,8 +145,9 @@ module psb_d_mat_mod
|
||||
procedure, pass(a) :: tril => psb_d_tril
|
||||
procedure, pass(a) :: triu => psb_d_triu
|
||||
procedure, pass(a) :: m_csclip => psb_d_csclip
|
||||
procedure, pass(a) :: m_csclip_ip => psb_d_csclip_ip
|
||||
procedure, pass(a) :: b_csclip => psb_d_b_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip, m_csclip_ip
|
||||
procedure, pass(a) :: clean_zeros => psb_d_clean_zeros
|
||||
procedure, pass(a) :: reall => psb_d_reallocate_nz
|
||||
procedure, pass(a) :: get_neigh => psb_d_get_neigh
|
||||
@@ -337,8 +338,9 @@ module psb_d_mat_mod
|
||||
procedure, pass(a) :: tril => psb_ld_tril
|
||||
procedure, pass(a) :: triu => psb_ld_triu
|
||||
procedure, pass(a) :: m_csclip => psb_ld_csclip
|
||||
procedure, pass(a) :: m_csclip_ip => psb_ld_csclip_ip
|
||||
procedure, pass(a) :: b_csclip => psb_ld_b_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip, m_csclip_ip
|
||||
procedure, pass(a) :: clean_zeros => psb_ld_clean_zeros
|
||||
procedure, pass(a) :: reall => psb_ld_reallocate_nz
|
||||
procedure, pass(a) :: get_neigh => psb_ld_get_neigh
|
||||
@@ -734,6 +736,17 @@ module psb_d_mat_mod
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_d_csclip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_d_csclip_ip(a,info,&
|
||||
& imin,imax,jmin,jmax,rscale,cscale)
|
||||
import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_
|
||||
class(psb_dspmat_type), intent(inout) :: a
|
||||
integer(psb_ipk_),intent(out) :: info
|
||||
integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_d_csclip_ip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_d_b_csclip(a,b,info,&
|
||||
@@ -1462,6 +1475,17 @@ module psb_d_mat_mod
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_ld_csclip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_ld_csclip_ip(a,info,&
|
||||
& imin,imax,jmin,jmax,rscale,cscale)
|
||||
import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_
|
||||
class(psb_ldspmat_type), intent(inout) :: a
|
||||
integer(psb_ipk_),intent(out) :: info
|
||||
integer(psb_lpk_), intent(in), optional :: imin,imax,jmin,jmax
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_ld_csclip_ip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_ld_b_csclip(a,b,info,&
|
||||
|
||||
@@ -145,8 +145,9 @@ module psb_s_mat_mod
|
||||
procedure, pass(a) :: tril => psb_s_tril
|
||||
procedure, pass(a) :: triu => psb_s_triu
|
||||
procedure, pass(a) :: m_csclip => psb_s_csclip
|
||||
procedure, pass(a) :: m_csclip_ip => psb_s_csclip_ip
|
||||
procedure, pass(a) :: b_csclip => psb_s_b_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip, m_csclip_ip
|
||||
procedure, pass(a) :: clean_zeros => psb_s_clean_zeros
|
||||
procedure, pass(a) :: reall => psb_s_reallocate_nz
|
||||
procedure, pass(a) :: get_neigh => psb_s_get_neigh
|
||||
@@ -337,8 +338,9 @@ module psb_s_mat_mod
|
||||
procedure, pass(a) :: tril => psb_ls_tril
|
||||
procedure, pass(a) :: triu => psb_ls_triu
|
||||
procedure, pass(a) :: m_csclip => psb_ls_csclip
|
||||
procedure, pass(a) :: m_csclip_ip => psb_ls_csclip_ip
|
||||
procedure, pass(a) :: b_csclip => psb_ls_b_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip, m_csclip_ip
|
||||
procedure, pass(a) :: clean_zeros => psb_ls_clean_zeros
|
||||
procedure, pass(a) :: reall => psb_ls_reallocate_nz
|
||||
procedure, pass(a) :: get_neigh => psb_ls_get_neigh
|
||||
@@ -734,6 +736,17 @@ module psb_s_mat_mod
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_s_csclip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_s_csclip_ip(a,info,&
|
||||
& imin,imax,jmin,jmax,rscale,cscale)
|
||||
import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_
|
||||
class(psb_sspmat_type), intent(inout) :: a
|
||||
integer(psb_ipk_),intent(out) :: info
|
||||
integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_s_csclip_ip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_s_b_csclip(a,b,info,&
|
||||
@@ -1462,6 +1475,17 @@ module psb_s_mat_mod
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_ls_csclip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_ls_csclip_ip(a,info,&
|
||||
& imin,imax,jmin,jmax,rscale,cscale)
|
||||
import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_
|
||||
class(psb_lsspmat_type), intent(inout) :: a
|
||||
integer(psb_ipk_),intent(out) :: info
|
||||
integer(psb_lpk_), intent(in), optional :: imin,imax,jmin,jmax
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_ls_csclip_ip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_ls_b_csclip(a,b,info,&
|
||||
|
||||
@@ -145,8 +145,9 @@ module psb_z_mat_mod
|
||||
procedure, pass(a) :: tril => psb_z_tril
|
||||
procedure, pass(a) :: triu => psb_z_triu
|
||||
procedure, pass(a) :: m_csclip => psb_z_csclip
|
||||
procedure, pass(a) :: m_csclip_ip => psb_z_csclip_ip
|
||||
procedure, pass(a) :: b_csclip => psb_z_b_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip, m_csclip_ip
|
||||
procedure, pass(a) :: clean_zeros => psb_z_clean_zeros
|
||||
procedure, pass(a) :: reall => psb_z_reallocate_nz
|
||||
procedure, pass(a) :: get_neigh => psb_z_get_neigh
|
||||
@@ -337,8 +338,9 @@ module psb_z_mat_mod
|
||||
procedure, pass(a) :: tril => psb_lz_tril
|
||||
procedure, pass(a) :: triu => psb_lz_triu
|
||||
procedure, pass(a) :: m_csclip => psb_lz_csclip
|
||||
procedure, pass(a) :: m_csclip_ip => psb_lz_csclip_ip
|
||||
procedure, pass(a) :: b_csclip => psb_lz_b_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip
|
||||
generic, public :: csclip => b_csclip, m_csclip, m_csclip_ip
|
||||
procedure, pass(a) :: clean_zeros => psb_lz_clean_zeros
|
||||
procedure, pass(a) :: reall => psb_lz_reallocate_nz
|
||||
procedure, pass(a) :: get_neigh => psb_lz_get_neigh
|
||||
@@ -734,6 +736,17 @@ module psb_z_mat_mod
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_z_csclip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_z_csclip_ip(a,info,&
|
||||
& imin,imax,jmin,jmax,rscale,cscale)
|
||||
import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_
|
||||
class(psb_zspmat_type), intent(inout) :: a
|
||||
integer(psb_ipk_),intent(out) :: info
|
||||
integer(psb_ipk_), intent(in), optional :: imin,imax,jmin,jmax
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_z_csclip_ip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_z_b_csclip(a,b,info,&
|
||||
@@ -1462,6 +1475,17 @@ module psb_z_mat_mod
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_lz_csclip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_lz_csclip_ip(a,info,&
|
||||
& imin,imax,jmin,jmax,rscale,cscale)
|
||||
import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_
|
||||
class(psb_lzspmat_type), intent(inout) :: a
|
||||
integer(psb_ipk_),intent(out) :: info
|
||||
integer(psb_lpk_), intent(in), optional :: imin,imax,jmin,jmax
|
||||
logical, intent(in), optional :: rscale,cscale
|
||||
end subroutine psb_lz_csclip_ip
|
||||
end interface
|
||||
|
||||
interface
|
||||
subroutine psb_lz_b_csclip(a,b,info,&
|
||||
|
||||
Reference in New Issue
Block a user