| Line 1... |
Line 1... |
| 1 |
/*
|
1 |
/*
|
| 2 |
* R : A Computer Language for Statistical Data Analysis
|
2 |
* R : A Computer Language for Statistical Data Analysis
|
| 3 |
* Copyright (C) 1997 Robert Gentleman and Ross Ihaka
|
3 |
* Copyright (C) 1997 Robert Gentleman and Ross Ihaka
|
| 4 |
* Copyright (C) 1999-2002 The R Core Team.
|
4 |
* Copyright (C) 1999-2015 The R Core Team.
|
| 5 |
*
|
5 |
*
|
| 6 |
* This program is free software; you can redistribute it and/or modify
|
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
|
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
|
8 |
* the Free Software Foundation; either version 2.1 of the License, or
|
| 9 |
* (at your option) any later version.
|
9 |
* (at your option) any later version.
|
| Line 33... |
Line 33... |
| 33 |
|
33 |
|
| 34 |
#ifdef __cplusplus
|
34 |
#ifdef __cplusplus
|
| 35 |
extern "C" {
|
35 |
extern "C" {
|
| 36 |
#endif
|
36 |
#endif
|
| 37 |
|
37 |
|
| 38 |
/* Double Precision Linpack */
|
38 |
/* Double Precision LINPACK */
|
| 39 |
|
39 |
|
| 40 |
extern void F77_NAME(dpbfa)(double*, int*, int*, int*, int*);
|
40 |
extern void F77_NAME(dpbfa)(double*, int*, int*, int*, int*);
|
| 41 |
extern void F77_NAME(dpbsl)(double*, int*, int*, int*, double*);
|
41 |
extern void F77_NAME(dpbsl)(double*, int*, int*, int*, double*);
|
| 42 |
extern void F77_NAME(dpoco)(double*, int*, int*, double*, double*, int*);
|
42 |
extern void F77_NAME(dpoco)(double*, int*, int*, double*, double*, int*);
|
| 43 |
extern void F77_NAME(dpodi)(double*, int*, int*, double*, int*);
|
43 |
extern void F77_NAME(dpodi)(double*, int*, int*, double*, int*);
|