mod_banded_operations Module


Uses


Interfaces

public interface multiply

  • private function banded_matrix_x_vector(bandmatrix, vector) result(rvector)

    Calculates the matrix-vector product of a general complex banded matrix and a complex vector. Uses the level 2 BLAS routine zgbmv.

    Arguments

    Type IntentOptional Attributes Name
    type(banded_matrix_t), intent(in) :: bandmatrix

    the banded matrix
    complex(kind=dp), intent(in) :: vector(bandmatrix%n)

    the vector

    Return Value complex(kind=dp), (bandmatrix%m)

    the resulting matrix-vector product


Functions

private function banded_matrix_x_vector(bandmatrix, vector) result(rvector)

Calculates the matrix-vector product of a general complex banded matrix and a complex vector. Uses the level 2 BLAS routine zgbmv.

Arguments

Type IntentOptional Attributes Name
type(banded_matrix_t), intent(in) :: bandmatrix

the banded matrix
complex(kind=dp), intent(in) :: vector(bandmatrix%n)

the vector

Return Value complex(kind=dp), (bandmatrix%m)

the resulting matrix-vector product


Subroutines

public subroutine banded_copy(A, B)

Copy banded matrix B into A

Arguments

Type IntentOptional Attributes Name
type(banded_matrix_t), intent(inout) :: A

this banded matrix will be overwritten
type(banded_matrix_t), intent(in) :: B

this banded matrix will be copied into A

public subroutine constant_times_banded_plus_banded(A, B, alpha)

Multiply a constant times a banded matrix plus another banded matrix; A = A + alpha*B

Arguments

Type IntentOptional Attributes Name
type(banded_matrix_t), intent(inout) :: A
type(banded_matrix_t), intent(in) :: B
complex(kind=dp), intent(in) :: alpha