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

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA */
00003 /*-----------------------------------------------------------------------------------*/
00004 #include "FTables.h"
00005 /***********************************
00006 * Search Table for int3d
00007 ***********************************/
00008 
00009 #define ARGS_fint3d double *,integer*,double *
00010 typedef void (*fint3df)(ARGS_fint3d);
00011 
00012 /**************** fint3d ***************/
00013 extern void C2F(int3dex)(ARGS_fint3d);
00014 void C2F(fint3d)(ARGS_fint3d);
00015 void C2F(setfint3d)(char *name, int *rep);
00016 
00017 FTAB FTab_fint3d[] =
00018 {
00019         {"int3dex", (voidf)  C2F(int3dex)},
00020         {(char *) 0, (voidf) 0}
00021 };
00022 
00023 
00024 /***********************************
00025 * Search Table for int3d
00026 *    uses : fint3d
00027 ***********************************/
00028 
00031 static fint3df fint3dfonc ;
00032 
00035 void C2F(fint3d)(double *xyz, integer *numfun, double *v)
00036 {
00037         (*fint3dfonc)(xyz,numfun,v);
00038 }
00039 
00042 void C2F(setfint3d)(char *name, int *rep)
00043 {
00044         fint3dfonc = (fint3df) SetFunction(name,rep,FTab_fint3d);
00045 }