The R Project SVN R

Rev

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

Rev 59039 Rev 60413
Line 22... Line 22...
22 
#ifndef R_LAPACK_MODULE_H
 22 
#ifndef R_LAPACK_MODULE_H
23 
#define R_LAPACK_MODULE_H
 23 
#define R_LAPACK_MODULE_H
24 
 
 24 
 
25 
#include <Rinternals.h>
 25 
#include <Rinternals.h>
26 
 
 26 
 
27 
typedef SEXP (*Rf_La_svd)(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u,
 - 
 
28 
			  SEXP v, SEXP method);
 - 
 
29 
typedef SEXP (*Rf_La_rs)(SEXP x, SEXP only_values);
 - 
 
30 
typedef SEXP (*Rf_La_rg)(SEXP x, SEXP only_values);
 - 
 
31 
typedef SEXP (*Rf_La_dlange)(SEXP A, SEXP type);
 - 
 
32 
typedef SEXP (*Rf_La_dtrcon)(SEXP A, SEXP norm);
 - 
 
33 
typedef SEXP (*Rf_La_dgecon)(SEXP A, SEXP norm);
 - 
 
34 
typedef SEXP (*Rf_La_zgecon)(SEXP A, SEXP norm);
 - 
 
35 
typedef SEXP (*Rf_La_ztrcon)(SEXP A, SEXP norm);
 - 
 
36 
typedef SEXP (*Rf_La_zgesv)(SEXP A, SEXP B);
 - 
 
37 
typedef SEXP (*Rf_La_zgeqp3)(SEXP A);
 - 
 
38 
typedef SEXP (*Rf_qr_coef_cmplx)(SEXP Q, SEXP B);
 - 
 
39 
typedef SEXP (*Rf_qr_qy_cmplx)(SEXP Q, SEXP B, SEXP trans);
 - 
 
40 
typedef SEXP (*Rf_La_svd_cmplx)(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u, SEXP v);
 - 
 
41 
typedef SEXP (*Rf_La_rs_complex)(SEXP x, SEXP only_values);
 - 
 
42 
typedef SEXP (*Rf_La_rg_complex)(SEXP x, SEXP only_values);
 - 
 
43 
typedef SEXP (*Rf_La_chol)(SEXP A);
 - 
 
44 
typedef SEXP (*Rf_La_chol2inv)(SEXP x, SEXP size);
 - 
 
45 
typedef SEXP (*Rf_La_dgesv)(SEXP A, SEXP B, SEXP tol);
 27 
typedef SEXP (*Rf_do_lapack)(SEXP, SEXP, SEXP, SEXP);
46 
typedef SEXP (*Rf_La_dgeqp3)(SEXP A);
 - 
 
47 
typedef SEXP (*Rf_qr_coef_real)(SEXP Q, SEXP B);
 - 
 
48 
typedef SEXP (*Rf_qr_qy_real)(SEXP Q, SEXP B, SEXP trans);
 - 
 
49 
typedef SEXP (*Rf_det_ge_real)(SEXP A, SEXP logarithm);
 - 
 
50 
 
 28 
 
51 
typedef struct {
 29 
typedef struct {
52 
    Rf_La_svd svd;
 - 
 
53 
    Rf_La_rs  rs;
 - 
 
54 
    Rf_La_rg  rg;
 - 
 
55 
    Rf_La_dlange dlange;
 30 
    Rf_do_lapack do_lapack;
56 
    Rf_La_dgecon dgecon;
 - 
 
57 
    Rf_La_dtrcon dtrcon;
 - 
 
58 
    Rf_La_zgecon zgecon;
 - 
 
59 
    Rf_La_ztrcon ztrcon;
 - 
 
60 
    Rf_La_zgesv zgesv;
 - 
 
61 
    Rf_La_zgeqp3 zgeqp3;
 - 
 
62 
    Rf_qr_coef_cmplx qr_coef_cmplx;
 - 
 
63 
    Rf_qr_qy_cmplx qr_qy_cmplx;
 - 
 
64 
    Rf_La_svd_cmplx svd_cmplx;
 - 
 
65 
    Rf_La_rs_complex rs_cmplx;
 - 
 
66 
    Rf_La_rg_complex rg_cmplx;
 - 
 
67 
    Rf_La_chol chol;
 - 
 
68 
    Rf_La_chol2inv chol2inv;
 - 
 
69 
    Rf_La_dgesv dgesv;
 - 
 
70 
    Rf_La_dgeqp3 dgeqp3;
 - 
 
71 
    Rf_qr_coef_real qr_coef_real;
 - 
 
72 
    Rf_qr_qy_real qr_qy_real;
 - 
 
73 
    Rf_det_ge_real det_ge_real;
 - 
 
74 
} R_LapackRoutines;
 31 
} R_LapackRoutines;
75 
 
 32 
 
76 
R_LapackRoutines *R_setLapackRoutines(R_LapackRoutines *routines);
 33 
R_LapackRoutines *R_setLapackRoutines(R_LapackRoutines *routines);
77 
 
 34 
 
78 
 
 35