source: orange/source/orange/linpack/linpack.h @ 8074:844cfc478eae

Revision 8074:844cfc478eae, 890 bytes checked in by ales_erjavec <ales.erjavec@…>, 3 years ago (diff)

Initial commit of Earth R package (MARS - Multivariate Adaptive Regression Splines) port to orange.
Added linpack subset (also one modified version of dqrdc as used in R) needed for Earth to run.

Line 
1/*
2 * Minimal environment for output from f2c to compile and run.
3 */
4
5#ifndef LINPACK_H
6#define LINPACK_H
7
8#define doublereal double
9#define integer int
10#define logical char
11
12#ifndef MAX
13#define MAX(a,b)    (((a) > (b)) ? (a) : (b))
14#endif
15
16#ifndef MIN
17#define MIN(a,b)    (((a) < (b)) ? (a) : (b))
18#endif
19
20#ifndef ABS
21#define ABS(a)    (((a) >= 0)? (a) : -(a))
22#endif
23
24#define max MAX
25#define min MIN
26
27#define abs ABS
28
29#ifdef __cplusplus
30extern "C" {
31#endif
32
33    double d_sign(doublereal * A, doublereal * B);
34
35#ifdef __cplusplus
36}
37#endif
38
39#ifdef __cplusplus
40extern "C" {
41#endif
42//  #include "../blas/blas.h"
43    extern double dnrm2_(int *, double *, int *);
44    extern double ddot_(int *, double *, int *, double *, int *);
45    extern int daxpy_(int *, double *, double *, int *, double *, int *);
46    extern int dscal_(int *, double *, double *, int *);
47#ifdef __cplusplus
48}
49#endif
50
51#endif //LINPACK_H
Note: See TracBrowser for help on using the repository browser.