The R Project SVN R-packages

Rev

Rev 1820 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1820 Rev 1830
Line 18... Line 18...
18 
}
 18 
}
19 
 
 19 
 
20 
SEXP factor_prod(SEXP f1, SEXP f2)
 20 
SEXP factor_prod(SEXP f1, SEXP f2)
21 
{
 21 
{
22 
    SEXP ans = PROTECT(allocVector(VECSXP, 3));
 22 
    SEXP ans = PROTECT(allocVector(VECSXP, 3));
23 
    int *dims, n = LENGTH(f1), i, nl1, nl2, nmax, nnz, super;
 23 
    int *dims, n = LENGTH(f1), i, nl1, nl2, nmax, super;
24 
    cholmod_triplet *A;
 24 
    cholmod_triplet *A;
25 
    cholmod_sparse *B;
 25 
    cholmod_sparse *B;
26 
    cholmod_factor *F;
 26 
    cholmod_factor *F;
27 
 
 27 
 
28 
    if (!isFactor(f1) || !isFactor(f2) || LENGTH(f2) != n)
 28 
    if (!isFactor(f1) || !isFactor(f2) || LENGTH(f2) != n)