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 43... Line 43...
43 
{
 43 
{
44 
    int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym)), info;
 44 
    int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym)), info;
45 
    char typnm[] = {'\0', '\0'};
 45 
    char typnm[] = {'\0', '\0'};
46 
    double rcond;
 46 
    double rcond;
47 
 
 47 
 
48 
    typnm[0] = rcond_type(CHAR(asChar(type)));
 48 
    typnm[0] = La_rcond_type(CHAR(asChar(type)));
49 
    F77_CALL(dtpcon)(typnm, uplo_P(obj), diag_P(obj), dims,
 49 
    F77_CALL(dtpcon)(typnm, uplo_P(obj), diag_P(obj), dims,
50 
		     REAL(GET_SLOT(obj, Matrix_xSym)), &rcond,
 50 
		     REAL(GET_SLOT(obj, Matrix_xSym)), &rcond,
51 
		     (double *) R_alloc(3*dims[0], sizeof(double)),
 51 
		     (double *) R_alloc(3*dims[0], sizeof(double)),
52 
		     (int *) R_alloc(dims[0], sizeof(int)), &info);
 52 
		     (int *) R_alloc(dims[0], sizeof(int)), &info);
53 
    return ScalarReal(rcond);
 53 
    return ScalarReal(rcond);