100   double fleft, fright;  in solve_for_lambda()  local
104   fright = lambda_func( right, h, hmin, hmax );  in solve_for_lambda()
106   if ( fleft*fright > 0.0 ) {  in solve_for_lambda()
107     fprintf(stderr, "ERROR could not bracket root, %g %g   %g %g\n", left, fleft, right, fright);  in solve_for_lambda()
120       fright = fmidpt;  in solve_for_lambda()
343   double fleft, fright, fmidpt;  in gapped_theta()  local
349   fright = (*objective)( alpha, right );  in gapped_theta()
351   if ( fleft*fright >= 0.0 ) {  in gapped_theta()
355 …derr, "ERROR could not bracket root %e  %e   %e %e alpha %e\n", left, fleft, right, fright, alpha);  in gapped_theta()
365     if ( fleft < fright ) {  in gapped_theta()
372         fright = fmidpt;  in gapped_theta()
382         fright = fmidpt;  in gapped_theta()