Scilab [trunk]: scilab/modules/linear_algebra/src/c/schur.h Source File

00001 /**************************************
00002  * Sylvestre Ledru - INRIA 2007
00003  **************************************/
00004 
00005 #include "machine.h"
00006 #include "linear_FTables.h"
00007 
00008 /***********************************
00009  * Search Table for schsel
00010  ***********************************/
00011 
00012 #if defined(__STDC__)
00013 #define ARGS_schsel double *,double*
00014 typedef integer * (*schself)(ARGS_schsel);
00015 #else
00016 #define ARGS_schsel 
00017 typedef integer * (*schself)();
00018 #endif 
00019 
00020 
00021 /**************** schsel ***************/
00022 extern void C2F(sb02mv)(ARGS_schsel);
00023 extern void C2F(sb02mw)(ARGS_schsel);
00024  
00025 FTAB FTab_schsel[] ={
00026 {"sb02mv", (voidf)  C2F(sb02mv)},
00027 {"sb02mw", (voidf)  C2F(sb02mw)},
00028 {(char *) 0, (voidf) 0}};
00029 
00030 
00031 /***********************************
00032  * Search Table for zchsel
00033  ***********************************/
00034 
00035 #if defined(__STDC__)
00036 #define ARGS_zchsel doublecmplx *
00037 typedef integer * (*zchself)(ARGS_zchsel);
00038 #else
00039 #define ARGS_zchsel 
00040 typedef integer * (*zchself)();
00041 #endif 
00042 
00043 
00044 /**************** zchsel ***************/
00045 extern void C2F(zb02mv)(ARGS_zchsel);
00046 extern void C2F(zb02mw)(ARGS_zchsel);
00047  
00048 FTAB FTab_zchsel[] ={
00049 {"zb02mv", (voidf)  C2F(zb02mv)},
00050 {"zb02mw", (voidf)  C2F(zb02mw)},
00051 {(char *) 0, (voidf) 0}};