GNU Octave  4.2.1
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
lo-qrupdate-proto.h
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2016-2017 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #if ! defined (octave_lo_qrupdate_proto_h)
24 #define octave_lo_qrupdate_proto_h 1
25 
26 #include "octave-config.h"
27 
28 #include "f77-fcn.h"
29 
30 extern "C"
31 {
32 
33 #if defined (HAVE_QRUPDATE)
34 
35  // CH1DN
36 
37  F77_RET_T
38  F77_FUNC (cch1dn, CCH1DN) (const F77_INT&, F77_CMPLX*,
39  const F77_INT&, F77_CMPLX*,
40  F77_REAL*, F77_INT&);
41 
42  F77_RET_T
43  F77_FUNC (dch1dn, DCH1DN) (const F77_INT&, F77_DBLE*,
44  const F77_INT&, F77_DBLE*, F77_DBLE*,
45  F77_INT&);
46 
47  F77_RET_T
48  F77_FUNC (sch1dn, SCH1DN) (const F77_INT&, F77_REAL*,
49  const F77_INT&, F77_REAL*, F77_REAL*,
50  F77_INT&);
51 
52  F77_RET_T
53  F77_FUNC (zch1dn, ZCH1DN) (const F77_INT&, F77_DBLE_CMPLX*,
54  const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE*,
55  F77_INT&);
56 
57  // CH1UP
58 
59  F77_RET_T
60  F77_FUNC (cch1up, CCH1UP) (const F77_INT&, F77_CMPLX*,
61  const F77_INT&, F77_CMPLX*, F77_REAL*);
62 
63  F77_RET_T
64  F77_FUNC (dch1up, DCH1UP) (const F77_INT&, F77_DBLE*,
65  const F77_INT&, F77_DBLE*, F77_DBLE*);
66 
67  F77_RET_T
68  F77_FUNC (sch1up, SCH1UP) (const F77_INT&, F77_REAL*,
69  const F77_INT&, F77_REAL*, F77_REAL*);
70 
71  F77_RET_T
72  F77_FUNC (zch1up, ZCH1UP) (const F77_INT&, F77_DBLE_CMPLX*,
73  const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE*);
74 
75  // CHDEX
76 
77  F77_RET_T
78  F77_FUNC (dchdex, DCHDEX) (const F77_INT&, F77_DBLE*,
79  const F77_INT&, const F77_INT&,
80  F77_DBLE*);
81 
82  F77_RET_T
83  F77_FUNC (schdex, SCHDEX) (const F77_INT&, F77_REAL*,
84  const F77_INT&, const F77_INT&,
85  F77_REAL*);
86 
87  F77_RET_T
88  F77_FUNC (cchdex, CCHDEX) (const F77_INT&, F77_CMPLX*,
89  const F77_INT&, const F77_INT&,
90  F77_REAL*);
91 
92  F77_RET_T
93  F77_FUNC (zchdex, ZCHDEX) (const F77_INT&, F77_DBLE_CMPLX*,
94  const F77_INT&, const F77_INT&,
95  F77_DBLE*);
96 
97  // CHINX
98 
99  F77_RET_T
100  F77_FUNC (cchinx, CCHINX) (const F77_INT&, F77_CMPLX*,
101  const F77_INT&, const F77_INT&,
102  F77_CMPLX*, F77_REAL*, F77_INT&);
103 
104  F77_RET_T
105  F77_FUNC (dchinx, DCHINX) (const F77_INT&, F77_DBLE*,
106  const F77_INT&, const F77_INT&,
107  F77_DBLE*, F77_DBLE*, F77_INT&);
108 
109  F77_RET_T
110  F77_FUNC (schinx, SCHINX) (const F77_INT&, F77_REAL*,
111  const F77_INT&, const F77_INT&,
112  F77_REAL*, F77_REAL*, F77_INT&);
113 
114  F77_RET_T
115  F77_FUNC (zchinx, ZCHINX) (const F77_INT&, F77_DBLE_CMPLX*,
116  const F77_INT&, const F77_INT&,
117  F77_DBLE_CMPLX*, F77_DBLE*, F77_INT&);
118 
119  // CHSHX
120 
121  F77_RET_T
122  F77_FUNC (cchshx, CCHSHX) (const F77_INT&, F77_CMPLX*,
123  const F77_INT&, const F77_INT&,
124  const F77_INT&, F77_CMPLX*, F77_REAL*);
125 
126  F77_RET_T
127  F77_FUNC (dchshx, DCHSHX) (const F77_INT&, F77_DBLE*,
128  const F77_INT&, const F77_INT&,
129  const F77_INT&, F77_DBLE*);
130 
131  F77_RET_T
132  F77_FUNC (schshx, SCHSHX) (const F77_INT&, F77_REAL*,
133  const F77_INT&, const F77_INT&,
134  const F77_INT&, F77_REAL*);
135 
136  F77_RET_T
137  F77_FUNC (zchshx, ZCHSHX) (const F77_INT&, F77_DBLE_CMPLX*,
138  const F77_INT&, const F77_INT&,
139  const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE*);
140 
141  // QR1UP
142 
143  F77_RET_T
144  F77_FUNC (cqr1up, CQR1UP) (const F77_INT&, const F77_INT&,
145  const F77_INT&, F77_CMPLX*,
146  const F77_INT&, F77_CMPLX*,
147  const F77_INT&, F77_CMPLX*,
148  F77_CMPLX*, F77_CMPLX*, F77_REAL*);
149 
150  F77_RET_T
151  F77_FUNC (dqr1up, DQR1UP) (const F77_INT&, const F77_INT&,
152  const F77_INT&, F77_DBLE*,
153  const F77_INT&, F77_DBLE*,
154  const F77_INT&, F77_DBLE*, F77_DBLE*, F77_DBLE*);
155 
156  F77_RET_T
157  F77_FUNC (sqr1up, SQR1UP) (const F77_INT&, const F77_INT&,
158  const F77_INT&, F77_REAL*,
159  const F77_INT&, F77_REAL*,
160  const F77_INT&, F77_REAL*, F77_REAL*, F77_REAL*);
161 
162  F77_RET_T
163  F77_FUNC (zqr1up, ZQR1UP) (const F77_INT&, const F77_INT&,
164  const F77_INT&, F77_DBLE_CMPLX*,
165  const F77_INT&, F77_DBLE_CMPLX*,
166  const F77_INT&, F77_DBLE_CMPLX*,
167  F77_DBLE_CMPLX*, F77_DBLE_CMPLX*, F77_DBLE*);
168 
169  // QRDEC
170 
171  F77_RET_T
172  F77_FUNC (cqrdec, CQRDEC) (const F77_INT&, const F77_INT&,
173  const F77_INT&, F77_CMPLX*,
174  const F77_INT&, F77_CMPLX*,
175  const F77_INT&, const F77_INT&,
176  F77_REAL*);
177 
178  F77_RET_T
179  F77_FUNC (dqrdec, DQRDEC) (const F77_INT&, const F77_INT&,
180  const F77_INT&, F77_DBLE*,
181  const F77_INT&, F77_DBLE*,
182  const F77_INT&, const F77_INT&,
183  F77_DBLE*);
184 
185  F77_RET_T
186  F77_FUNC (sqrdec, SQRDEC) (const F77_INT&, const F77_INT&,
187  const F77_INT&, F77_REAL*,
188  const F77_INT&, F77_REAL*,
189  const F77_INT&,
190  const F77_INT&, F77_REAL*);
191 
192  F77_RET_T
193  F77_FUNC (zqrdec, ZQRDEC) (const F77_INT&, const F77_INT&,
194  const F77_INT&, F77_DBLE_CMPLX*,
195  const F77_INT&, F77_DBLE_CMPLX*,
196  const F77_INT&, const F77_INT&,
197  F77_DBLE*);
198 
199  // QRDER
200 
201  F77_RET_T
202  F77_FUNC (cqrder, CQRDER) (const F77_INT&, const F77_INT&,
203  F77_CMPLX*, const F77_INT&,
204  F77_CMPLX*, const F77_INT&,
205  const F77_INT&, F77_CMPLX*, F77_REAL*);
206 
207  F77_RET_T
208  F77_FUNC (dqrder, DQRDER) (const F77_INT&, const F77_INT&,
209  F77_DBLE*, const F77_INT&, F77_DBLE*,
210  const F77_INT&, const F77_INT&,
211  F77_DBLE*);
212 
213  F77_RET_T
214  F77_FUNC (sqrder, SQRDER) (const F77_INT&, const F77_INT&,
215  F77_REAL*, const F77_INT&,
216  F77_REAL*, const F77_INT&,
217  const F77_INT&, F77_REAL*);
218 
219  F77_RET_T
220  F77_FUNC (zqrder, ZQRDER) (const F77_INT&, const F77_INT&,
221  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
222  const F77_INT&, const F77_INT&,
223  F77_DBLE_CMPLX*, F77_DBLE*);
224 
225  // QRINC
226 
227  F77_RET_T
228  F77_FUNC (cqrinc, CQRINC) (const F77_INT&, const F77_INT&,
229  const F77_INT&, F77_CMPLX*,
230  const F77_INT&, F77_CMPLX*,
231  const F77_INT&,const F77_INT&,
232  const F77_CMPLX*, F77_REAL*);
233 
234  F77_RET_T
235  F77_FUNC (dqrinc, DQRINC) (const F77_INT&, const F77_INT&,
236  const F77_INT&, F77_DBLE*,
237  const F77_INT&, F77_DBLE*,
238  const F77_INT&, const F77_INT&,
239  const F77_DBLE*, F77_DBLE*);
240 
241  F77_RET_T
242  F77_FUNC (sqrinc, SQRINC) (const F77_INT&, const F77_INT&,
243  const F77_INT&, F77_REAL*,
244  const F77_INT&, F77_REAL*,
245  const F77_INT&,
246  const F77_INT&, const F77_REAL*, F77_REAL*);
247 
248  F77_RET_T
249  F77_FUNC (zqrinc, ZQRINC) (const F77_INT&, const F77_INT&,
250  const F77_INT&, F77_DBLE_CMPLX*,
251  const F77_INT&, F77_DBLE_CMPLX*,
252  const F77_INT&, const F77_INT&,
253  const F77_DBLE_CMPLX*, F77_DBLE*);
254 
255  // QRINR
256 
257  F77_RET_T
258  F77_FUNC (cqrinr, CQRINR) (const F77_INT&, const F77_INT&,
259  F77_CMPLX*, const F77_INT&,
260  F77_CMPLX*, const F77_INT&,
261  const F77_INT&, const F77_CMPLX*,
262  F77_REAL*);
263 
264  F77_RET_T
265  F77_FUNC (dqrinr, DQRINR) (const F77_INT&, const F77_INT&,
266  F77_DBLE*, const F77_INT&, F77_DBLE*,
267  const F77_INT&, const F77_INT&,
268  const F77_DBLE*, F77_DBLE*);
269 
270  F77_RET_T
271  F77_FUNC (sqrinr, SQRINR) (const F77_INT&, const F77_INT&,
272  F77_REAL*, const F77_INT&,
273  F77_REAL*, const F77_INT&,
274  const F77_INT&, const F77_REAL*, F77_REAL*);
275 
276  F77_RET_T
277  F77_FUNC (zqrinr, ZQRINR) (const F77_INT&, const F77_INT&,
278  F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
279  const F77_INT&, const F77_INT&,
280  const F77_DBLE_CMPLX*, F77_DBLE*);
281 
282  // QRSHC
283 
284  F77_RET_T
285  F77_FUNC (cqrshc, CQRSHC) (const F77_INT&, const F77_INT&,
286  const F77_INT&, F77_CMPLX*,
287  const F77_INT&, F77_CMPLX*,
288  const F77_INT&, const F77_INT&,
289  const F77_INT&, F77_CMPLX*,
290  F77_REAL*);
291  F77_RET_T
292  F77_FUNC (dqrshc, DQRSHC) (const F77_INT&, const F77_INT&,
293  const F77_INT&, F77_DBLE*,
294  const F77_INT&, F77_DBLE*,
295  const F77_INT&, const F77_INT&,
296  const F77_INT&, F77_DBLE*);
297 
298  F77_RET_T
299  F77_FUNC (sqrshc, SQRSHC) (const F77_INT&, const F77_INT&,
300  const F77_INT&, F77_REAL*,
301  const F77_INT&, F77_REAL*,
302  const F77_INT&,
303  const F77_INT&, const F77_INT&,
304  F77_REAL*);
305 
306  F77_RET_T
307  F77_FUNC (zqrshc, ZQRSHC) (const F77_INT&, const F77_INT&,
308  const F77_INT&, F77_DBLE_CMPLX*,
309  const F77_INT&, F77_DBLE_CMPLX*,
310  const F77_INT&, const F77_INT&,
311  const F77_INT&, F77_DBLE_CMPLX*, F77_DBLE*);
312 
313 #endif
314 
315 #if defined (HAVE_QRUPDATE_LUU)
316 
317  // LU1UP
318 
319  F77_RET_T
320  F77_FUNC (clu1up, CLU1UP) (const F77_INT&, const F77_INT&,
321  F77_CMPLX *, const F77_INT&,
322  F77_CMPLX *, const F77_INT&,
323  F77_CMPLX *, F77_CMPLX *);
324 
325  F77_RET_T
326  F77_FUNC (dlu1up, DLU1UP) (const F77_INT&, const F77_INT&,
327  F77_DBLE *, const F77_INT&,
328  F77_DBLE *, const F77_INT&,
329  F77_DBLE *, F77_DBLE *);
330 
331  F77_RET_T
332  F77_FUNC (slu1up, SLU1UP) (const F77_INT&, const F77_INT&,
333  F77_REAL *, const F77_INT&,
334  F77_REAL *, const F77_INT&,
335  F77_REAL *, F77_REAL *);
336 
337  F77_RET_T
338  F77_FUNC (zlu1up, ZLU1UP) (const F77_INT&, const F77_INT&,
339  F77_DBLE_CMPLX *, const F77_INT&,
340  F77_DBLE_CMPLX *, const F77_INT&,
341  F77_DBLE_CMPLX *, F77_DBLE_CMPLX *);
342 
343  // LUP1UP
344 
345  F77_RET_T
346  F77_FUNC (clup1up, CLUP1UP) (const F77_INT&, const F77_INT&,
347  F77_CMPLX *, const F77_INT&,
348  F77_CMPLX *, const F77_INT&,
349  F77_INT *, const F77_CMPLX *,
350  const F77_CMPLX *, F77_CMPLX *);
351  F77_RET_T
352  F77_FUNC (dlup1up, DLUP1UP) (const F77_INT&, const F77_INT&,
353  F77_DBLE *, const F77_INT&,
354  F77_DBLE *, const F77_INT&,
355  F77_INT *, const F77_DBLE *,
356  const F77_DBLE *, F77_DBLE *);
357 
358  F77_RET_T
359  F77_FUNC (slup1up, SLUP1UP) (const F77_INT&, const F77_INT&,
360  F77_REAL *, const F77_INT&,
361  F77_REAL *, const F77_INT&,
362  F77_INT *, const F77_REAL *,
363  const F77_REAL *, F77_REAL *);
364 
365  F77_RET_T
366  F77_FUNC (zlup1up, ZLUP1UP) (const F77_INT&, const F77_INT&,
367  F77_DBLE_CMPLX *, const F77_INT&,
368  F77_DBLE_CMPLX *, const F77_INT&,
369  F77_INT *, const F77_DBLE_CMPLX *,
370  const F77_DBLE_CMPLX *, F77_DBLE_CMPLX *);
371 
372 #endif
373 
374 }
375 
376 #endif
F77_REAL
#define F77_REAL
Definition: f77-fcn.h:332
F77_CMPLX
#define F77_CMPLX
Definition: f77-fcn.h:334
F77_INT
#define F77_INT
Definition: f77-fcn.h:335
F77_FUNC
F77_RET_T F77_FUNC(cch1dn, CCH1DN)(const F77_INT &
F77_DBLE_CMPLX
#define F77_DBLE_CMPLX
Definition: f77-fcn.h:333
F77_DBLE
#define F77_DBLE
Definition: f77-fcn.h:331
Generated on Wed May 10 2017 15:42:58 for GNU Octave by   doxygen 1.8.8