The R Project SVN R

Rev

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

Rev 22857 Rev 23062
Line 25... Line 25...
25 
#ifndef R_APPLIC_H_
 25 
#ifndef R_APPLIC_H_
26 
#define R_APPLIC_H_
 26 
#define R_APPLIC_H_
27 
 
 27 
 
28 
#include <R_ext/Boolean.h>
 28 
#include <R_ext/Boolean.h>
29 
#include <R_ext/RS.h>		/* F77_... */
 29 
#include <R_ext/RS.h>		/* F77_... */
- 
 
 30 
#include <R_ext/BLAS.h>
30 
 
 31 
 
31 
#ifdef  __cplusplus
 32 
#ifdef  __cplusplus
32 
extern "C" {
 33 
extern "C" {
33 
#endif
 34 
#endif
34 
 
 35 
 
Line 175... Line 176...
175 
 *				 f2c -A -P *.f; cat *.P > all.h	 and editing]
 176 
 *				 f2c -A -P *.f; cat *.P > all.h	 and editing]
176 
 */
 177 
 */
177 
typedef double (*D_fp)();
 178 
typedef double (*D_fp)();
178 
typedef /* Subroutine */ int (*S_fp)();
 179 
typedef /* Subroutine */ int (*S_fp)();
179 
 
 180 
 
180 
/* ../../appl/blas.f ---> see also ./Linpack.h */
 - 
 
181 
extern double
 - 
 
182 
F77_NAME(dasum)(int *, double *, int *);
 - 
 
183 
extern void
 - 
 
184 
F77_NAME(daxpy)(int *, double *, double *, int *, double *, int *);
 - 
 
185 
extern void
 - 
 
186 
F77_NAME(dcopy)(int *, double *, int *, double *, int *);
 - 
 
187 
extern double
 - 
 
188 
F77_NAME(ddot)(int *, double *, int *, double *, int *);
 - 
 
189 
extern void
 - 
 
190 
F77_NAME(dgbmv)(char *, int *, int *, int *, int *, double *, double *,
 - 
 
191 
		int *, double *, int *, double *, double *, int *);
 - 
 
192 
extern void
 - 
 
193 
F77_NAME(dgemm)(char *, char *, int *, int *, int *, double *, double *, int *,
 - 
 
194 
	double *, int *, double *, double *, int *);
 - 
 
195 
extern void
 - 
 
196 
F77_NAME(dgemv)(char *, int *, int *, double *, double *, int *, double *,
 - 
 
197 
		int *, double *, double *, int *);
 - 
 
198 
extern void
 - 
 
199 
F77_NAME(dger)(int *, int *, double *, double *, int *, double *, int *,
 - 
 
200 
	       double *, int *);
 - 
 
201 
extern double
 - 
 
202 
F77_NAME(dnrm2)(int *, double *, int *incx);
 - 
 
203 
extern void
 - 
 
204 
F77_NAME(drot)(int *, double *, int *, double *, int *, double *, double *);
 - 
 
205 
extern void
 - 
 
206 
F77_NAME(drotg)(double *, double *, double *, double *);
 - 
 
207 
extern void
 - 
 
208 
F77_NAME(drotm)(int *, double *, int *, double *, int *, double *);
 - 
 
209 
extern void
 - 
 
210 
F77_NAME(drotmg)(double *dd1, double *dd2, double * dx1, double *, double *);
 - 
 
211 
extern void
 - 
 
212 
F77_NAME(dsbmv)(char *, int *, int *, double *, double *, int *, double *,
 - 
 
213 
		int *, double *, double *, int *);
 - 
 
214 
extern void
 - 
 
215 
F77_NAME(dscal)(int *, double *, double *, int *);
 - 
 
216 
extern void
 - 
 
217 
F77_NAME(dspmv)(char *, int *, double *, double *, double *, int *, double *,
 - 
 
218 
		double *, int *);
 - 
 
219 
extern void
 - 
 
220 
F77_NAME(dspr)(char *, int *, double *, double *, int *, double *);
 - 
 
221 
extern void
 - 
 
222 
F77_NAME(dspr2)(char *, int *, double *, double *, int *, double *, int *,
 - 
 
223 
		double *);
 - 
 
224 
extern void
 - 
 
225 
F77_NAME(dswap)(int *, double *, int *, double *, int *);
 - 
 
226 
extern void
 - 
 
227 
F77_NAME(dsymm)(char *, char *, int *, int *, double *, double *, int *,
 - 
 
228 
		double *, int *, double *, double *, int *);
 - 
 
229 
extern void
 - 
 
230 
F77_NAME(dsymv)(char *, int *, double *, double *, int *, double *, int *,
 - 
 
231 
		double *, double *, int *);
 - 
 
232 
extern void
 - 
 
233 
F77_NAME(dsyr)(char *, int *, double *, double *, int *, double *, int *);
 - 
 
234 
extern void
 - 
 
235 
F77_NAME(dsyr2)(char *, int *, double *, double *, int *, double *,
 - 
 
236 
		int *, double *, int *);
 - 
 
237 
extern void
 - 
 
238 
F77_NAME(dsyr2k)(char *, char *, int *, int *, double *, double *, int *,
 - 
 
239 
		 double *, int *, double *, double *, int *);
 - 
 
240 
extern void
 - 
 
241 
F77_NAME(dsyrk)(char *, char *, int *, int *, double *, double *, int *,
 - 
 
242 
		double *, double *, int *);
 - 
 
243 
extern void
 - 
 
244 
F77_NAME(dtbmv)(char *, char *, char *, int *, int *, double *, int *,
 - 
 
245 
		double *, int *);
 - 
 
246 
extern void
 - 
 
247 
F77_NAME(dtbsv)(char *, char *, char *, int *, int *, double *, int *,
 - 
 
248 
		double *, int *);
 - 
 
249 
extern void
 - 
 
250 
F77_NAME(dtpmv)(char *, char *, char *, int *, double *, double *, int *);
 - 
 
251 
extern void
 - 
 
252 
F77_NAME(dtpsv)(char *, char *, char *, int *, double *, double *, int *);
 - 
 
253 
extern void
 - 
 
254 
F77_NAME(dtrmm)(char *, char *, char *, char *, int *, int *, double *,
 - 
 
255 
		double *, int *, double *, int *);
 - 
 
256 
extern void
 - 
 
257 
F77_NAME(dtrmv)(char *, char *, char *, int *, double *, int *, double *,
 - 
 
258 
		int *);
 - 
 
259 
extern void
 - 
 
260 
F77_NAME(dtrsm)(char *, char *, char *, char *, int *, int *, double *,
 - 
 
261 
		double *, int *, double *, int *);
 - 
 
262 
extern void
 - 
 
263 
F77_NAME(dtrsv)(char *, char *, char *, int *, double *, int *, double *,
 - 
 
264 
		int *);
 - 
 
265 
extern int
 - 
 
266 
F77_NAME(idamax)(int *, double *, int *);
 - 
 
267 
extern int
 181 
extern int
268 
F77_NAME(lsame)(char *, char *);
 182 
F77_NAME(lsame)(char *, char *);
269 
 
 183 
 
270 
/*----*/
 184 
/*----*/
271 
void F77_NAME(ch2inv)(double *x, int *ldx, int *n, double *v, int *info);
 185 
void F77_NAME(ch2inv)(double *x, int *ldx, int *n, double *v, int *info);