The R Project SVN R-packages

Rev

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

Rev 4969 Rev 4972
Line 49... Line 49...
49 
{
 49 
{
50 
    char typnm[] = {'\0', '\0'};
 50 
    char typnm[] = {'\0', '\0'};
51 
    int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym)), info;
 51 
    int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym)), info;
52 
    double rcond;
 52 
    double rcond;
53 
 
 53 
 
54 
    typnm[0] = rcond_type(CHAR(asChar(type)));
 54 
    typnm[0] = La_rcond_type(CHAR(asChar(type)));
55 
    F77_CALL(dtrcon)(typnm, uplo_P(obj), diag_P(obj), dims,
 55 
    F77_CALL(dtrcon)(typnm, uplo_P(obj), diag_P(obj), dims,
56 
		     REAL(GET_SLOT(obj, Matrix_xSym)), dims, &rcond,
 56 
		     REAL(GET_SLOT(obj, Matrix_xSym)), dims, &rcond,
57 
		     (double *) R_alloc(3*dims[0], sizeof(double)),
 57 
		     (double *) R_alloc(3*dims[0], sizeof(double)),
58 
		     (int *) R_alloc(dims[0], sizeof(int)), &info);
 58 
		     (int *) R_alloc(dims[0], sizeof(int)), &info);
59 
    return ScalarReal(rcond);
 59 
    return ScalarReal(rcond);