The R Project SVN R

Rev

Rev 25290 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 25290 Rev 26797
1 
#ifndef R_LAPACK_MODULE_H
 1 
#ifndef R_LAPACK_MODULE_H
2 
#define R_LAPACK_MODULE_H
 2 
#define R_LAPACK_MODULE_H
3 
 
 3 
 
4 
#include <Rinternals.h>
 4 
#include <Rinternals.h>
5 
 
 5 
 
6 
typedef SEXP (*Rf_La_svd)(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u,
6 
typedef SEXP (*Rf_La_svd)(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u,
7 
			  SEXP v, SEXP method);
 7 
			  SEXP v, SEXP method);
8 
typedef SEXP (*Rf_La_rs)(SEXP x, SEXP only_values, SEXP method);
 8 
typedef SEXP (*Rf_La_rs)(SEXP x, SEXP only_values, SEXP method);
9 
typedef SEXP (*Rf_La_rg)(SEXP x, SEXP only_values);
 9 
typedef SEXP (*Rf_La_rg)(SEXP x, SEXP only_values);
10 
typedef SEXP (*Rf_La_zgesv)(SEXP A, SEXP B);
 10 
typedef SEXP (*Rf_La_zgesv)(SEXP A, SEXP B);
11 
typedef SEXP (*Rf_La_zgeqp3)(SEXP A);
 11 
typedef SEXP (*Rf_La_zgeqp3)(SEXP A);
12 
typedef SEXP (*Rf_qr_coef_cmplx)(SEXP Q, SEXP B);
 12 
typedef SEXP (*Rf_qr_coef_cmplx)(SEXP Q, SEXP B);
13 
typedef SEXP (*Rf_qr_qy_cmplx)(SEXP Q, SEXP B, SEXP trans);
 13 
typedef SEXP (*Rf_qr_qy_cmplx)(SEXP Q, SEXP B, SEXP trans);
14 
typedef SEXP (*Rf_La_svd_cmplx)(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u, SEXP v);
 14 
typedef SEXP (*Rf_La_svd_cmplx)(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u, SEXP v);
15 
typedef SEXP (*Rf_La_rs_complex)(SEXP x, SEXP only_values);
 15 
typedef SEXP (*Rf_La_rs_complex)(SEXP x, SEXP only_values);
16 
typedef SEXP (*Rf_La_rg_complex)(SEXP x, SEXP only_values);
 16 
typedef SEXP (*Rf_La_rg_complex)(SEXP x, SEXP only_values);
17 
typedef SEXP (*Rf_La_chol)(SEXP A);
 17 
typedef SEXP (*Rf_La_chol)(SEXP A);
18 
typedef SEXP (*Rf_La_chol2inv)(SEXP x, SEXP size);
 18 
typedef SEXP (*Rf_La_chol2inv)(SEXP x, SEXP size);
19 
typedef SEXP (*Rf_La_dgesv)(SEXP A, SEXP B);
 19 
typedef SEXP (*Rf_La_dgesv)(SEXP A, SEXP B, SEXP tol);
20 
typedef SEXP (*Rf_La_dgeqp3)(SEXP A);
 20 
typedef SEXP (*Rf_La_dgeqp3)(SEXP A);
21 
typedef SEXP (*Rf_qr_coef_real)(SEXP Q, SEXP B);
 21 
typedef SEXP (*Rf_qr_coef_real)(SEXP Q, SEXP B);
22 
typedef SEXP (*Rf_qr_qy_real)(SEXP Q, SEXP B, SEXP trans);
 22 
typedef SEXP (*Rf_qr_qy_real)(SEXP Q, SEXP B, SEXP trans);
23 
typedef SEXP (*Rf_det_ge_real)(SEXP A, SEXP logarithm);
 23 
typedef SEXP (*Rf_det_ge_real)(SEXP A, SEXP logarithm);
24 
 
 24 
 
25 
typedef struct {
 25 
typedef struct {
26 
    Rf_La_svd svd;
 26 
    Rf_La_svd svd;
27 
    Rf_La_rs  rs;
 27 
    Rf_La_rs  rs;
28 
    Rf_La_rg  rg;
 28 
    Rf_La_rg  rg;
29 
    Rf_La_zgesv zgesv;
 29 
    Rf_La_zgesv zgesv;
30 
    Rf_La_zgeqp3 zgeqp3;
 30 
    Rf_La_zgeqp3 zgeqp3;
31 
    Rf_qr_coef_cmplx qr_coef_cmplx;
 31 
    Rf_qr_coef_cmplx qr_coef_cmplx;
32 
    Rf_qr_qy_cmplx qr_qy_cmplx;
 32 
    Rf_qr_qy_cmplx qr_qy_cmplx;
33 
    Rf_La_svd_cmplx svd_cmplx;
 33 
    Rf_La_svd_cmplx svd_cmplx;
34 
    Rf_La_rs_complex rs_cmplx;
 34 
    Rf_La_rs_complex rs_cmplx;
35 
    Rf_La_rg_complex rg_cmplx;
 35 
    Rf_La_rg_complex rg_cmplx;
36 
    Rf_La_chol chol;
 36 
    Rf_La_chol chol;
37 
    Rf_La_chol2inv chol2inv;
 37 
    Rf_La_chol2inv chol2inv;
38 
    Rf_La_dgesv dgesv;
 38 
    Rf_La_dgesv dgesv;
39 
    Rf_La_dgeqp3 dgeqp3;
 39 
    Rf_La_dgeqp3 dgeqp3;
40 
    Rf_qr_coef_real qr_coef_real;
 40 
    Rf_qr_coef_real qr_coef_real;
41 
    Rf_qr_qy_real qr_qy_real;
 41 
    Rf_qr_qy_real qr_qy_real;
42 
    Rf_det_ge_real det_ge_real;
 42 
    Rf_det_ge_real det_ge_real;
43 
} R_LapackRoutines;
 43 
} R_LapackRoutines;
44 
 
 44 
 
45 
R_LapackRoutines *R_setLapackRoutines(R_LapackRoutines *routines);
 45 
R_LapackRoutines *R_setLapackRoutines(R_LapackRoutines *routines);
46 
 
 46 
 
47 
 
 47 
 
48 
#endif /* R_LAPACK_MODULE_H */
 48 
#endif /* R_LAPACK_MODULE_H */