SCM

SCM Repository

[matrix] Diff of /pkg/src/LU.c
ViewVC logotype

Diff of /pkg/src/LU.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 475, Tue Feb 1 14:44:06 2005 UTC revision 476, Wed Feb 2 11:51:24 2005 UTC
# Line 20  Line 20 
20      SET_SLOT(L, Matrix_uploSym, ScalarString(mkChar("L")));      SET_SLOT(L, Matrix_uploSym, ScalarString(mkChar("L")));
21      SET_SLOT(L, Matrix_diagSym, ScalarString(mkChar("U")));      SET_SLOT(L, Matrix_diagSym, ScalarString(mkChar("U")));
22      SET_SLOT(L, Matrix_rcondSym, allocVector(REALSXP, 0));      SET_SLOT(L, Matrix_rcondSym, allocVector(REALSXP, 0));
23      SET_SLOT(L, Matrix_factorization, allocVector(VECSXP, 0));      SET_SLOT(L, Matrix_factorSym, allocVector(VECSXP, 0));
24      make_array_triangular(REAL(GET_SLOT(L, Matrix_xSym)), L);      make_array_triangular(REAL(GET_SLOT(L, Matrix_xSym)), L);
25      SET_SLOT(U, Matrix_xSym, duplicate(lux));      SET_SLOT(U, Matrix_xSym, duplicate(lux));
26      SET_SLOT(U, Matrix_DimSym, dd);      SET_SLOT(U, Matrix_DimSym, dd);
27      SET_SLOT(U, Matrix_uploSym, ScalarString(mkChar("U")));      SET_SLOT(U, Matrix_uploSym, ScalarString(mkChar("U")));
28      SET_SLOT(U, Matrix_diagSym, ScalarString(mkChar("N")));      SET_SLOT(U, Matrix_diagSym, ScalarString(mkChar("N")));
29      SET_SLOT(U, Matrix_rcondSym, allocVector(REALSXP, 0));      SET_SLOT(U, Matrix_rcondSym, allocVector(REALSXP, 0));
30      SET_SLOT(U, Matrix_factorization, allocVector(VECSXP, 0));      SET_SLOT(U, Matrix_factorSym, allocVector(VECSXP, 0));
31      make_array_triangular(REAL(GET_SLOT(U, Matrix_xSym)), U);      make_array_triangular(REAL(GET_SLOT(U, Matrix_xSym)), U);
32      UNPROTECT(4);      UNPROTECT(4);
33      return val;      return val;

Legend:
Removed from v.475  
changed lines
  Added in v.476

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