Statistics
| Revision:

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) 1999-2002   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.r-project.org/Licenses/
19
 */
20

    
21
/* 
22
   C declarations of double-precision 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_ */