GNU Octave  8.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
lo-blas-proto.h
Go to the documentation of this file.
1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 2016-2023 The Octave Project Developers
4 //
5 // See the file COPYRIGHT.md in the top-level directory of this
6 // distribution or <https://octave.org/copyright/>.
7 //
8 // This file is part of Octave.
9 //
10 // Octave is free software: you can redistribute it and/or modify it
11 // under the terms of the GNU General Public License as published by
12 // the Free Software Foundation, either version 3 of the License, or
13 // (at your option) any later version.
14 //
15 // Octave is distributed in the hope that it will be useful, but
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 // GNU General Public License for more details.
19 //
20 // You should have received a copy of the GNU General Public License
21 // along with Octave; see the file COPYING. If not, see
22 // <https://www.gnu.org/licenses/>.
23 //
24 ////////////////////////////////////////////////////////////////////////
25 
26 #if ! defined (octave_lo_blas_proto_h)
27 #define octave_lo_blas_proto_h 1
28 
29 #include "octave-config.h"
30 
31 #include "f77-fcn.h"
32 
33 extern "C"
34 {
35  // DOT (liboctave/external/blas-xtra)
36 
37  F77_RET_T
38  F77_FUNC (xddot, XDDOT) (const F77_INT&, const F77_DBLE *,
39  const F77_INT&, const F77_DBLE *,
40  const F77_INT&, F77_DBLE&);
41 
42  F77_RET_T
43  F77_FUNC (xsdot, XSDOT) (const F77_INT&, const F77_REAL *,
44  const F77_INT&, const F77_REAL *,
45  const F77_INT&, F77_REAL&);
46 
47  // DOT3
48 
49  F77_RET_T
50  F77_FUNC (ddot3, DDOT3) (const F77_INT&, const F77_INT&,
51  const F77_INT&, const F77_DBLE *,
52  const F77_DBLE *, F77_DBLE *);
53 
54  F77_RET_T
55  F77_FUNC (sdot3, SDOT3) (const F77_INT&, const F77_INT&,
56  const F77_INT&, const F77_REAL *,
57  const F77_REAL *, F77_REAL *);
58 
59  // DOTC (liboctave/external/blas-xtra)
60 
61  F77_RET_T
62  F77_FUNC (xcdotc, XCDOTC) (const F77_INT&, const F77_CMPLX *,
63  const F77_INT&, const F77_CMPLX *,
64  const F77_INT&, F77_CMPLX *);
65 
66  F77_RET_T
67  F77_FUNC (xzdotc, XZDOTC) (const F77_INT&, const F77_DBLE_CMPLX *,
68  const F77_INT&, const F77_DBLE_CMPLX *,
69  const F77_INT&, F77_DBLE_CMPLX *);
70 
71  // DOTC3
72 
73  F77_RET_T
74  F77_FUNC (cdotc3, CDOTC3) (const F77_INT&, const F77_INT&,
75  const F77_INT&, const F77_CMPLX *,
76  const F77_CMPLX *, F77_CMPLX *);
77 
78  F77_RET_T
79  F77_FUNC (zdotc3, ZDOTC3) (const F77_INT&, const F77_INT&,
80  const F77_INT&, const F77_DBLE_CMPLX *,
81  const F77_DBLE_CMPLX *, F77_DBLE_CMPLX *);
82 
83  // DOTU (liboctave/external/blas-xtra)
84 
85  F77_RET_T
86  F77_FUNC (xcdotu, XCDOTU) (const F77_INT&, const F77_CMPLX *,
87  const F77_INT&, const F77_CMPLX *,
88  const F77_INT&, F77_CMPLX *);
89 
90  F77_RET_T
91  F77_FUNC (xzdotu, XZDOTU) (const F77_INT&, const F77_DBLE_CMPLX *,
92  const F77_INT&, const F77_DBLE_CMPLX *,
93  const F77_INT&, F77_DBLE_CMPLX *);
94 
95  // GEMM
96 
97  F77_RET_T
98  F77_FUNC (cgemm, CGEMM) (F77_CONST_CHAR_ARG_DECL,
99  F77_CONST_CHAR_ARG_DECL,
100  const F77_INT&, const F77_INT&,
101  const F77_INT&, const F77_CMPLX&,
102  const F77_CMPLX *, const F77_INT&,
103  const F77_CMPLX *, const F77_INT&,
104  const F77_CMPLX&, F77_CMPLX *,
105  const F77_INT&
106  F77_CHAR_ARG_LEN_DECL
107  F77_CHAR_ARG_LEN_DECL);
108 
109  F77_RET_T
110  F77_FUNC (dgemm, DGEMM) (F77_CONST_CHAR_ARG_DECL,
111  F77_CONST_CHAR_ARG_DECL,
112  const F77_INT&, const F77_INT&,
113  const F77_INT&, const F77_DBLE&,
114  const F77_DBLE *, const F77_INT&,
115  const F77_DBLE *, const F77_INT&,
116  const F77_DBLE&, F77_DBLE *,
117  const F77_INT&
118  F77_CHAR_ARG_LEN_DECL
119  F77_CHAR_ARG_LEN_DECL);
120 
121  F77_RET_T
122  F77_FUNC (sgemm, SGEMM) (F77_CONST_CHAR_ARG_DECL,
123  F77_CONST_CHAR_ARG_DECL,
124  const F77_INT&, const F77_INT&,
125  const F77_INT&, const F77_REAL&,
126  const F77_REAL *, const F77_INT&,
127  const F77_REAL *, const F77_INT&,
128  const F77_REAL&, F77_REAL *,
129  const F77_INT&
130  F77_CHAR_ARG_LEN_DECL
131  F77_CHAR_ARG_LEN_DECL);
132 
133  F77_RET_T
134  F77_FUNC (zgemm, ZGEMM) (F77_CONST_CHAR_ARG_DECL,
135  F77_CONST_CHAR_ARG_DECL,
136  const F77_INT&, const F77_INT&,
137  const F77_INT&, const F77_DBLE_CMPLX&,
138  const F77_DBLE_CMPLX *, const F77_INT&,
139  const F77_DBLE_CMPLX *, const F77_INT&,
140  const F77_DBLE_CMPLX&, F77_DBLE_CMPLX *,
141  const F77_INT&
142  F77_CHAR_ARG_LEN_DECL
143  F77_CHAR_ARG_LEN_DECL);
144 
145  // GEMV
146 
147  F77_RET_T
148  F77_FUNC (cgemv, CGEMV) (F77_CONST_CHAR_ARG_DECL,
149  const F77_INT&, const F77_INT&,
150  const F77_CMPLX&, const F77_CMPLX *,
151  const F77_INT&, const F77_CMPLX *,
152  const F77_INT&, const F77_CMPLX&,
153  F77_CMPLX *, const F77_INT&
154  F77_CHAR_ARG_LEN_DECL);
155 
156  F77_RET_T
157  F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL,
158  const F77_INT&, const F77_INT&,
159  const F77_DBLE&, const F77_DBLE *,
160  const F77_INT&, const F77_DBLE *,
161  const F77_INT&, const F77_DBLE&,
162  F77_DBLE *, const F77_INT&
163  F77_CHAR_ARG_LEN_DECL);
164 
165  F77_RET_T
166  F77_FUNC (sgemv, SGEMV) (F77_CONST_CHAR_ARG_DECL,
167  const F77_INT&, const F77_INT&,
168  const F77_REAL&, const F77_REAL *,
169  const F77_INT&, const F77_REAL *,
170  const F77_INT&, const F77_REAL&,
171  F77_REAL *, const F77_INT&
172  F77_CHAR_ARG_LEN_DECL);
173 
174  F77_RET_T
175  F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL,
176  const F77_INT&, const F77_INT&,
177  const F77_DBLE_CMPLX&, const F77_DBLE_CMPLX *,
178  const F77_INT&, const F77_DBLE_CMPLX *,
179  const F77_INT&, const F77_DBLE_CMPLX&,
180  F77_DBLE_CMPLX *, const F77_INT&
181  F77_CHAR_ARG_LEN_DECL);
182 
183  // MATM3
184 
185  F77_RET_T
186  F77_FUNC (cmatm3, CMATM3) (const F77_INT&, const F77_INT&,
187  const F77_INT&, const F77_INT&,
188  const F77_CMPLX *, const F77_CMPLX *,
189  F77_CMPLX *);
190  F77_RET_T
191  F77_FUNC (dmatm3, DMATM3) (const F77_INT&, const F77_INT&,
192  const F77_INT&, const F77_INT&,
193  const F77_DBLE *, const F77_DBLE *, F77_DBLE *);
194 
195  F77_RET_T
196  F77_FUNC (smatm3, SMATM3) (const F77_INT&, const F77_INT&,
197  const F77_INT&, const F77_INT&,
198  const F77_REAL *, const F77_REAL *, F77_REAL *);
199 
200  F77_RET_T
201  F77_FUNC (zmatm3, ZMATM3) (const F77_INT&, const F77_INT&,
202  const F77_INT&, const F77_INT&,
203  const F77_DBLE_CMPLX *, const F77_DBLE_CMPLX *,
204  F77_DBLE_CMPLX *);
205 
206  // XERBLA
207 
208  OCTAVE_API
209  F77_RET_T
210  F77_FUNC (xerbla, XERBLA) (F77_CONST_CHAR_ARG_DECL, const F77_INT&
211  F77_CHAR_ARG_LEN_DECL);
212 }
213 
214 #endif
cdotc3
subroutine cdotc3(m, n, k, a, b, c)
Definition: cdotc3.f:23
cmatm3
subroutine cmatm3(m, n, k, np, a, b, c)
Definition: cmatm3.f:21
ddot3
subroutine ddot3(m, n, k, a, b, c)
Definition: ddot3.f:23
dmatm3
subroutine dmatm3(m, n, k, np, a, b, c)
Definition: dmatm3.f:23
F77_REAL
float F77_REAL
Definition: f77-fcn.h:303
F77_DBLE
double F77_DBLE
Definition: f77-fcn.h:302
F77_DBLE_CMPLX
double _Complex F77_DBLE_CMPLX
Definition: f77-fcn.h:304
F77_INT
octave_f77_int_type F77_INT
Definition: f77-fcn.h:306
F77_CMPLX
float _Complex F77_CMPLX
Definition: f77-fcn.h:305
F77_FUNC
F77_RET_T F77_FUNC(xddot, XDDOT)(const F77_INT &
F77_CONST_CHAR_ARG_DECL
F77_RET_T const F77_DBLE const F77_INT const F77_DBLE const F77_INT F77_DBLE &F77_RET_T const F77_REAL const F77_INT const F77_REAL const F77_INT F77_REAL &F77_RET_T const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_DBLE *F77_RET_T const F77_INT const F77_INT const F77_REAL const F77_REAL F77_REAL *F77_RET_T const F77_CMPLX const F77_INT const F77_CMPLX const F77_INT F77_CMPLX *F77_RET_T const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX *F77_RET_T const F77_INT const F77_INT const F77_CMPLX const F77_CMPLX F77_CMPLX *F77_RET_T const F77_INT const F77_INT const F77_DBLE_CMPLX const F77_DBLE_CMPLX F77_DBLE_CMPLX *F77_RET_T const F77_CMPLX const F77_INT const F77_CMPLX const F77_INT F77_CMPLX *F77_RET_T const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX *F77_RET_T F77_CONST_CHAR_ARG_DECL
Definition: lo-blas-proto.h:99
F77_CHAR_ARG_LEN_DECL
F77_RET_T const F77_DBLE const F77_INT const F77_DBLE const F77_INT F77_DBLE &F77_RET_T const F77_REAL const F77_INT const F77_REAL const F77_INT F77_REAL &F77_RET_T const F77_INT const F77_INT const F77_DBLE const F77_DBLE F77_DBLE *F77_RET_T const F77_INT const F77_INT const F77_REAL const F77_REAL F77_REAL *F77_RET_T const F77_CMPLX const F77_INT const F77_CMPLX const F77_INT F77_CMPLX *F77_RET_T const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX *F77_RET_T const F77_INT const F77_INT const F77_CMPLX const F77_CMPLX F77_CMPLX *F77_RET_T const F77_INT const F77_INT const F77_DBLE_CMPLX const F77_DBLE_CMPLX F77_DBLE_CMPLX *F77_RET_T const F77_CMPLX const F77_INT const F77_CMPLX const F77_INT F77_CMPLX *F77_RET_T const F77_DBLE_CMPLX const F77_INT const F77_DBLE_CMPLX const F77_INT F77_DBLE_CMPLX *F77_RET_T const F77_INT const F77_INT const F77_INT const F77_CMPLX const F77_CMPLX const F77_INT const F77_CMPLX const F77_INT const F77_CMPLX F77_CMPLX const F77_INT &F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL
Definition: lo-blas-proto.h:100
F77_RET_T
F77_RET_T(F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT &, const F77_INT &, const F77_INT &, F77_INT &, F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_INT *, F77_INT &F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL)
OCTAVE_API
#define OCTAVE_API
Definition: main.in.cc:55
sdot3
subroutine sdot3(m, n, k, a, b, c)
Definition: sdot3.f:23
smatm3
subroutine smatm3(m, n, k, np, a, b, c)
Definition: smatm3.f:23
xcdotc
subroutine xcdotc(n, zx, incx, zy, incy, retval)
Definition: xcdotc.f:2
xcdotu
subroutine xcdotu(n, zx, incx, zy, incy, retval)
Definition: xcdotu.f:2
xddot
subroutine xddot(n, dx, incx, dy, incy, retval)
Definition: xddot.f:2
xsdot
subroutine xsdot(n, dx, incx, dy, incy, retval)
Definition: xsdot.f:2
xzdotc
subroutine xzdotc(n, zx, incx, zy, incy, retval)
Definition: xzdotc.f:2
xzdotu
subroutine xzdotu(n, zx, incx, zy, incy, retval)
Definition: xzdotu.f:2
zdotc3
subroutine zdotc3(m, n, k, a, b, c)
Definition: zdotc3.f:23
zmatm3
subroutine zmatm3(m, n, k, np, a, b, c)
Definition: zmatm3.f:23