The R Project SVN R

Rev

Rev 19500 | Rev 36820 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19500 Rev 23062
Line 19... Line 19...
19 
 */
 19 
 */
20 
#ifndef R_LINPACK_H_
 20 
#ifndef R_LINPACK_H_
21 
#define R_LINPACK_H_
 21 
#define R_LINPACK_H_
22 
 
 22 
 
23 
#include <R_ext/RS.h>		/* for F77_... */
 23 
#include <R_ext/RS.h>		/* for F77_... */
- 
 
 24 
#include <R_ext/BLAS.h>
24 
 
 25 
 
25 
#ifdef  __cplusplus
 26 
#ifdef  __cplusplus
26 
extern "C" {
 27 
extern "C" {
27 
#endif
 28 
#endif
28 
 
 29 
 
29 
/*-- use "extern" below, since declarations are already in ./Applic.h : */
 - 
 
30 
 
 - 
 
31 
	/* Double Precision Blas */
 - 
 
32 
 
 - 
 
33 
extern double
 - 
 
34 
F77_NAME(dasum)(int *, double *, int *);
 - 
 
35 
extern void
 - 
 
36 
F77_NAME(daxpy)(int *, double *, double *, int *, double *, int *);
 - 
 
37 
extern void
- 
 
38 
F77_NAME(dcopy)(int *, double *, int *, double *, int *);
 - 
 
39 
extern double
 - 
 
40 
F77_NAME(ddot)(int *, double *, int *, double *, int *);
 - 
 
41 
extern void
 - 
 
42 
F77_NAME(dgbmv)(char *, int *, int *, int *, int *, double *, double *,
 - 
 
43 
		int *, double *, int *, double *, double *, int *);
 - 
 
44 
extern void
 - 
 
45 
F77_NAME(dgemm)(char *, char *, int *, int *, int *, double *, double *, int *,
 - 
 
46 
	double *, int *, double *, double *, int *);
 - 
 
47 
extern void
 - 
 
48 
F77_NAME(dgemv)(char *, int *, int *, double *, double *, int *, double *,
- 
 
49 
		int *, double *, double *, int *);
 - 
 
50 
extern void
 - 
 
51 
F77_NAME(dger)(int *, int *, double *, double *, int *, double *, int *,
- 
 
52 
	       double *, int *);
 - 
 
53 
extern double
 - 
 
54 
F77_NAME(dnrm2)(int *, double *, int *incx);
 - 
 
55 
extern void
 - 
 
56 
F77_NAME(drot)(int *, double *, int *, double *, int *, double *, double *);
 - 
 
57 
extern void
 - 
 
58 
F77_NAME(drotg)(double *, double *, double *, double *);
 - 
 
59 
extern void
 - 
 
60 
F77_NAME(drotm)(int *, double *, int *, double *, int *, double *);
 - 
 
61 
extern void
 - 
 
62 
F77_NAME(drotmg)(double *dd1, double *dd2, double * dx1, double *, double *);
 - 
 
63 
extern void
 - 
 
64 
F77_NAME(dsbmv)(char *, int *, int *, double *, double *, int *, double *,
- 
 
65 
		int *, double *, double *, int *);
 - 
 
66 
extern void
 - 
 
67 
F77_NAME(dscal)(int *, double *, double *, int *);
 - 
 
68 
extern void
 - 
 
69 
F77_NAME(dspmv)(char *, int *, double *, double *, double *, int *, double *,
- 
 
70 
		double *, int *);
 - 
 
71 
extern void
 - 
 
72 
F77_NAME(dspr)(char *, int *, double *, double *, int *, double *);
 - 
 
73 
extern void
 - 
 
74 
F77_NAME(dspr2)(char *, int *, double *, double *, int *, double *, int *,
- 
 
75 
		double *);
 - 
 
76 
extern void
 - 
 
77 
F77_NAME(dswap)(int *, double *, int *, double *, int *);
 - 
 
78 
extern void
 - 
 
79 
F77_NAME(dsymm)(char *, char *, int *, int *, double *, double *, int *,
- 
 
80 
		double *, int *, double *, double *, int *);
 - 
 
81 
extern void
 - 
 
82 
F77_NAME(dsymv)(char *, int *, double *, double *, int *, double *, int *,
- 
 
83 
		double *, double *, int *);
 - 
 
84 
extern void
 - 
 
85 
F77_NAME(dsyr)(char *, int *, double *, double *, int *, double *, int *);
 - 
 
86 
extern void
 - 
 
87 
F77_NAME(dsyr2)(char *, int *, double *, double *, int *, double *,
- 
 
88 
		int *, double *, int *);
 - 
 
89 
extern void
 - 
 
90 
F77_NAME(dsyr2k)(char *, char *, int *, int *, double *, double *, int *,
- 
 
91 
		 double *, int *, double *, double *, int *);
 - 
 
92 
extern void
 - 
 
93 
F77_NAME(dsyrk)(char *, char *, int *, int *, double *, double *, int *,
- 
 
94 
		double *, double *, int *);
 - 
 
95 
extern void
 - 
 
96 
F77_NAME(dtbmv)(char *, char *, char *, int *, int *, double *, int *,
- 
 
97 
		double *, int *);
 - 
 
98 
extern void
 - 
 
99 
F77_NAME(dtbsv)(char *, char *, char *, int *, int *, double *, int *,
- 
 
100 
		double *, int *);
 - 
 
101 
extern void
 - 
 
102 
F77_NAME(dtpmv)(char *, char *, char *, int *, double *, double *, int *);
 - 
 
103 
extern void
 - 
 
104 
F77_NAME(dtpsv)(char *, char *, char *, int *, double *, double *, int *);
 - 
 
105 
extern void
 - 
 
106 
F77_NAME(dtrmm)(char *, char *, char *, char *, int *, int *, double *,
- 
 
107 
		double *, int *, double *, int *);
 - 
 
108 
extern void
 - 
 
109 
F77_NAME(dtrmv)(char *, char *, char *, int *, double *, int *, double *,
- 
 
110 
		int *);
 - 
 
111 
extern void
 - 
 
112 
F77_NAME(dtrsm)(char *, char *, char *, char *, int *, int *, double *,
- 
 
113 
		double *, int *, double *, int *);
 - 
 
114 
extern void
 - 
 
115 
F77_NAME(dtrsv)(char *, char *, char *, int *, double *, int *, double *,
- 
 
116 
		int *);
 - 
 
117 
extern int
 - 
 
118 
F77_NAME(idamax)(int *, double *, int *);
 - 
 
119 
extern int
 30 
extern int
120 
F77_NAME(lsame)(char *, char *);
 31 
F77_NAME(lsame)(char *, char *);
121 
 
 32 
 
122 
	/* Double Precision Linpack */
 33 
	/* Double Precision Linpack */
123 
 
 34