GPL + CeCILL Header change
[scilab.git] / scilab / modules / linear_algebra / includes / gschur.h
1
2 /*
3  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4  * Copyright (C) 2007-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
5  *
6  * Copyright (C) 2012 - 2016 - Scilab Enterprises
7  *
8  * This file is hereby licensed under the terms of the GNU GPL v2.0,
9  * pursuant to article 5.3.4 of the CeCILL v.2.1.
10  * This file was originally licensed under the terms of the CeCILL v2.1,
11  * and continues to be available under such terms.
12  * For more information, see the COPYING file which you should have received
13  * along with this program.
14  * === LICENSE_END ===
15  *
16  */
17
18 #ifndef __GSCHUR_H__
19 #define __GSCHUR_H__
20
21 #include "dynlib_linear_algebra.h"
22 #include "GetFunctionByName.h"
23 #include "linear_FTables.h"
24
25
26 /***********************************
27  * Search Table for gzhsel
28  ***********************************/
29
30 #define ARGS_gzhsel doublecmplx *,doublecmplx *
31 typedef int * (*gzhself)(ARGS_gzhsel);
32
33 /**************** gzhsel ***************/
34 LINEAR_ALGEBRA_IMPEXP void C2F(zb02ow)(ARGS_gzhsel);
35 LINEAR_ALGEBRA_IMPEXP void C2F(zb02ox)(ARGS_gzhsel);
36
37 FTAB FTab_gzhsel[] =
38 {
39     {"zb02ow", (voidf)  C2F(zb02ow)},
40     {"zb02ox", (voidf)  C2F(zb02ox)},
41     {(char *) 0, (voidf) 0}
42 };
43
44
45 /***********************************
46  * Search Table for gshsel
47  ***********************************/
48
49 #define ARGS_gshsel double *,double*,double*
50 typedef int * (*gshself)(ARGS_gshsel);
51
52
53 /**************** gshsel ***************/
54 LINEAR_ALGEBRA_IMPEXP void C2F(sb02ow)(ARGS_gshsel);
55 LINEAR_ALGEBRA_IMPEXP void C2F(sb02ox)(ARGS_gshsel);
56
57 FTAB FTab_gshsel[] =
58 {
59     {"sb02ow", (voidf)  C2F(sb02ow)},
60     {"sb02ox", (voidf)  C2F(sb02ox)},
61     {(char *) 0, (voidf) 0}
62 };
63
64 #endif /* __GSCHUR_H__ */