MapMatrix_psr Subroutine

public subroutine MapMatrix_psr(inmat, outmat, proc)

Given a distributed matrix, apply this procedure to each element (real).

Arguments

Type IntentOptional Attributes Name
type(Matrix_ps), intent(in) :: inmat

The matrix to apply the procedure to.
type(Matrix_ps), intent(inout) :: outmat

The matrix where each element has had proc called on it.
private function proc(row, column, val) result(valid)

The procedure to apply to each element.

Arguments
Type IntentOptional Attributes Name
integer, intent(inout), optional :: row

The row value of an element.
integer, intent(inout), optional :: column

The column value of an element.
real(kind=NTREAL), intent(inout), optional :: val

The actual value of an element.
Return Value logical

Set this to false to filter an element.

Contents