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 #1632time-shift
parent
4aa4b7f25f
commit
dcac799289
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue