'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '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
Sunday, December 8, 2019
Fast kernel
Subscribe to:
Post Comments (Atom)
What is it?
ReplyDelete