The R Project SVN R

Rev

Rev 25290 | Rev 32487 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 25290 Rev 26797
Line 38... Line 38...
38 
SEXP La_svd_cmplx(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u, SEXP v)
 38 
SEXP La_svd_cmplx(SEXP jobu, SEXP jobv, SEXP x, SEXP s, SEXP u, SEXP v)
39 
SEXP La_rs_complex(SEXP x, SEXP only_values)
 39 
SEXP La_rs_complex(SEXP x, SEXP only_values)
40 
SEXP La_rg_complex(SEXP x, SEXP only_values)
 40 
SEXP La_rg_complex(SEXP x, SEXP only_values)
41 
SEXP La_chol (SEXP A)
 41 
SEXP La_chol (SEXP A)
42 
SEXP La_chol2inv (SEXP x, SEXP size)
 42 
SEXP La_chol2inv (SEXP x, SEXP size)
43 
SEXP La_dgesv(SEXP A, SEXP B)
 43 
SEXP La_dgesv(SEXP A, SEXP B, SEXP tol)
44 
SEXP La_dgeqp3(SEXP A)
 44 
SEXP La_dgeqp3(SEXP A)
45 
SEXP qr_coef_real(SEXP Q, SEXP B)
 45 
SEXP qr_coef_real(SEXP Q, SEXP B)
46 
SEXP qr_qy_real(SEXP Q, SEXP B, SEXP trans)
 46 
SEXP qr_qy_real(SEXP Q, SEXP B, SEXP trans)
47 
SEXP det_ge_real(SEXP A, SEXP logarithm)
 47 
SEXP det_ge_real(SEXP A, SEXP logarithm)
48 
*/
 48 
*/
Line 189... Line 189...
189 
	error("lapack routines cannot be loaded");
 189 
	error("lapack routines cannot be loaded");
190 
	return R_NilValue;
 190 
	return R_NilValue;
191 
    }
 191 
    }
192 
}
 192 
}
193 
 
 193 
 
194 
SEXP La_dgesv(SEXP A, SEXP B)
 194 
SEXP La_dgesv(SEXP A, SEXP B, SEXP tol)
195 
{
 195 
{
196 
    if(!initialized) La_Init();
 196 
    if(!initialized) La_Init();
197 
    if(initialized > 0)
 197 
    if(initialized > 0)
198 
	return (*ptr->dgesv)(A, B);
 198 
	return (*ptr->dgesv)(A, B, tol);
199 
    else {
 199 
    else {
200 
	error("lapack routines cannot be loaded");
 200 
	error("lapack routines cannot be loaded");
201 
	return R_NilValue;
 201 
	return R_NilValue;
202 
    }
 202 
    }
203 
}
 203 
}