The R Project SVN R-packages

Rev

Rev 1539 | Rev 1786 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1539 Rev 1574
Line 21... Line 21...
21 
	*Lp, *Parent, info,
 21 
	*Lp, *Parent, info,
22 
	lo = CHAR(asChar(GET_SLOT(x, Matrix_uploSym)))[0] == 'L',
 22 
	lo = CHAR(asChar(GET_SLOT(x, Matrix_uploSym)))[0] == 'L',
23 
	n = length(pSlot)-1,
 23 
	n = length(pSlot)-1,
24 
	nnz, piv = asLogical(pivot);
 24 
	nnz, piv = asLogical(pivot);
25 
    SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS("dCholCMatrix")));
 25 
    SEXP val = PROTECT(NEW_OBJECT(MAKE_CLASS("dCholCMatrix")));
26 
    int *P, *Pinv;
 26 
    int *P, *Pinv = (int *) NULL;
27 
    double *Ax;
 27 
    double *Ax;
28 
 
 28 
 
29 
    /* FIXME: Check if there is a Cholesky factorization.  If yes,
 29 
    /* FIXME: Check if there is a Cholesky factorization.  If yes,
30 
       check if the permutation status matches that of the call.  If
 30 
       check if the permutation status matches that of the call.  If
31 
       so, return it. */
 31 
       so, return it. */