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

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA */
00003 /*-----------------------------------------------------------------------------------*/
00004 #include "FTables.h"
00005 /***********************************
00006 * impl   (  fres, fadda, fj2 )
00007 ***********************************/
00008 
00009 #define ARGS_fres integer*,double *,double *,double *,double*,integer*
00010 typedef void (*fresf)(ARGS_fres);
00011 
00012 
00013 #define ARGS_fadda integer*,double *,double *,integer*,integer*,double*,integer*
00014 typedef void (*faddaf)(ARGS_fadda);
00015 
00016 #define ARGS_fj2 integer *,double *,double *,double *,integer *,integer *,double*,integer *
00017 typedef void (*fj2f)(ARGS_fj2);
00018 
00019 /**************** fres ***************/
00020 extern void C2F(resid)(ARGS_fres);
00021 void C2F(fres)(ARGS_fres);
00022 void C2F(setfres)(char *name, int *rep);
00023 
00024 FTAB FTab_fres[] ={
00025         {"resid", (voidf)  C2F(resid)},
00026         {(char *) 0, (voidf) 0}};
00027 /**************** fadda ***************/
00028 extern void C2F(aplusp)(ARGS_fadda);
00029 void C2F(fadda)(ARGS_fadda);
00030 void C2F(setfadda)(char *name, int *rep);
00031 
00032 FTAB FTab_fadda[] ={
00033 {"aplusp", (voidf)  C2F(aplusp)},
00034 {(char *) 0, (voidf) 0}};
00035 
00036 /**************** fj2 ***************/
00037 extern void C2F(dgbydy)(ARGS_fj2);
00038 void C2F(fj2)(ARGS_fj2);
00039 void C2F(setfj2)(char *name, int *rep);
00040 
00041 FTAB FTab_fj2[] ={
00042         {"dgbydy", (voidf)  C2F(dgbydy)},
00043         {(char *) 0, (voidf) 0}};
00044 
00045 /***********************************
00046 * Search Table for impl 
00047 ***********************************/
00048 
00051 static fresf fresfonc ;
00052 
00055 void C2F(fres)(integer *ny, double *t, double *y, double *s, double *r, integer *ires)
00056 {
00057         (*fresfonc)(ny,t,y,s,r,ires);
00058 }
00059 
00062 void C2F(setfres)(char *name, int *rep)
00063 {
00064         fresfonc = (fresf) SetFunction(name,rep,FTab_fres);
00065 }
00066 
00067 
00070 static faddaf faddafonc ;
00071 
00072 void C2F(fadda)(integer *ny, double *t, double *y, integer *ml, integer *mu, double *p, integer *nrowp)
00073 {
00074         (*faddafonc)(ny,t,y,ml,mu,p,nrowp);
00075 }
00076 
00079 void C2F(setfadda)(char *name, int *rep)
00080 {
00081         faddafonc = (faddaf) SetFunction(name,rep,FTab_fadda);
00082 }
00083 
00084 
00087 static fj2f fj2fonc ;
00088 
00091 void C2F(fj2)(integer *ny, double *t, double *y, double *s, integer *ml, integer *mu, double *p, integer *nrowp)
00092 {
00093         (*fj2fonc)(ny,t,y,s,ml,mu,p,nrowp);
00094 }
00095 
00098 void C2F(setfj2)(char *name, int *rep)
00099 {
00100         fj2fonc = (fj2f) SetFunction(name,rep,FTab_fj2);
00101 }