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

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