|
1 | 1 | /* |
2 | 2 | * R : A Computer Language for Statistical Data Analysis |
3 | | - * Copyright (C) 2001--2025 The R Core Team. |
| 3 | + * Copyright (C) 2001--2023 The R Core Team. |
4 | 4 | * Copyright (C) 2003--2010 The R Foundation |
5 | 5 | * |
6 | 6 | * This program is free software; you can redistribute it and/or modify |
@@ -263,7 +263,7 @@ static SEXP unscramble(const double* imaginary, int n, |
263 | 263 | /* Real, general case of eigen */ |
264 | 264 | static SEXP La_rg(SEXP x, SEXP only_values) |
265 | 265 | { |
266 | | - bool vectors, complexValues; |
| 266 | + Rboolean vectors, complexValues; |
267 | 267 | int i, n, lwork, info, *xdims, ov; |
268 | 268 | double *work, *wR, *wI, *left, *right, *xvals, tmp; |
269 | 269 | char jobVL[2] = "N", jobVR[2] = "N"; |
@@ -306,11 +306,11 @@ static SEXP La_rg(SEXP x, SEXP only_values) |
306 | 306 | if (info != 0) |
307 | 307 | error(_("error code %d from Lapack routine '%s'"), info, "dgeev"); |
308 | 308 |
|
309 | | - complexValues = false; |
| 309 | + complexValues = FALSE; |
310 | 310 | for (i = 0; i < n; i++) |
311 | 311 | /* This test used to be !=0 for R < 2.3.0. This is OK for 0+0i */ |
312 | 312 | if (fabs(wI[i]) > 10 * R_AccuracyInfo.eps * fabs(wR[i])) { |
313 | | - complexValues = true; |
| 313 | + complexValues = TRUE; |
314 | 314 | break; |
315 | 315 | } |
316 | 316 | SEXP ret = PROTECT(allocVector(VECSXP, 2)); |
|
0 commit comments