mapl3g_CSR_SparseMatrix Module

Uses

- mapl_KeywordEnforcer
- iso_fortran_env
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Interfaces

public interface CSR_SparseMatrix_dp

private function new_csr_matrix_dp(n_rows, n_columns, nnz) result(mat)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n_rows
integer,	intent(in)			::	n_columns
integer,	intent(in)			::	nnz

Return Value type(CSR_SparseMatrix_dp)

public interface CSR_SparseMatrix_sp

private function new_csr_matrix_sp(n_rows, n_columns, nnz) result(mat)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n_rows
integer,	intent(in)			::	n_columns
integer,	intent(in)			::	nnz

Return Value type(CSR_SparseMatrix_sp)

public interface add_row

private pure subroutine add_row_sp(this, row, start_column, v)

Arguments

Type	Intent	Optional	Attributes		Name
type(CSR_SparseMatrix_sp),	intent(inout)			::	this
integer,	intent(in)			::	row
integer,	intent(in)			::	start_column
real(kind=sp),	intent(in)			::	v(:)

public interface matmul

private pure function matmul_vec_spsp(A, x) result(y)

Arguments

Type	Intent	Optional	Attributes		Name
type(CSR_SparseMatrix_sp),	intent(in)			::	A
real(kind=sp),	intent(in)			::	x(:)

Return Value real(kind=sp), (A%n_rows)

private pure function matmul_vec_spdp(A, x) result(y)

Arguments

Type	Intent	Optional	Attributes		Name
type(CSR_SparseMatrix_sp),	intent(in)			::	A
real(kind=dp),	intent(in)			::	x(:)

Return Value real(kind=dp), (A%n_rows)

private pure function matmul_multi_vec_spsp(A, x) result(b)

Arguments

Type	Intent	Optional	Attributes		Name
type(CSR_SparseMatrix_sp),	intent(in)			::	A(:)
real(kind=sp),	intent(in)			::	x(:,:)

Return Value real(kind=sp), (size(A,1),A(1)%n_rows)

private pure function matmul_multi_vec_spdp(A, x) result(b)

Arguments

Type	Intent	Optional	Attributes		Name
type(CSR_SparseMatrix_sp),	intent(in)			::	A(:)
real(kind=dp),	intent(in)			::	x(:,:)

Return Value real(kind=dp), (size(A,1),A(1)%n_rows)

Derived Types

type, public :: CSR_SparseMatrix_dp

Constructor

private function new_csr_matrix_dp (n_rows, n_columns, nnz)

type, public :: CSR_SparseMatrix_sp

Constructor

private function new_csr_matrix_sp (n_rows, n_columns, nnz)