lsqrsolvtable.c

Go to the documentation of this file.

/*-----------------------------------------------------------------------------------*/
/* INRIA */
/*-----------------------------------------------------------------------------------*/
#include "FTables.h"
/***********************************
* Search Table for lsqrsolve 
***********************************/

#define ARGS_lsqrsolvf integer*,integer*,double *,double*,integer*
typedef void (*lsqrsolvff)(ARGS_lsqrsolvf);

#define ARGS_lsqrsolvj integer*,integer*,double*,double*,integer*,integer*
typedef void (*lsqrsolvjf)(ARGS_lsqrsolvj);

/**************** lsqrsolvf ***************/
extern void C2F(lsqrsol1)(ARGS_lsqrsolvf);
void C2F(lsqrsolvf)(ARGS_lsqrsolvf);
void C2F(setlsqrsolvf)(char *name, int *rep);


FTAB FTab_lsqrsolvf[] =
{
{"lsqrsol1", (voidf)  C2F(lsqrsol1)},
{(char *) 0, (voidf) 0}
};
/**************** lsqrsolvj ***************/
extern void C2F(lsqrsolj1)(ARGS_lsqrsolvj);
void C2F(lsqrsolvj)(ARGS_lsqrsolvj);
void C2F(setlsqrsolvj)(char *name, int *rep);

FTAB FTab_lsqrsolvj[] ={
{"lsqrsolj1", (voidf)  C2F(lsqrsolj1)},
{(char *) 0, (voidf) 0}
};

/***********************************
* Search Table for fsolve 
*    uses : lsqrsolvf and lsqrsolvj 
***********************************/

static lsqrsolvff lsqrsolvffonc ;

void C2F(lsqrsolvf)(integer *m, integer *n, double *x, double *fvec, integer *iflag)
{
        (*lsqrsolvffonc)(m,n,x,fvec,iflag);
}

void C2F(setlsqrsolvf)(char *name, int *rep)
{
        lsqrsolvffonc = (lsqrsolvff) SetFunction(name,rep,FTab_lsqrsolvf);
}

static lsqrsolvjf lsqrsolvjfonc ;

void C2F(lsqrsolvj)(integer *m, integer *n, double *x, double *fjac, integer *ldfjac, integer *iflag)
{
        (*lsqrsolvjfonc)(m,n,x,fjac,ldfjac,iflag);
}

void C2F(setlsqrsolvj)(char *name, int *rep)
{
        lsqrsolvjfonc = (lsqrsolvjf) SetFunction(name,rep,FTab_lsqrsolvj);
}

---