SCM

SCM Repository

[matrix] Annotation of /pkg/src/init.c
ViewVC logotype

Annotation of /pkg/src/init.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 613 - (view) (download) (as text)

1 : bates 297 #include "Mutils.h"
2 : bates 485 #include "dense.h"
3 :     #include "dgBCMatrix.h"
4 : bates 478 #include "dgCMatrix.h"
5 : bates 485 #include "dgTMatrix.h"
6 : bates 478 #include "dgeMatrix.h"
7 :     #include "dpoMatrix.h"
8 :     #include "dsCMatrix.h"
9 : bates 557 #include "dsTMatrix.h"
10 : bates 478 #include "dsyMatrix.h"
11 : bates 485 #include "dtCMatrix.h"
12 : bates 546 #include "dtTMatrix.h"
13 : bates 478 #include "dtrMatrix.h"
14 : bates 591 #include "dtpMatrix.h"
15 : bates 485 #include "factorizations.h"
16 :     #include "lmer.h"
17 :     #include "sscCrosstab.h"
18 :     #include "ssclme.h"
19 : bates 297 #include <R_ext/Rdynload.h>
20 :    
21 : bates 329 #include "Syms.h"
22 : bates 297
23 :     static R_CallMethodDef CallEntries[] = {
24 : bates 488 {"Cholesky_validate", (DL_FUNC) &Cholesky_validate, 1},
25 :     {"LU_expand", (DL_FUNC) &LU_expand, 1},
26 :     {"LU_validate", (DL_FUNC) &LU_validate, 1},
27 :     {"SVD_validate", (DL_FUNC) &SVD_validate, 1},
28 : bates 297 {"csc_check_column_sorting", (DL_FUNC) &csc_check_column_sorting, 1},
29 :     {"csc_crossprod", (DL_FUNC) &csc_crossprod, 1},
30 : bates 488 {"csc_getDiag", (DL_FUNC) &csc_getDiag, 1},
31 : bates 297 {"csc_matrix_crossprod", (DL_FUNC) &csc_matrix_crossprod, 2},
32 : bates 488 {"csc_matrix_mm", (DL_FUNC) &csc_matrix_mm, 2},
33 : bates 478 {"csc_to_dgTMatrix", (DL_FUNC) &csc_to_dgTMatrix, 1},
34 : bates 488 {"csc_to_dgeMatrix", (DL_FUNC) &csc_to_dgeMatrix, 1},
35 : bates 297 {"csc_to_matrix", (DL_FUNC) &csc_to_matrix, 1},
36 :     {"csc_transpose", (DL_FUNC) &csc_transpose, 1},
37 : bates 488 {"dgCMatrix_validate", (DL_FUNC) &dgCMatrix_validate, 1},
38 : bates 485 {"dgBCMatrix_to_dgCMatrix", (DL_FUNC) &dgBCMatrix_to_dgCMatrix, 1},
39 : bates 536 {"dgBCMatrix_to_dgTMatrix", (DL_FUNC) &dgBCMatrix_to_dgTMatrix, 1},
40 : bates 488 {"dgBCMatrix_validate", (DL_FUNC) &dgBCMatrix_validate, 1},
41 :     {"dgTMatrix_to_csc", (DL_FUNC) &dgTMatrix_to_csc, 1},
42 :     {"dgTMatrix_to_dgCMatrix", (DL_FUNC) &dgTMatrix_to_dgCMatrix, 1},
43 :     {"dgTMatrix_to_dgeMatrix", (DL_FUNC) &dgTMatrix_to_dgeMatrix, 1},
44 :     {"dgTMatrix_to_matrix", (DL_FUNC) &dgTMatrix_to_matrix, 1},
45 :     {"dgTMatrix_validate", (DL_FUNC) &dgTMatrix_validate, 1},
46 :     {"dgeMatrix_LU", (DL_FUNC) &dgeMatrix_LU, 1},
47 : bates 495 {"dgeMatrix_Schur", (DL_FUNC) &dgeMatrix_Schur, 2},
48 : bates 478 {"dgeMatrix_crossprod", (DL_FUNC) &dgeMatrix_crossprod, 1},
49 : bates 488 {"dgeMatrix_determinant", (DL_FUNC) &dgeMatrix_determinant, 2},
50 : bates 478 {"dgeMatrix_dgeMatrix_crossprod", (DL_FUNC) &dgeMatrix_dgeMatrix_crossprod, 2},
51 : bates 488 {"dgeMatrix_dgeMatrix_mm", (DL_FUNC) &dgeMatrix_dgeMatrix_mm, 2},
52 :     {"dgeMatrix_exp", (DL_FUNC) &dgeMatrix_exp, 1},
53 :     {"dgeMatrix_getDiag", (DL_FUNC) &dgeMatrix_getDiag, 1},
54 : bates 478 {"dgeMatrix_matrix_crossprod", (DL_FUNC) &dgeMatrix_matrix_crossprod, 2},
55 : bates 488 {"dgeMatrix_norm", (DL_FUNC) &dgeMatrix_norm, 2},
56 :     {"dgeMatrix_rcond", (DL_FUNC) &dgeMatrix_rcond, 2},
57 : bates 478 {"dgeMatrix_solve", (DL_FUNC) &dgeMatrix_solve, 1},
58 : bates 488 {"dgeMatrix_validate", (DL_FUNC) &dgeMatrix_validate, 1},
59 :     {"dpoMatrix_chol", (DL_FUNC) &dpoMatrix_chol, 1},
60 :     {"dpoMatrix_dgeMatrix_solve", (DL_FUNC) &dpoMatrix_dgeMatrix_solve, 2},
61 :     {"dpoMatrix_matrix_solve", (DL_FUNC) &dpoMatrix_matrix_solve, 2},
62 :     {"dpoMatrix_rcond", (DL_FUNC) &dpoMatrix_rcond, 2},
63 :     {"dpoMatrix_solve", (DL_FUNC) &dpoMatrix_solve, 1},
64 :     {"dpoMatrix_validate", (DL_FUNC) &dpoMatrix_validate, 1},
65 :     {"dsCMatrix_chol", (DL_FUNC) &dsCMatrix_chol, 2},
66 :     {"dsCMatrix_inverse_factor", (DL_FUNC) &dsCMatrix_inverse_factor, 1},
67 :     {"dsCMatrix_ldl_symbolic", (DL_FUNC) &dsCMatrix_ldl_symbolic, 2},
68 :     {"dsCMatrix_matrix_solve", (DL_FUNC) &dsCMatrix_matrix_solve, 2},
69 :     {"dsCMatrix_to_dgTMatrix", (DL_FUNC) &dsCMatrix_to_dgTMatrix, 1},
70 :     {"dsCMatrix_validate", (DL_FUNC) &dsCMatrix_validate, 1},
71 : bates 557 {"dsTMatrix_validate", (DL_FUNC) &dsTMatrix_validate, 1},
72 : bates 587 {"dsTMatrix_as_dsCMatrix", (DL_FUNC) &dsTMatrix_as_dsCMatrix, 1},
73 : bates 557 {"dsTMatrix_as_dsyMatrix", (DL_FUNC) &dsTMatrix_as_dsyMatrix, 1},
74 : bates 488 {"dsyMatrix_as_dgeMatrix", (DL_FUNC) &dsyMatrix_as_dgeMatrix, 1},
75 :     {"dsyMatrix_as_matrix", (DL_FUNC) &dsyMatrix_as_matrix, 1},
76 :     {"dsyMatrix_dgeMatrix_mm", (DL_FUNC) &dsyMatrix_dgeMatrix_mm, 2},
77 :     {"dsyMatrix_dgeMatrix_mm_R", (DL_FUNC) &dsyMatrix_dgeMatrix_mm_R, 2},
78 :     {"dsyMatrix_matrix_solve", (DL_FUNC) &dsyMatrix_matrix_solve, 2},
79 :     {"dsyMatrix_norm", (DL_FUNC) &dsyMatrix_norm, 2},
80 :     {"dsyMatrix_rcond", (DL_FUNC) &dsyMatrix_rcond, 2},
81 :     {"dsyMatrix_solve", (DL_FUNC) &dsyMatrix_solve, 1},
82 :     {"dsyMatrix_validate", (DL_FUNC) &dsyMatrix_validate, 1},
83 : bates 546 {"dtTMatrix_as_dtrMatrix", (DL_FUNC) &dtTMatrix_as_dtrMatrix, 1},
84 :     {"dtTMatrix_validate", (DL_FUNC) &dtTMatrix_validate, 1},
85 : bates 488 {"dtrMatrix_as_dgeMatrix", (DL_FUNC) &dtrMatrix_as_dgeMatrix, 1},
86 : bates 591 {"dtrMatrix_as_dtpMatrix", (DL_FUNC) &dtrMatrix_as_dtpMatrix, 1},
87 : bates 488 {"dtrMatrix_as_matrix", (DL_FUNC) &dtrMatrix_as_matrix, 1},
88 :     {"dtrMatrix_dgeMatrix_mm", (DL_FUNC) &dtrMatrix_dgeMatrix_mm, 2},
89 :     {"dtrMatrix_dgeMatrix_mm_R", (DL_FUNC) &dtrMatrix_dgeMatrix_mm_R, 2},
90 :     {"dtrMatrix_getDiag", (DL_FUNC) &dtrMatrix_getDiag, 1},
91 :     {"dtrMatrix_matrix_solve", (DL_FUNC) &dtrMatrix_matrix_solve, 2},
92 :     {"dtrMatrix_norm", (DL_FUNC) &dtrMatrix_norm, 2},
93 :     {"dtrMatrix_rcond", (DL_FUNC) &dtrMatrix_rcond, 2},
94 :     {"dtrMatrix_solve", (DL_FUNC) &dtrMatrix_solve, 1},
95 :     {"dtrMatrix_validate", (DL_FUNC) &dtrMatrix_validate, 1},
96 : bates 591 {"dtpMatrix_as_dtrMatrix", (DL_FUNC) &dtpMatrix_as_dtrMatrix, 1},
97 :     {"dtpMatrix_matrix_solve", (DL_FUNC) &dtpMatrix_matrix_solve, 2},
98 : bates 603 {"dtpMatrix_matrix_mm", (DL_FUNC) &dtpMatrix_matrix_mm, 2},
99 :     {"dtpMatrix_dgeMatrix_mm", (DL_FUNC) &dtpMatrix_dgeMatrix_mm, 2},
100 : bates 591 {"dtpMatrix_norm", (DL_FUNC) &dtpMatrix_norm, 2},
101 :     {"dtpMatrix_rcond", (DL_FUNC) &dtpMatrix_rcond, 2},
102 : bates 597 {"dtpMatrix_getDiag", (DL_FUNC) &dtpMatrix_getDiag, 1},
103 : bates 591 {"dtpMatrix_solve", (DL_FUNC) &dtpMatrix_solve, 1},
104 :     {"dtpMatrix_validate", (DL_FUNC) &dtpMatrix_validate, 1},
105 : bates 488 {"lapack_qr", (DL_FUNC) &lapack_qr, 2},
106 :     {"lmer_Crosstab", (DL_FUNC) &lmer_Crosstab, 1},
107 :     {"lmer_ECMEsteps", (DL_FUNC) &lmer_ECMEsteps, 4},
108 :     {"lmer_coef", (DL_FUNC) &lmer_coef, 2},
109 :     {"lmer_coefGets", (DL_FUNC) &lmer_coefGets, 3},
110 : bates 410 {"lmer_create", (DL_FUNC) &lmer_create, 2},
111 : bates 488 {"lmer_factor", (DL_FUNC) &lmer_factor, 1},
112 : bates 536 {"lmer_firstDer", (DL_FUNC) &lmer_firstDer, 2},
113 : bates 488 {"lmer_fixef", (DL_FUNC) &lmer_fixef, 1},
114 :     {"lmer_gradient", (DL_FUNC) &lmer_gradient, 3},
115 : bates 543 {"lmer_inflate", (DL_FUNC) &lmer_inflate, 1},
116 : bates 415 {"lmer_initial", (DL_FUNC) &lmer_initial, 1},
117 :     {"lmer_invert", (DL_FUNC) &lmer_invert, 1},
118 : bates 488 {"lmer_ranef", (DL_FUNC) &lmer_ranef, 1},
119 : bates 415 {"lmer_sigma", (DL_FUNC) &lmer_sigma, 2},
120 : bates 488 {"lmer_update_mm", (DL_FUNC) &lmer_update_mm, 3},
121 :     {"lmer_validate", (DL_FUNC) &lmer_validate, 1},
122 : bates 415 {"lmer_variances", (DL_FUNC) &lmer_variances, 1},
123 : bates 488 {"lsq_dense_Chol", (DL_FUNC) &lsq_dense_Chol, 2},
124 :     {"lsq_dense_QR", (DL_FUNC) &lsq_dense_QR, 2},
125 :     {"matrix_to_csc", (DL_FUNC) &matrix_to_csc, 1},
126 :     {"nlme_replaceSlot", (DL_FUNC) &nlme_replaceSlot, 3},
127 :     {"nlme_weight_matrix_list", (DL_FUNC) &nlme_weight_matrix_list, 4},
128 : bates 297 {"sscCrosstab", (DL_FUNC) &sscCrosstab, 2},
129 :     {"sscCrosstab_groupedPerm", (DL_FUNC) &sscCrosstab_groupedPerm, 1},
130 :     {"sscCrosstab_project2", (DL_FUNC) &sscCrosstab_project2, 1},
131 :     {"ssc_transpose", (DL_FUNC) &ssc_transpose, 1},
132 : bates 488 {"ssclme_EMsteps", (DL_FUNC) &ssclme_EMsteps, 4},
133 :     {"ssclme_Hessian", (DL_FUNC) &ssclme_Hessian, 3},
134 :     {"ssclme_coef", (DL_FUNC) &ssclme_coef, 2},
135 :     {"ssclme_coefGets", (DL_FUNC) &ssclme_coefGets, 3},
136 :     {"ssclme_coefGetsUnc", (DL_FUNC) &ssclme_coefGetsUnc, 2},
137 :     {"ssclme_coefUnc", (DL_FUNC) &ssclme_coefUnc, 1},
138 :     {"ssclme_collapse", (DL_FUNC) &ssclme_collapse, 1},
139 : bates 297 {"ssclme_create", (DL_FUNC) &ssclme_create, 2},
140 : bates 488 {"ssclme_factor", (DL_FUNC) &ssclme_factor, 1},
141 :     {"ssclme_fitted", (DL_FUNC) &ssclme_fitted, 4},
142 :     {"ssclme_fixef", (DL_FUNC) &ssclme_fixef, 1},
143 :     {"ssclme_grad", (DL_FUNC) &ssclme_grad, 4},
144 :     {"ssclme_gradient", (DL_FUNC) &ssclme_gradient, 3},
145 : bates 297 {"ssclme_inflate_and_factor", (DL_FUNC) &ssclme_inflate_and_factor, 1},
146 : bates 488 {"ssclme_initial", (DL_FUNC) &ssclme_initial, 1},
147 : bates 297 {"ssclme_invert", (DL_FUNC) &ssclme_invert, 1},
148 :     {"ssclme_ranef", (DL_FUNC) &ssclme_ranef, 1},
149 :     {"ssclme_sigma", (DL_FUNC) &ssclme_sigma, 2},
150 : bates 488 {"ssclme_to_lme", (DL_FUNC) &ssclme_to_lme, 10},
151 :     {"ssclme_transfer_dimnames", (DL_FUNC) &ssclme_transfer_dimnames, 3},
152 :     {"ssclme_update_mm", (DL_FUNC) &ssclme_update_mm, 3},
153 : bates 297 {"ssclme_variances", (DL_FUNC) &ssclme_variances, 1},
154 : bates 488 {"tsc_to_dgTMatrix", (DL_FUNC) &tsc_to_dgTMatrix, 1},
155 :     {"tsc_transpose", (DL_FUNC) &tsc_transpose, 1},
156 : bates 297 {"tsc_validate", (DL_FUNC) &tsc_validate, 1},
157 :     {NULL, NULL, 0}
158 :     };
159 :    
160 :     void R_init_Matrix(DllInfo *dll)
161 :     {
162 : bates 410 R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
163 : bates 297 R_useDynamicSymbols(dll, FALSE);
164 : bates 410 Matrix_DIsqrtSym = install("DIsqrt");
165 : bates 297 Matrix_DSym = install("D");
166 :     Matrix_DimSym = install("Dim");
167 : maechler 613 Matrix_DimNamesSym = install("Dimnames");
168 : bates 297 Matrix_GpSym = install("Gp");
169 :     Matrix_LSym = install("L");
170 :     Matrix_LiSym = install("Li");
171 :     Matrix_LinvSym = install("Linv");
172 :     Matrix_LpSym = install("Lp");
173 :     Matrix_LxSym = install("Lx");
174 :     Matrix_OmegaSym = install("Omega");
175 :     Matrix_ParentSym = install("Parent");
176 :     Matrix_RXXSym = install("RXX");
177 :     Matrix_RZXSym = install("RZX");
178 :     Matrix_XtXSym = install("XtX");
179 : bates 410 Matrix_ZZxSym = install("ZZx");
180 :     Matrix_ZZpOSym = install("ZZpO");
181 : bates 297 Matrix_ZtXSym = install("ZtX");
182 : bates 410 Matrix_ZtZSym = install("ZtZ");
183 : bates 297 Matrix_bVarSym = install("bVar");
184 :     Matrix_cnamesSym = install("cnames");
185 : bates 410 Matrix_devCompSym = install("devComp");
186 : bates 297 Matrix_devianceSym = install("deviance");
187 :     Matrix_diagSym = install("diag");
188 : bates 476 Matrix_factorSym = install("factors");
189 : bates 410 Matrix_flistSym = install("flist");
190 : bates 297 Matrix_iSym = install("i");
191 :     Matrix_ipermSym = install("iperm");
192 :     Matrix_jSym = install("j");
193 :     Matrix_matSym = install("mat");
194 :     Matrix_ncSym = install("nc");
195 :     Matrix_pSym = install("p");
196 :     Matrix_permSym = install("perm");
197 : bates 329 Matrix_rcondSym = install("rcond");
198 : bates 297 Matrix_statusSym = install("status");
199 :     Matrix_uploSym = install("uplo");
200 :     Matrix_xSym = install("x");
201 :     Matrix_zSym = install("z");
202 :     }

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge