SCM

SCM Repository

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

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

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

revision 1230, Thu Mar 16 20:03:41 2006 UTC revision 1867, Mon Jun 4 17:13:02 2007 UTC
# Line 18  Line 18 
18      SEXP val = get_factors(x, "Cholesky"),      SEXP val = get_factors(x, "Cholesky"),
19          dimP = GET_SLOT(x, Matrix_DimSym),          dimP = GET_SLOT(x, Matrix_DimSym),
20          uploP = GET_SLOT(x, Matrix_uploSym);          uploP = GET_SLOT(x, Matrix_uploSym);
21      char *uplo = CHAR(STRING_ELT(uploP, 0));      const char *uplo = CHAR(STRING_ELT(uploP, 0));
22      int *dims = INTEGER(dimP), info;      int *dims = INTEGER(dimP), info;
23      int n = dims[0];      int n = dims[0];
24      double *vx;      double *vx;
# Line 49  Line 49 
49  SEXP dpoMatrix_rcond(SEXP obj, SEXP type)  SEXP dpoMatrix_rcond(SEXP obj, SEXP type)
50  {  {
51      SEXP Chol = dpoMatrix_chol(obj);      SEXP Chol = dpoMatrix_chol(obj);
52      char typnm[] = {'O', '\0'}; /* always use the one norm */      const char typnm[] = {'O', '\0'};   /* always use the one norm */
53      int *dims = INTEGER(GET_SLOT(Chol, Matrix_DimSym)), info;      int *dims = INTEGER(GET_SLOT(Chol, Matrix_DimSym)), info;
54      double anorm = get_norm_sy(obj, typnm), rcond;      double anorm = get_norm_sy(obj, typnm), rcond;
55    

Legend:
Removed from v.1230  
changed lines
  Added in v.1867

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