Scilab [trunk]: scilab/modules/optimization/src/c/optimtable.c Source File

00001 /*-----------------------------------------------------------------------------------*/
00002 /* INRIA */
00003 /*-----------------------------------------------------------------------------------*/
00004 #include "FTables.h"
00005 /***********************************
00006 * Search Table for foptim 
00007 ***********************************/
00008 
00009 #define ARGS_foptim integer*,integer*,double *,double*,double*,integer*,float*,double*
00010 typedef void (*foptimf)(ARGS_foptim);
00011 
00012 /**************** foptim ***************/
00013 extern void C2F(genros)(ARGS_foptim);
00014 extern void C2F(topt2)(ARGS_foptim);
00015 extern void C2F(icsemc)(ARGS_foptim);
00016 void C2F(foptim)(ARGS_foptim);
00017 void C2F(setfoptim)(char *name, int *rep);
00018 
00019 FTAB FTab_foptim[] =
00020 {
00021         {"genros", (voidf)  C2F(genros)},
00022         {"icsemc", (voidf)  C2F(icsemc)},
00023         {"topt2", (voidf)  C2F(topt2)},
00024         {(char *) 0, (voidf) 0}
00025 };
00026 /***********************************
00027 * Search Table for optim 
00028 *    uses : foptim 
00029 ***********************************/
00030 
00033 static foptimf foptimfonc ;
00034 
00037 void C2F(foptim)(integer *indsim, integer *n, double *x, double *f, double *g, integer *izs, float *rzs, double *dzs)
00038 {
00039         (*foptimfonc)(indsim,n,x,f,g,izs,rzs,dzs);
00040 }
00041 
00044 void C2F(setfoptim)(char *name, int *rep)
00045 {
00046         foptimfonc = (foptimf) SetFunction(name,rep,FTab_foptim);
00047 }
00048