SCM

SCM Repository

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

Diff of /pkg/src/dsCMatrix.c

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

revision 366, Sun Dec 5 13:49:51 2004 UTC revision 476, Wed Feb 2 11:51:24 2005 UTC
# Line 83  Line 83 
83          Free(Pinv); Free(Ax); Free(Ai); Free(Ap);          Free(Pinv); Free(Ax); Free(Ai); Free(Ap);
84      }      }
85      UNPROTECT(lo ? 2 : 1);      UNPROTECT(lo ? 2 : 1);
86      return set_factorization(xorig, val, "Cholesky");      return set_factors(xorig, val, "Cholesky");
87  }  }
88    
89  SEXP sscMatrix_matrix_solve(SEXP a, SEXP b)  SEXP sscMatrix_matrix_solve(SEXP a, SEXP b)
90  {  {
91      SEXP Chol = get_factorization(a, "Cholesky"), perm,      SEXP Chol = get_factors(a, "Cholesky"), perm,
92          val = PROTECT(duplicate(b));          val = PROTECT(duplicate(b));
93      int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),      int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),
94          *bdims = INTEGER(getAttrib(b, R_DimSymbol)),          *bdims = INTEGER(getAttrib(b, R_DimSymbol)),

Legend:
Removed from v.366  
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