LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 All Files Functions Typedefs Macros
sslect.f File Reference

Go to the source code of this file.

Functions/Subroutines

logical function sslect (ZR, ZI)
 SSLECT More...
 

Function/Subroutine Documentation

logical function sslect ( real  ZR,
real  ZI 
)

SSLECT

Purpose:
 SSLECT returns .TRUE. if the eigenvalue ZR+sqrt(-1)*ZI is to be
 selected, and otherwise it returns .FALSE.
 It is used by SCHK41 to test if SGEES succesfully sorts eigenvalues,
 and by SCHK43 to test if SGEESX succesfully sorts eigenvalues.

 The common block /SSLCT/ controls how eigenvalues are selected.
 If SELOPT = 0, then SSLECT return .TRUE. when ZR is less than zero,
 and .FALSE. otherwise.
 If SELOPT is at least 1, SSLECT returns SELVAL(SELOPT) and adds 1
 to SELOPT, cycling back to 1 at SELMAX.
Parameters
[in]ZR
          ZR is REAL
          The real part of a complex eigenvalue ZR + i*ZI.
[in]ZI
          ZI is REAL
          The imaginary part of a complex eigenvalue ZR + i*ZI.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2011

Definition at line 63 of file sslect.f.