(validate-gemv) ( A x y -- )

Vocabulary

math.blas.matrices.private

Inputs

A	an object
x	an object
y	an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel
math.blas.matrices ;

IN: math.blas.matrices.private

: (validate-gemv) ( A x y -- )
    {
        [ drop [ Mwidth ] [ length>> ] bi* = ]
        [ nip [ Mheight ] [ length>> ] bi* = ]
    } 3&& [
        "Mismatched matrix and vectors in matrix-vector multiplication"
        throw
    ] unless ;