Scilab [trunk]: scilab/modules/differential_equations/src/c/intgtable.c Source File

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA */
00003 /*-----------------------------------------------------------------------------------*/
00004 #include "FTables.h"
00005 
00006 #define ARGS_fintg double *
00007 
00008 /**************** fintg ***************/
00009 extern void C2F(intgex)(ARGS_fintg);
00010 double *C2F(fintg)(ARGS_fintg);
00011 void C2F(setfintg)(char *name, int *rep);
00012 
00013 FTAB FTab_fintg[] ={
00014         {"intgex", (voidf)  C2F(intgex)},
00015         {(char *) 0, (voidf) 0}};
00016 
00017 /***********************************
00018 * Search Table for intg 
00019 ***********************************/
00020 
00021 typedef double * (*fintgf)(ARGS_fintg);
00022 
00023 /***********************************
00024 * Search Table for intg 
00025 *    uses : fintg 
00026 ***********************************/
00027 
00030 static fintgf fintgfonc ;
00031 
00034 double *C2F(fintg)(double *x)
00035 {
00036         return((*fintgfonc)(x));
00037 }
00038 
00041 void C2F(setfintg)(char *name, int *rep)
00042 {
00043         fintgfonc = (fintgf) SetFunction(name,rep,FTab_fintg);
00044 }