Fix check for QZ eigenvalue criterium

The criterium was previously incorrectly applied to the square absolute value of
eigenvalues. Rather apply it to the absolute value itself (as done in
mjdgges.m and the AIM solver).

Closes #1632
time-shift
Sébastien Villemot 2019-01-02 16:36:23 +01:00
parent 4aa4b7f25f
commit dcac799289
No known key found for this signature in database
GPG Key ID: 2CECE9350ECEBE4A
1 changed files with 1 additions and 1 deletions

View File

@ -28,7 +28,7 @@ double criterium;
lapack_int
my_criteria(const double *alphar, const double *alphai, const double *beta)
{
return ((*alphar **alphar + *alphai **alphai) < criterium **beta **beta);
return ((*alphar **alphar + *alphai **alphai) < criterium * criterium **beta **beta);
}
void