scale_sparsemat::sparsemat_matmul Interface Reference

Public Member Functions
subroutine	sparsemat_matmul1 (a, b, c)
	Matrix-vector multiplication for a sparse matrix.
subroutine	sparsemat_matmul1_2 (a, b1, b2, c)
	Matrix-vector multiplication for a sparse matrix with two vectors This routine computes c = A * (b1 .* b2), where .* is the element-wise multiplication.
subroutine	sparsemat_matmul2 (a, b, c)
	Matrix-matrix multiplication for a sparse matrix.

Detailed Description

Definition at line 57 of file scale_sparsemat.F90.

Member Function/Subroutine Documentation

sparsemat_matmul1()

subroutine scale_sparsemat::sparsemat_matmul::sparsemat_matmul1	(	type(sparsemat), intent(in)	a,
		real(rp), dimension(:), intent(in)	b,
		real(rp), dimension(a%m), intent(out)	c )

Matrix-vector multiplication for a sparse matrix.

Definition at line 362 of file scale_sparsemat.F90.

    implicit none
 
    type(sparsemat), intent(in) :: A
    real(RP), intent(in ) :: b(:)
    real(RP), intent(out) :: c(A%M)
 
    !--------------------------------------------------------------------------- 
 
    !$acc routine vector
 
    select case( a%storage_format_id )
    case( sparsemat_storage_typeid_csr )
      call sparsemat_matmul_csr_1( a%val, a%colIdx, a%rowPtr, b, c, &
        a%M, a%N, a%nnz, a%rowPtrSize                          )
    case( sparsemat_storage_typeid_ell )
      call sparsemat_matmul_ell_1( a%val, a%colIdx, b, c,           &
        a%M, a%N, a%nnz, a%col_size                            )
    end select
 
    return

References scale_sparsemat::sparsemat_storage_typeid_csr, and scale_sparsemat::sparsemat_storage_typeid_ell.

sparsemat_matmul1_2()

subroutine scale_sparsemat::sparsemat_matmul::sparsemat_matmul1_2	(	type(sparsemat), intent(in)	a,
		real(rp), dimension(:), intent(in)	b1,
		real(rp), dimension(:), intent(in)	b2,
		real(rp), dimension(a%m), intent(out)	c )

Matrix-vector multiplication for a sparse matrix with two vectors This routine computes c = A * (b1 .* b2), where .* is the element-wise multiplication.

Definition at line 388 of file scale_sparsemat.F90.

    implicit none
 
    type(sparsemat), intent(in) :: A
    real(RP), intent(in ) :: b1(:)
    real(RP), intent(in ) :: b2(:)
    real(RP), intent(out) :: c(A%M)
 
    !--------------------------------------------------------------------------- 
 
    !$acc routine vector
 
    select case( a%storage_format_id )
    case( sparsemat_storage_typeid_csr )
      call sparsemat_matmul_csr_1_2( a%val, a%colIdx, a%rowPtr, b1, b2, c, &
        a%M, a%N, a%nnz, a%rowPtrSize                          )
    case( sparsemat_storage_typeid_ell )
      call sparsemat_matmul_ell_1_2( a%val, a%colIdx, b1, b2, c, &
        a%M, a%N, a%nnz, a%col_size                              )
    end select
 
    return

References scale_sparsemat::sparsemat_storage_typeid_csr, and scale_sparsemat::sparsemat_storage_typeid_ell.

sparsemat_matmul2()

subroutine scale_sparsemat::sparsemat_matmul::sparsemat_matmul2	(	type(sparsemat), intent(in)	a,
		real(rp), dimension(:,:), intent(in)	b,
		real(rp), dimension(size(b,1),a%m), intent(out)	c )

Matrix-matrix multiplication for a sparse matrix.

Definition at line 414 of file scale_sparsemat.F90.

    implicit none
 
    type(sparsemat), intent(in) :: A
    real(RP), intent(in ) :: b(:,:)
    real(RP), intent(out) :: c(size(b,1),A%M)
 
    !--------------------------------------------------------------------------- 
 
    select case( a%storage_format_id )
    case( sparsemat_storage_typeid_csr )
      call sparsemat_matmul_csr_2( a%val, a%colIdx, a%rowPtr, b, c, &
        a%M, a%N, a%nnz, a%rowPtrSize, size(b,1)               )
    case( sparsemat_storage_typeid_ell )
      call sparsemat_matmul_ell_2( a%val, a%colIdx, b, c,           &
        a%M, a%N, a%nnz, a%col_size, size(b,1)                 )
    end select
 
    return

References scale_sparsemat::sparsemat_storage_typeid_csr, and scale_sparsemat::sparsemat_storage_typeid_ell.

---

The documentation for this interface was generated from the following file:

• scale_sparsemat.F90