fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Added implementation of A = alpha A + beta B for sparse matrices

Browse Source
This commit is contained in:
Cirdans-Home
2020-04-08 09:19:03 +02:00
parent dc55713541
commit 3b36c2196b
20 changed files with 972 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_mat_mod.F90
+24
View File
@@ -234,6 +234,7 @@ module psb_c_mat_mod
procedure, pass(a) :: cssm => psb_c_cssm
generic, public :: spsm => cssm, cssv, cssv_v
procedure, pass(a) :: scalpid => psb_c_scalplusidentity
procedure, pass(a) :: spaxpby => psb_c_spaxpby
end type psb_cspmat_type
@@ -419,6 +420,7 @@ module psb_c_mat_mod
procedure, pass(a) :: scalv => psb_lc_scal
generic, public :: scal => scals, scalv
procedure, pass(a) :: scalpid => psb_lc_scalplusidentity
procedure, pass(a) :: spaxpby => psb_lc_spaxpby
end type psb_lcspmat_type
@@ -1168,6 +1170,17 @@ module psb_c_mat_mod
end subroutine psb_c_scalplusidentity
end interface
interface psb_spaxpby
subroutine psb_c_spaxpby(alpha,a,beta,b,info)
import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_
class(psb_cspmat_type), intent(inout) :: a
class(psb_cspmat_type), intent(inout) :: b
complex(psb_spk_), intent(in) :: alpha
complex(psb_spk_), intent(in) :: beta
integer(psb_ipk_), intent(out) :: info
end subroutine psb_c_spaxpby
end interface
! == ===================================
!
!
@@ -1772,6 +1785,17 @@ module psb_c_mat_mod
end subroutine psb_lc_scalplusidentity
end interface
interface psb_spaxpby
subroutine psb_lc_spaxpby(alpha,a,beta,b,info)
import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_
class(psb_lcspmat_type), intent(inout) :: a
class(psb_lcspmat_type), intent(inout) :: b
complex(psb_spk_), intent(in) :: alpha
complex(psb_spk_), intent(in) :: beta
integer(psb_ipk_), intent(out) :: info
end subroutine psb_lc_spaxpby
end interface
interface
function psb_lc_maxval(a) result(res)
import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_