IBM® SPSS® Amos™ 28

The following program displays .

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