Commit e01d444c authored by Fabiano Corsetti's avatar Fabiano Corsetti
Browse files

Doxygen documentation added for MatrixSwitch_m_add.F90

parent 29f8aba5
......@@ -12,11 +12,12 @@ module MatrixSwitch_m_add
contains
!================================================!
! implementation: reference !
!================================================!
#ifdef HAVE_PSPBLAS
!============================================================================!
!> @brief Matrix addition (A = compressed sparse column, C = dense block
!! cyclic, parallel distribution, reference implementation, real
!! version).
!============================================================================!
subroutine m_add_pdcscpddbcref(A,C,alpha,beta)
implicit none
include 'mpif.h'
......@@ -49,6 +50,11 @@ contains
end subroutine m_add_pdcscpddbcref
!============================================================================!
!> @brief Matrix addition (A = compressed sparse column, C = dense block
!! cyclic, parallel distribution, reference implementation, complex
!! version).
!============================================================================!
subroutine m_add_pzcscpzdbcref(A,C,alpha,beta)
implicit none
include 'mpif.h'
......@@ -82,6 +88,10 @@ contains
end subroutine m_add_pzcscpzdbcref
#endif
!============================================================================!
!> @brief Matrix addition (simple dense, serial distribution, reference
!! implementation, real version).
!============================================================================!
subroutine m_add_sddenref(A,trA,C,alpha,beta)
implicit none
......@@ -118,6 +128,10 @@ contains
end subroutine m_add_sddenref
!============================================================================!
!> @brief Matrix addition (simple dense, serial distribution, reference
!! implementation, complex version).
!============================================================================!
subroutine m_add_szdenref(A,tcA,C,alpha,beta)
implicit none
......@@ -160,6 +174,11 @@ contains
end subroutine m_add_szdenref
!============================================================================!
!> @brief Matrix addition (A = compressed sparse column, C = dense block
!! cyclic, serial distribution, reference implementation, real
!! version).
!============================================================================!
subroutine m_add_sdcscsddenref(A,trA,C,alpha,beta)
implicit none
......@@ -202,6 +221,10 @@ contains
end subroutine m_add_sdcscsddenref
!============================================================================!
!> @brief Matrix addition (A = compressed sparse row, C = dense block cyclic,
!! serial distribution, reference implementation, real version).
!============================================================================!
subroutine m_add_sdcsrsddenref(A,trA,C,alpha,beta)
implicit none
......@@ -244,6 +267,10 @@ contains
end subroutine m_add_sdcsrsddenref
!============================================================================!
!> @brief Matrix addition (A = compressed sparse column, C = simple dense,
!! serial distribution, reference implementation, complex version).
!============================================================================!
subroutine m_add_szcscszdenref(A,tcA,C,alpha,beta)
implicit none
......@@ -293,6 +320,10 @@ contains
end subroutine m_add_szcscszdenref
!============================================================================!
!> @brief Matrix addition (A = compressed sparse row, C = simple dense,
!! serial distribution, reference implementation, complex version).
!============================================================================!
subroutine m_add_szcsrszdenref(A,tcA,C,alpha,beta)
implicit none
......
......@@ -1744,8 +1744,8 @@ contains
!! compressed sparse row, parallel distribution, t1D reference
!! implementation, complex version).
!!
!! Note: requires a 1D parallel distribution and op(A) /= op(B) (counting M^T
!! and M^H as equivalent).
!! Note: requires a 1D parallel distribution and op(A) /= op(B) (considering
!! M^T and M^H as equivalent).
!============================================================================!
subroutine mm_multiply_pzdbcpzdbcpzcsct1D(A,tcA,B,tcB,C,alpha,beta)
implicit none
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment