root / tmp / org.txm.statsengine.r.core.win32 / res / win32 / include / R_ext / Linpack.h @ 2486
History  View  Annotate  Download (4.3 kB)
1 
/*


2 
* R : A Computer Language for Statistical Data Analysis

3 
* Copyright (C) 1997 Robert Gentleman and Ross Ihaka

4 
* Copyright (C) 19992002 The R Core Team.

5 
*

6 
* This program is free software; you can redistribute it and/or modify

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

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

14 
* GNU Lesser General Public License for more details.

15 
*

16 
* You should have received a copy of the GNU Lesser General Public License

17 
* along with this program; if not, a copy is available at

18 
* http://www.rproject.org/Licenses/

19 
*/

20  
21 
/*

22 
C declarations of doubleprecision LINPACK Fortran subroutines

23 
included in R, and some others.

24 

25 
Those which are listed as part of R are in the API

26 
*/

27  
28 
#ifndef R_LINPACK_H_

29 
#define R_LINPACK_H_

30  
31 
#include <R_ext/RS.h> /* for F77_... */ 
32 
#include <R_ext/BLAS.h> 
33  
34 
#ifdef __cplusplus

35 
extern "C" { 
36 
#endif

37  
38 
/* Double Precision Linpack */

39  
40 
extern void F77_NAME(dpbfa)(double*, int*, int*, int*, int*); 
41 
extern void F77_NAME(dpbsl)(double*, int*, int*, int*, double*); 
42 
extern void F77_NAME(dpoco)(double*, int*, int*, double*, double*, int*); 
43 
extern void F77_NAME(dpodi)(double*, int*, int*, double*, int*); 
44 
extern void F77_NAME(dpofa)(double*, int*, int*, int*); 
45 
extern void F77_NAME(dposl)(double*, int*, int*, double*); 
46 
extern void F77_NAME(dqrdc)(double*, int*, int*, int*, double*, int*, double*, int*); 
47 
extern void F77_NAME(dqrsl)(double*, int*, int*, int*, double*, double*, double*, double*, double*, double*, double*, int*, int*); 
48 
extern void F77_NAME(dsvdc)(double*, int*, int*, int*, double*, double*, double*, int*, double*, int*, double*, int*, int*); 
49 
extern void F77_NAME(dtrco)(double*, int*, int*, double*, double*, int*); 
50 
extern void F77_NAME(dtrsl)(double*, int*, int*, double*, int*, int*); 
51  
52  
53 
/* The following routines are listed as they have always been declared

54 
here, but they are not currently included in R */

55 
extern void F77_NAME(dchdc)(double*, int*, int*, double*, int*, int*, int*); 
56 
extern void F77_NAME(dchdd)(double*, int*, int*, double*, double*, int*, int*, double*, double*, double*, double*, int*); 
57 
extern void F77_NAME(dchex)(double*, int*, int*, int*, int*, double*, int*, int*, double*, double*, int*); 
58 
extern void F77_NAME(dchud)(double*, int*, int*, double*, double*, int*, int*, double*, double*, double*, double*); 
59 
extern void F77_NAME(dgbco)(double*, int*, int*, int*, int*, int*, double*, double*); 
60 
extern void F77_NAME(dgbdi)(double*, int*, int*, int*, int*, int*, double*); 
61 
extern void F77_NAME(dgbfa)(double*, int*, int*, int*, int*, int*, int*); 
62 
extern void F77_NAME(dgbsl)(double*, int*, int*, int*, int*, int*, double*, int*); 
63 
extern void F77_NAME(dgeco)(double*, int*, int*, int*, double*, double*); 
64 
extern void F77_NAME(dgedi)(double*, int*, int*, int*, double*, double*, int*); 
65 
extern void F77_NAME(dgefa)(double*, int*, int*, int*, int*); 
66 
extern void F77_NAME(dgesl)(double*, int*, int*, int*, double*, int*); 
67 
extern void F77_NAME(dgtsl)(int*, double*, double*, double*, double*, int*); 
68 
extern void F77_NAME(dpbco)(double*, int*, int*, int*, double*, double*, int*); 
69 
extern void F77_NAME(dpbdi)(double*, int*, int*, int*, double*); 
70 
extern void F77_NAME(dppco)(double*, int*, double*, double*, int*); 
71 
extern void F77_NAME(dppdi)(double*, int*, double*, int*); 
72 
extern void F77_NAME(dppfa)(double*, int*, int*); 
73 
extern void F77_NAME(dppsl)(double*, int*, double*); 
74 
extern void F77_NAME(dptsl)(int*, double*, double*, double*); 
75 
extern void F77_NAME(dsico)(double*, int*, int*, int*, double*, double*); 
76 
extern void F77_NAME(dsidi)(double*, int*, int*, int*, double*, int*, double*, int*); 
77 
extern void F77_NAME(dsifa)(double*, int*, int*, int*, int*); 
78 
extern void F77_NAME(dsisl)(double*, int*, int*, int*, double*); 
79 
extern void F77_NAME(dspco)(double*, int*, int*, double*, double*); 
80 
extern void F77_NAME(dspdi)(double*, int*, int*, double*, int*, double*, int*); 
81 
extern void F77_NAME(dspfa)(double*, int*, int*, int*); 
82 
extern void F77_NAME(dspsl)(double*, int*, int*, double*); 
83  
84 
#ifdef __cplusplus

85 
} 
86 
#endif

87  
88 
#endif /* R_LINPACK_H_ */ 