/* --------------------------------------------------------------------------
    Function for testing root solver.
----------------------------------------------------------------------------- */
#include "tools.h"
#include "ffam.h"

void 
setup( void )      
{   
    printf( "\n No parameters needed for this function.\n" );
}

/* --------function to compute heat transfer discrepency------------------ */
double 
f( double r )      
{   
    return r*r - 1; 
}