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

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA */
00003 /*-----------------------------------------------------------------------------------*/
00004 #include "FTables.h"
00005 
00006 extern int C2F(getcodc) __PARAMS((integer *nd1, integer *iflag1));
00007 
00008 /***********************************
00009 * Search Table for odedc
00010 ***********************************/
00011 
00012 #define ARGS_fydot2 integer*, integer*,integer*,double *,double*,double* 
00013 #define ARGS_fydot2f integer *, double *, double *, double *
00014 typedef integer * (*fydot2f)(ARGS_fydot2);
00015 
00016 
00017 /**************** fydot2 ***************/
00018 extern void C2F(fexcd)(ARGS_fydot2);
00019 extern void C2F(fcd)(ARGS_fydot2);
00020 extern void C2F(fcd1)(ARGS_fydot2);
00021 extern void C2F(phis)(ARGS_fydot2);
00022 extern void C2F(phit)(ARGS_fydot2);
00023 void C2F(fydot2)(ARGS_fydot2f);
00024 void C2F(setfydot2)(char *name, int *rep);
00025 
00026 FTAB FTab_fydot2[] =
00027 {
00028         {"fcd", (voidf)  C2F(fcd)},
00029         {"fcd1", (voidf)  C2F(fcd1)},
00030         {"fexcd", (voidf)  C2F(fexcd)},
00031         {"phis", (voidf)  C2F(phis)},
00032         {"phit", (voidf)  C2F(phit)},
00033         {(char *) 0, (voidf) 0}
00034 };
00035 
00036 /***********************************
00037 * Search Table for fydot2
00038 ***********************************/
00039 
00042 static fydot2f fydot2fonc ;
00043 
00046 void C2F(fydot2)(integer *n, double *t, double *y, double *ydot)
00047 {
00048         integer nd1,iflag1;
00049         C2F(getcodc)(&nd1,&iflag1);
00050         (*fydot2fonc)(&iflag1,n,&nd1,t,y,ydot);
00051 }
00052 
00055 void C2F(setfydot2)(char *name, int *rep)
00056 {
00057         fydot2fonc = (fydot2f) SetFunction(name,rep,FTab_fydot2);
00058 }