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

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA */
00003 /*-----------------------------------------------------------------------------------*/
00004 #include "FTables.h"
00005 /***********************************
00006 * feval (ffeval)
00007 ***********************************/
00008 
00009 #define ARGS_ffeval integer*,double *,double *,double *,integer*,char *
00010 typedef void (*ffevalf)(ARGS_ffeval);
00011 
00012 /**************** ffeval ***************/
00013 extern void C2F(parab)(ARGS_ffeval);
00014 extern void C2F(parabc)(ARGS_ffeval);
00015 void C2F(ffeval)(ARGS_ffeval);
00016 void C2F(setfeval)(char *name, int *rep);
00017 
00018 FTAB FTab_ffeval[] ={
00019         {"parab", (voidf)  C2F(parab)},
00020         {"parabc", (voidf)  C2F(parabc)},
00021         {(char *) 0, (voidf) 0}};
00022 
00023 
00024 /***********************************
00025 * Search Table for feval 
00026 ***********************************/
00027 
00030 static ffevalf fevalfonc ;
00031 
00034 void C2F(ffeval)(integer *nn, double *x1, double *x2, double *xres, integer *itype, char *name)
00035 {
00036         (*fevalfonc)(nn,x1,x2,xres,itype,name);
00037 }
00038 
00041 void C2F(setfeval)(char *name, int *rep)
00042 {
00043         fevalfonc = (ffevalf) SetFunction(name,rep,FTab_ffeval);
00044 }
00045