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

00001 /**************************************
00002  * Sylvestre Ledru - INRIA 2007
00003  **************************************/
00004 
00005 #include "linear_FTables.h"
00006 
00007 
00008 /***********************************
00009  * Search Table for gzhsel
00010  ***********************************/
00011 
00012 #if defined(__STDC__)
00013 #define ARGS_gzhsel doublecmplx *,doublecmplx *
00014 typedef integer * (*gzhself)(ARGS_gzhsel);
00015 #else
00016 #define ARGS_gzhsel 
00017 typedef integer * (*gzhself)();
00018 #endif 
00019 
00020 /**************** gzhsel ***************/
00021 extern void C2F(zb02ow)(ARGS_gzhsel);
00022 extern void C2F(zb02ox)(ARGS_gzhsel);
00023  
00024 FTAB FTab_gzhsel[] ={
00025 {"zb02ow", (voidf)  C2F(zb02ow)},
00026 {"zb02ox", (voidf)  C2F(zb02ox)},
00027 {(char *) 0, (voidf) 0}};
00028 
00029 
00030 /***********************************
00031  * Search Table for gshsel
00032  ***********************************/
00033 
00034 #if defined(__STDC__)
00035 #define ARGS_gshsel double *,double*,double*
00036 typedef integer * (*gshself)(ARGS_gshsel);
00037 #else
00038 #define ARGS_gshsel 
00039 typedef integer * (*gshself)();
00040 #endif 
00041 
00042 
00043 /**************** gshsel ***************/
00044 extern void C2F(sb02ow)(ARGS_gshsel);
00045 extern void C2F(sb02ox)(ARGS_gshsel);
00046  
00047 FTAB FTab_gshsel[] ={
00048 {"sb02ow", (voidf)  C2F(sb02ow)},
00049 {"sb02ox", (voidf)  C2F(sb02ox)},
00050 {(char *) 0, (voidf) 0}};