/* ---------------------------------- */
/* save as fa.h */
/* ---------------------------------- */
#define LOOP 2*50
/* ---------------------------------- */
double f(
double x,
double y,
double z)
{
return( y*z);
}
char feq[] = "y*z";
/* ---------------------------------- */
/* ---------------------------------- */
double g(
double t)
{
return(t);
}
char geq[] = "t";
/* ---------------------------------- */
double h(
double t)
{
return(t*t);
}
char heq[] = "t**2";
/* ---------------------------------- */
double k(
double t)
{
return(t*t*t);
}
char keq[] = "t**3";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 2.; char beq[] = "2";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */