File: positivity.c

package info (click to toggle)
gsl 1.15%2Bdfsg.2-2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 14,824 kB
  • sloc: ansic: 196,796; sh: 11,228; makefile: 668
file content (13 lines) | stat: -rw-r--r-- 354 bytes parent folder | download | duplicates (30) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
/* Compare the integral of f(x) with the integral of |f(x)|
   to determine if f(x) covers both positive and negative values */

static inline int
test_positivity (double result, double resabs);

static inline int
test_positivity (double result, double resabs)
{
  int status = (fabs (result) >= (1 - 50 * GSL_DBL_EPSILON) * resabs);

  return status;
}