The R Project SVN R-packages

Rev

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

Rev 3454 Rev 3484
Line 66... Line 66...
66 
		     REAL(GET_SLOT(val, Matrix_xSym)), &info);
 66 
		     REAL(GET_SLOT(val, Matrix_xSym)), &info);
67 
    UNPROTECT(1);
 67 
    UNPROTECT(1);
68 
    return val;
 68 
    return val;
69 
}
 69 
}
70 
 
 70 
 
71 
SEXP dppMatrix_matrix_solve(SEXP a, SEXP b, SEXP classed)
 71 
SEXP dppMatrix_matrix_solve(SEXP a, SEXP b)
72 
{
 72 
{
73 
    SEXP val = PROTECT(dup_mMatrix_as_dgeMatrix(b, classed));
 73 
    SEXP val = PROTECT(dup_mMatrix_as_dgeMatrix(b));
74 
    SEXP Chol = dppMatrix_chol(a);
 74 
    SEXP Chol = dppMatrix_chol(a);
75 
    int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),
 75 
    int *adims = INTEGER(GET_SLOT(a, Matrix_DimSym)),
76 
	*bdims = INTEGER(GET_SLOT(val, Matrix_DimSym));
 76 
	*bdims = INTEGER(GET_SLOT(val, Matrix_DimSym));
77 
    int n = bdims[0], nrhs = bdims[1], info;
 77 
    int n = bdims[0], nrhs = bdims[1], info;
78 
 
 78