SCM

SCM Repository

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

Diff of /pkg/Matrix/src/factorizations.c

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

revision 1196, Sun Jan 22 14:52:05 2006 UTC revision 1200, Mon Jan 23 16:01:20 2006 UTC
# Line 49  Line 49 
49      SET_SLOT(L, Matrix_DimSym, duplicate(dd));      SET_SLOT(L, Matrix_DimSym, duplicate(dd));
50      SET_SLOT(L, Matrix_uploSym, mkString("L"));      SET_SLOT(L, Matrix_uploSym, mkString("L"));
51      SET_SLOT(L, Matrix_diagSym, mkString("U"));      SET_SLOT(L, Matrix_diagSym, mkString("U"));
52      make_array_triangular(REAL(GET_SLOT(L, Matrix_xSym)), L);      make_d_matrix_triangular(REAL(GET_SLOT(L, Matrix_xSym)), L);
53      SET_SLOT(U, Matrix_xSym, duplicate(lux));      SET_SLOT(U, Matrix_xSym, duplicate(lux));
54      SET_SLOT(U, Matrix_DimSym, duplicate(dd));      SET_SLOT(U, Matrix_DimSym, duplicate(dd));
55      SET_SLOT(U, Matrix_uploSym, mkString("U"));      SET_SLOT(U, Matrix_uploSym, mkString("U"));
56      SET_SLOT(U, Matrix_diagSym, mkString("N"));      SET_SLOT(U, Matrix_diagSym, mkString("N"));
57      make_array_triangular(REAL(GET_SLOT(U, Matrix_xSym)), U);      make_d_matrix_triangular(REAL(GET_SLOT(U, Matrix_xSym)), U);
58      SET_SLOT(P, Matrix_DimSym, duplicate(dd));      SET_SLOT(P, Matrix_DimSym, duplicate(dd));
59      iperm = Calloc(n, int);      iperm = Calloc(n, int);
60      perm = INTEGER(ALLOC_SLOT(P, Matrix_permSym, INTSXP, n));      perm = INTEGER(ALLOC_SLOT(P, Matrix_permSym, INTSXP, n));

Legend:
Removed from v.1196  
changed lines
  Added in v.1200

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