| 7727 |
ripley |
1 |
/*
|
|
|
2 |
* R : A Computer Language for Statistical Data Analysis
|
|
|
3 |
* Copyright (C) 1997 Robert Gentleman and Ross Ihaka
|
| 67692 |
ripley |
4 |
* Copyright (C) 1999-2015 The R Core Team.
|
| 7727 |
ripley |
5 |
*
|
| 71657 |
plummer |
6 |
* This header file 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 |
*
|
| 71657 |
plummer |
11 |
* This file is part of R. R is distributed under the terms of the
|
|
|
12 |
* GNU General Public License, either Version 2, June 1991 or Version 3,
|
|
|
13 |
* June 2007. See doc/COPYRIGHTS for details of the copyright status of R.
|
|
|
14 |
*
|
| 7727 |
ripley |
15 |
* This program is distributed in the hope that it will be useful,
|
|
|
16 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
17 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
| 12778 |
pd |
18 |
* GNU Lesser General Public License for more details.
|
| 7727 |
ripley |
19 |
*
|
| 12778 |
pd |
20 |
* You should have received a copy of the GNU Lesser General Public License
|
| 42308 |
ripley |
21 |
* along with this program; if not, a copy is available at
|
| 68949 |
ripley |
22 |
* https://www.R-project.org/Licenses/
|
| 7727 |
ripley |
23 |
*/
|
| 60253 |
ripley |
24 |
|
|
|
25 |
/*
|
|
|
26 |
C declarations of double-precision LINPACK Fortran subroutines
|
|
|
27 |
included in R, and some others.
|
|
|
28 |
|
|
|
29 |
Those which are listed as part of R are in the API
|
|
|
30 |
*/
|
|
|
31 |
|
| 7727 |
ripley |
32 |
#ifndef R_LINPACK_H_
|
|
|
33 |
#define R_LINPACK_H_
|
|
|
34 |
|
| 19500 |
hornik |
35 |
#include <R_ext/RS.h> /* for F77_... */
|
| 23062 |
bates |
36 |
#include <R_ext/BLAS.h>
|
| 7727 |
ripley |
37 |
|
| 11211 |
ripley |
38 |
#ifdef __cplusplus
|
|
|
39 |
extern "C" {
|
|
|
40 |
#endif
|
|
|
41 |
|
| 67692 |
ripley |
42 |
/* Double Precision LINPACK */
|
| 7727 |
ripley |
43 |
|
| 19176 |
ripley |
44 |
extern void F77_NAME(dpbfa)(double*, int*, int*, int*, int*);
|
|
|
45 |
extern void F77_NAME(dpbsl)(double*, int*, int*, int*, double*);
|
|
|
46 |
extern void F77_NAME(dpoco)(double*, int*, int*, double*, double*, int*);
|
|
|
47 |
extern void F77_NAME(dpodi)(double*, int*, int*, double*, int*);
|
|
|
48 |
extern void F77_NAME(dpofa)(double*, int*, int*, int*);
|
|
|
49 |
extern void F77_NAME(dposl)(double*, int*, int*, double*);
|
|
|
50 |
extern void F77_NAME(dqrdc)(double*, int*, int*, int*, double*, int*, double*, int*);
|
|
|
51 |
extern void F77_NAME(dqrsl)(double*, int*, int*, int*, double*, double*, double*, double*, double*, double*, double*, int*, int*);
|
|
|
52 |
extern void F77_NAME(dsvdc)(double*, int*, int*, int*, double*, double*, double*, int*, double*, int*, double*, int*, int*);
|
|
|
53 |
extern void F77_NAME(dtrco)(double*, int*, int*, double*, double*, int*);
|
|
|
54 |
extern void F77_NAME(dtrsl)(double*, int*, int*, double*, int*, int*);
|
| 9017 |
ripley |
55 |
|
| 18610 |
ripley |
56 |
|
| 9017 |
ripley |
57 |
/* The following routines are listed as they have always been declared
|
|
|
58 |
here, but they are not currently included in R */
|
| 19176 |
ripley |
59 |
extern void F77_NAME(dchdc)(double*, int*, int*, double*, int*, int*, int*);
|
|
|
60 |
extern void F77_NAME(dchdd)(double*, int*, int*, double*, double*, int*, int*, double*, double*, double*, double*, int*);
|
|
|
61 |
extern void F77_NAME(dchex)(double*, int*, int*, int*, int*, double*, int*, int*, double*, double*, int*);
|
|
|
62 |
extern void F77_NAME(dchud)(double*, int*, int*, double*, double*, int*, int*, double*, double*, double*, double*);
|
|
|
63 |
extern void F77_NAME(dgbco)(double*, int*, int*, int*, int*, int*, double*, double*);
|
|
|
64 |
extern void F77_NAME(dgbdi)(double*, int*, int*, int*, int*, int*, double*);
|
|
|
65 |
extern void F77_NAME(dgbfa)(double*, int*, int*, int*, int*, int*, int*);
|
|
|
66 |
extern void F77_NAME(dgbsl)(double*, int*, int*, int*, int*, int*, double*, int*);
|
|
|
67 |
extern void F77_NAME(dgeco)(double*, int*, int*, int*, double*, double*);
|
|
|
68 |
extern void F77_NAME(dgedi)(double*, int*, int*, int*, double*, double*, int*);
|
|
|
69 |
extern void F77_NAME(dgefa)(double*, int*, int*, int*, int*);
|
|
|
70 |
extern void F77_NAME(dgesl)(double*, int*, int*, int*, double*, int*);
|
|
|
71 |
extern void F77_NAME(dgtsl)(int*, double*, double*, double*, double*, int*);
|
|
|
72 |
extern void F77_NAME(dpbco)(double*, int*, int*, int*, double*, double*, int*);
|
|
|
73 |
extern void F77_NAME(dpbdi)(double*, int*, int*, int*, double*);
|
|
|
74 |
extern void F77_NAME(dppco)(double*, int*, double*, double*, int*);
|
|
|
75 |
extern void F77_NAME(dppdi)(double*, int*, double*, int*);
|
|
|
76 |
extern void F77_NAME(dppfa)(double*, int*, int*);
|
|
|
77 |
extern void F77_NAME(dppsl)(double*, int*, double*);
|
|
|
78 |
extern void F77_NAME(dptsl)(int*, double*, double*, double*);
|
|
|
79 |
extern void F77_NAME(dsico)(double*, int*, int*, int*, double*, double*);
|
|
|
80 |
extern void F77_NAME(dsidi)(double*, int*, int*, int*, double*, int*, double*, int*);
|
|
|
81 |
extern void F77_NAME(dsifa)(double*, int*, int*, int*, int*);
|
|
|
82 |
extern void F77_NAME(dsisl)(double*, int*, int*, int*, double*);
|
|
|
83 |
extern void F77_NAME(dspco)(double*, int*, int*, double*, double*);
|
|
|
84 |
extern void F77_NAME(dspdi)(double*, int*, int*, double*, int*, double*, int*);
|
|
|
85 |
extern void F77_NAME(dspfa)(double*, int*, int*, int*);
|
|
|
86 |
extern void F77_NAME(dspsl)(double*, int*, int*, double*);
|
| 7727 |
ripley |
87 |
|
| 11211 |
ripley |
88 |
#ifdef __cplusplus
|
|
|
89 |
}
|
| 7727 |
ripley |
90 |
#endif
|
| 11211 |
ripley |
91 |
|
|
|
92 |
#endif /* R_LINPACK_H_ */
|
The R Project SVN
R