source: orange/source/orange/linpack/linpack.c @ 8069:5e19a5dcaac0

Revision 8069:5e19a5dcaac0, 195 bytes checked in by ales_erjavec <ales.erjavec@…>, 3 years ago (diff)
Line 
1/*
2 * Minimal environment for output from f2c to compile and run.
3 */
4
5#include "linpack.h"
6
7double d_sign(double * A, double * B)
8{
9    double x = (*A >= 0)? *A : -*A;
10    return (*B >= 0)? x : -x;
11}
Note: See TracBrowser for help on using the repository browser.