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 39... Line 39...
39 
    SEXP trf = dspMatrix_trf(obj);
 39 
    SEXP trf = dspMatrix_trf(obj);
40 
    char typnm[] = {'\0', '\0'};
 40 
    char typnm[] = {'\0', '\0'};
41 
    int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym)), info;
 41 
    int *dims = INTEGER(GET_SLOT(obj, Matrix_DimSym)), info;
42 
    double anorm = get_norm_sp(obj, "O"), rcond;
 42 
    double anorm = get_norm_sp(obj, "O"), rcond;
43 
 
 43 
 
44 
    typnm[0] = rcond_type(CHAR(asChar(type)));
 44 
    typnm[0] = La_rcond_type(CHAR(asChar(type)));
45 
    F77_CALL(dspcon)(uplo_P(trf), dims,
 45 
    F77_CALL(dspcon)(uplo_P(trf), dims,
46 
		     REAL   (GET_SLOT(trf, Matrix_xSym)),
 46 
		     REAL   (GET_SLOT(trf, Matrix_xSym)),
47 
		     INTEGER(GET_SLOT(trf, Matrix_permSym)),
 47 
		     INTEGER(GET_SLOT(trf, Matrix_permSym)),
48 
		     &anorm, &rcond,
 48 
		     &anorm, &rcond,
49 
		     (double *) R_alloc(2*dims[0], sizeof(double)),
 49 
		     (double *) R_alloc(2*dims[0], sizeof(double)),