''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Copyright (c) 2009, Sergey Bochkanov (ALGLIB project).
'
'>>> SOURCE LICENSE >>>
'This program is free software; you can redistribute it and/or modify
'it under the terms of the GNU General Public License as published by
'the Free Software Foundation (www.fsf.org); either version 2 of the
'License, or (at your option) any later version.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'GNU General Public License for more details.
'
'A copy of the GNU General Public License is available at
'http://www.fsf.org/licensing/licenses
'
'>>> END OF LICENSE >>>
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Routines
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function CMatrixRank1F(ByVal M As Long, _
ByVal N As Long, _
ByRef A() As Complex, _
ByVal IA As Long, _
ByVal JA As Long, _
ByRef U() As Complex, _
ByVal IU As Long, _
ByRef V() As Complex, _
ByVal IV As Long) As Boolean
Dim Result As Boolean
Result = False
CMatrixRank1F = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function RMatrixRank1F(ByVal M As Long, _
ByVal N As Long, _
ByRef A() As Double, _
ByVal IA As Long, _
ByVal JA As Long, _
ByRef U() As Double, _
ByVal IU As Long, _
ByRef V() As Double, _
ByVal IV As Long) As Boolean
Dim Result As Boolean
Result = False
RMatrixRank1F = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function CMatrixMVF(ByVal M As Long, _
ByVal N As Long, _
ByRef A() As Complex, _
ByVal IA As Long, _
ByVal JA As Long, _
ByVal OpA As Long, _
ByRef X() As Complex, _
ByVal IX As Long, _
ByRef Y() As Complex, _
ByVal IY As Long) As Boolean
Dim Result As Boolean
Result = False
CMatrixMVF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function RMatrixMVF(ByVal M As Long, _
ByVal N As Long, _
ByRef A() As Double, _
ByVal IA As Long, _
ByVal JA As Long, _
ByVal OpA As Long, _
ByRef X() As Double, _
ByVal IX As Long, _
ByRef Y() As Double, _
ByVal IY As Long) As Boolean
Dim Result As Boolean
Result = False
RMatrixMVF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function CMatrixRightTRSMF(ByVal M As Long, _
ByVal N As Long, _
ByRef A() As Complex, _
ByVal I1 As Long, _
ByVal J1 As Long, _
ByVal IsUpper As Boolean, _
ByVal IsUnit As Boolean, _
ByVal OpType As Long, _
ByRef X() As Complex, _
ByVal I2 As Long, _
ByVal J2 As Long) As Boolean
Dim Result As Boolean
Result = False
CMatrixRightTRSMF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function CMatrixLeftTRSMF(ByVal M As Long, _
ByVal N As Long, _
ByRef A() As Complex, _
ByVal I1 As Long, _
ByVal J1 As Long, _
ByVal IsUpper As Boolean, _
ByVal IsUnit As Boolean, _
ByVal OpType As Long, _
ByRef X() As Complex, _
ByVal I2 As Long, _
ByVal J2 As Long) As Boolean
Dim Result As Boolean
Result = False
CMatrixLeftTRSMF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function RMatrixRightTRSMF(ByVal M As Long, _
ByVal N As Long, _
ByRef A() As Double, _
ByVal I1 As Long, _
ByVal J1 As Long, _
ByVal IsUpper As Boolean, _
ByVal IsUnit As Boolean, _
ByVal OpType As Long, _
ByRef X() As Double, _
ByVal I2 As Long, _
ByVal J2 As Long) As Boolean
Dim Result As Boolean
Result = False
RMatrixRightTRSMF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function RMatrixLeftTRSMF(ByVal M As Long, _
ByVal N As Long, _
ByRef A() As Double, _
ByVal I1 As Long, _
ByVal J1 As Long, _
ByVal IsUpper As Boolean, _
ByVal IsUnit As Boolean, _
ByVal OpType As Long, _
ByRef X() As Double, _
ByVal I2 As Long, _
ByVal J2 As Long) As Boolean
Dim Result As Boolean
Result = False
RMatrixLeftTRSMF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function CMatrixSYRKF(ByVal N As Long, _
ByVal K As Long, _
ByVal Alpha As Double, _
ByRef A() As Complex, _
ByVal IA As Long, _
ByVal JA As Long, _
ByVal OpTypeA As Long, _
ByVal Beta As Double, _
ByRef C() As Complex, _
ByVal IC As Long, _
ByVal JC As Long, _
ByVal IsUpper As Boolean) As Boolean
Dim Result As Boolean
Result = False
CMatrixSYRKF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function RMatrixSYRKF(ByVal N As Long, _
ByVal K As Long, _
ByVal Alpha As Double, _
ByRef A() As Double, _
ByVal IA As Long, _
ByVal JA As Long, _
ByVal OpTypeA As Long, _
ByVal Beta As Double, _
ByRef C() As Double, _
ByVal IC As Long, _
ByVal JC As Long, _
ByVal IsUpper As Boolean) As Boolean
Dim Result As Boolean
Result = False
RMatrixSYRKF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function RMatrixGEMMF(ByVal M As Long, _
ByVal N As Long, _
ByVal K As Long, _
ByVal Alpha As Double, _
ByRef A() As Double, _
ByVal IA As Long, _
ByVal JA As Long, _
ByVal OpTypeA As Long, _
ByRef B() As Double, _
ByVal IB As Long, _
ByVal JB As Long, _
ByVal OpTypeB As Long, _
ByVal Beta As Double, _
ByRef C() As Double, _
ByVal IC As Long, _
ByVal JC As Long) As Boolean
Dim Result As Boolean
Result = False
RMatrixGEMMF = Result
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fast kernel
'
' -- ALGLIB routine --
' 19.01.2010
' Bochkanov Sergey
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function CMatrixGEMMF(ByVal M As Long, _
ByVal N As Long, _
ByVal K As Long, _
ByRef Alpha_ As Complex, _
ByRef A() As Complex, _
ByVal IA As Long, _
ByVal JA As Long, _
ByVal OpTypeA As Long, _
ByRef B() As Complex, _
ByVal IB As Long, _
ByVal JB As Long, _
ByVal OpTypeB As Long, _
ByRef Beta_ As Complex, _
ByRef C() As Complex, _
ByVal IC As Long, _
ByVal JC As Long) As Boolean
Dim Result As Boolean
Dim Alpha As Complex
Dim Beta As Complex
Alpha = Alpha_
Beta = Beta_
Result = False
CMatrixGEMMF = Result
End Function