| 7727 |
ripley |
1 |
/*
|
|
|
2 |
* R : A Computer Language for Statistical Data Analysis
|
|
|
3 |
* Copyright (C) 1997 Robert Gentleman and Ross Ihaka
|
| 18610 |
ripley |
4 |
* Copyright (C) 1999-2002 The R Development Core Team.
|
| 7727 |
ripley |
5 |
*
|
|
|
6 |
* This program is free software; you can redistribute it and/or modify
|
| 12778 |
pd |
7 |
* it under the terms of the GNU Lesser General Public License as published by
|
|
|
8 |
* the Free Software Foundation; either version 2.1 of the License, or
|
| 7727 |
ripley |
9 |
* (at your option) any later version.
|
|
|
10 |
*
|
|
|
11 |
* This program is distributed in the hope that it will be useful,
|
|
|
12 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
13 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
| 12778 |
pd |
14 |
* GNU Lesser General Public License for more details.
|
| 7727 |
ripley |
15 |
*
|
| 12778 |
pd |
16 |
* You should have received a copy of the GNU Lesser General Public License
|
| 7727 |
ripley |
17 |
* along with this program; if not, write to the Free Software
|
|
|
18 |
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
19 |
*/
|
|
|
20 |
#ifndef R_LINPACK_H_
|
|
|
21 |
#define R_LINPACK_H_
|
|
|
22 |
|
| 19500 |
hornik |
23 |
#include <R_ext/RS.h> /* for F77_... */
|
| 23062 |
bates |
24 |
#include <R_ext/BLAS.h>
|
| 7727 |
ripley |
25 |
|
| 11211 |
ripley |
26 |
#ifdef __cplusplus
|
|
|
27 |
extern "C" {
|
|
|
28 |
#endif
|
|
|
29 |
|
| 19371 |
ripley |
30 |
extern int
|
| 18610 |
ripley |
31 |
F77_NAME(lsame)(char *, char *);
|
| 7727 |
ripley |
32 |
|
|
|
33 |
/* Double Precision Linpack */
|
|
|
34 |
|
| 19176 |
ripley |
35 |
extern void F77_NAME(dchdc)(double*, int*, int*, double*, int*, int*, int*);
|
|
|
36 |
extern void F77_NAME(dpbfa)(double*, int*, int*, int*, int*);
|
|
|
37 |
extern void F77_NAME(dpbsl)(double*, int*, int*, int*, double*);
|
|
|
38 |
extern void F77_NAME(dpoco)(double*, int*, int*, double*, double*, int*);
|
|
|
39 |
extern void F77_NAME(dpodi)(double*, int*, int*, double*, int*);
|
|
|
40 |
extern void F77_NAME(dpofa)(double*, int*, int*, int*);
|
|
|
41 |
extern void F77_NAME(dposl)(double*, int*, int*, double*);
|
|
|
42 |
extern void F77_NAME(dqrdc)(double*, int*, int*, int*, double*, int*, double*, int*);
|
|
|
43 |
extern void F77_NAME(dqrsl)(double*, int*, int*, int*, double*, double*, double*, double*, double*, double*, double*, int*, int*);
|
|
|
44 |
extern void F77_NAME(dsvdc)(double*, int*, int*, int*, double*, double*, double*, int*, double*, int*, double*, int*, int*);
|
|
|
45 |
extern void F77_NAME(dtrco)(double*, int*, int*, double*, double*, int*);
|
|
|
46 |
extern void F77_NAME(dtrsl)(double*, int*, int*, double*, int*, int*);
|
| 9017 |
ripley |
47 |
|
| 18610 |
ripley |
48 |
|
| 9017 |
ripley |
49 |
/* The following routines are listed as they have always been declared
|
|
|
50 |
here, but they are not currently included in R */
|
| 19176 |
ripley |
51 |
extern void F77_NAME(dchdc)(double*, int*, int*, double*, int*, int*, int*);
|
|
|
52 |
extern void F77_NAME(dchdd)(double*, int*, int*, double*, double*, int*, int*, double*, double*, double*, double*, int*);
|
|
|
53 |
extern void F77_NAME(dchex)(double*, int*, int*, int*, int*, double*, int*, int*, double*, double*, int*);
|
|
|
54 |
extern void F77_NAME(dchud)(double*, int*, int*, double*, double*, int*, int*, double*, double*, double*, double*);
|
|
|
55 |
extern void F77_NAME(dgbco)(double*, int*, int*, int*, int*, int*, double*, double*);
|
|
|
56 |
extern void F77_NAME(dgbdi)(double*, int*, int*, int*, int*, int*, double*);
|
|
|
57 |
extern void F77_NAME(dgbfa)(double*, int*, int*, int*, int*, int*, int*);
|
|
|
58 |
extern void F77_NAME(dgbsl)(double*, int*, int*, int*, int*, int*, double*, int*);
|
|
|
59 |
extern void F77_NAME(dgeco)(double*, int*, int*, int*, double*, double*);
|
|
|
60 |
extern void F77_NAME(dgedi)(double*, int*, int*, int*, double*, double*, int*);
|
|
|
61 |
extern void F77_NAME(dgefa)(double*, int*, int*, int*, int*);
|
|
|
62 |
extern void F77_NAME(dgesl)(double*, int*, int*, int*, double*, int*);
|
|
|
63 |
extern void F77_NAME(dgtsl)(int*, double*, double*, double*, double*, int*);
|
|
|
64 |
extern void F77_NAME(dpbco)(double*, int*, int*, int*, double*, double*, int*);
|
|
|
65 |
extern void F77_NAME(dpbdi)(double*, int*, int*, int*, double*);
|
|
|
66 |
extern void F77_NAME(dppco)(double*, int*, double*, double*, int*);
|
|
|
67 |
extern void F77_NAME(dppdi)(double*, int*, double*, int*);
|
|
|
68 |
extern void F77_NAME(dppfa)(double*, int*, int*);
|
|
|
69 |
extern void F77_NAME(dppsl)(double*, int*, double*);
|
|
|
70 |
extern void F77_NAME(dptsl)(int*, double*, double*, double*);
|
|
|
71 |
extern void F77_NAME(dsico)(double*, int*, int*, int*, double*, double*);
|
|
|
72 |
extern void F77_NAME(dsidi)(double*, int*, int*, int*, double*, int*, double*, int*);
|
|
|
73 |
extern void F77_NAME(dsifa)(double*, int*, int*, int*, int*);
|
|
|
74 |
extern void F77_NAME(dsisl)(double*, int*, int*, int*, double*);
|
|
|
75 |
extern void F77_NAME(dspco)(double*, int*, int*, double*, double*);
|
|
|
76 |
extern void F77_NAME(dspdi)(double*, int*, int*, double*, int*, double*, int*);
|
|
|
77 |
extern void F77_NAME(dspfa)(double*, int*, int*, int*);
|
|
|
78 |
extern void F77_NAME(dspsl)(double*, int*, int*, double*);
|
| 7727 |
ripley |
79 |
|
| 11211 |
ripley |
80 |
#ifdef __cplusplus
|
|
|
81 |
}
|
| 7727 |
ripley |
82 |
#endif
|
| 11211 |
ripley |
83 |
|
|
|
84 |
#endif /* R_LINPACK_H_ */
|
The R Project SVN
R