IBM® SPSS® Amos™ 28

The following program displays the result of the matrix multiplication, .

Module MainModule
    Public Sub Main()
        Dim arand As New AMOSRANDOMLib6.AmosRanGen
        Dim ad As New AmosDebug.AmosDebug
        Dim A(2) As Double
        Dim x(1) As Double
        Dim y(1) As Double
        A(0) = 3
        A(1) = 1
        A(2) = 2
        x(0) = 4
        x(1) = 5
 
        Call arand.SVMult(2, A(0), x(0), y(0))
 
        ad.PrintX(y)
    End Sub
End Module