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 45... Line 45...
45 
    char typnm[] = {'\0', '\0'};
 45 
    char typnm[] = {'\0', '\0'};
46 
    int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym)), info;
 46 
    int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym)), info;
47 
    double anorm = get_norm_sy(obj, "O");
 47 
    double anorm = get_norm_sy(obj, "O");
48 
    double rcond;
 48 
    double rcond;
49 
 
 49 
 
50 
    typnm[0] = rcond_type(CHAR(asChar(type)));
 50 
    typnm[0] = La_rcond_type(CHAR(asChar(type)));
51 
    F77_CALL(dsycon)(uplo_P(trf), dims,
 51 
    F77_CALL(dsycon)(uplo_P(trf), dims,
52 
		     REAL   (GET_SLOT(trf, Matrix_xSym)), dims,
 52 
		     REAL   (GET_SLOT(trf, Matrix_xSym)), dims,
53 
		     INTEGER(GET_SLOT(trf, Matrix_permSym)),
 53 
		     INTEGER(GET_SLOT(trf, Matrix_permSym)),
54 
		     &anorm, &rcond,
 54 
		     &anorm, &rcond,
55 
		     (double *) R_alloc(2*dims[0], sizeof(double)),
 55 
		     (double *) R_alloc(2*dims[0], sizeof(double)),