test_scale_by_vector Function

private function test_scale_by_vector(mp_env, npdims, matrix, vector, do_exact_comparison) result(res)

Performs T(v * T(M)) == M*v

Arguments

Type IntentOptional Attributes Name
type(dbcsr_mp_obj), intent(in) :: mp_env
integer, intent(in), DIMENSION(2) :: npdims

processor grid

type(dbcsr_type), intent(in) :: matrix

matrix to scale

type(dbcsr_data_obj), intent(in) :: vector

scaling vector

logical, intent(in) :: do_exact_comparison

whether to do an exact comparison (via densification)

Return Value logical