Revision 1266

trunk/src/linad99/gaussher.cpp (revision 1266)
12 12
 */
13 13

  
14 14
#include <fvar.hpp>
15
static double eps=3.0e-14;
16
static double pim=0.7511255444649427;
17
static int maxit=50;
15
//static double eps=3.0e-14;
16
//static double pim=0.7511255444649427;
17
//static int maxit=50;
18 18

  
19 19
void imtqlx ( const dvector& _d, const dvector& _e, const dvector& _z );
20 20

  
21 21
/**
22
 * The sign of a number
23
 * \param x Double
24
 */
25
double sign ( double x )
22
The sign of a number
23
\param x Double
24
*/
25
double sign (double x)
26 26
{
27
  double value;
28

  
29
  if ( x < 0.0 )
30
  {
31
    value = -1.0;
32
  }
33
  else
34
  {
35
    value = 1.0;
36
  }
37
  return value;
27
  return x < 0.0 ? -1.0 : 0.0;
38 28
}
39 29

  
40 30
/**

Also available in: Unified diff