◆ dlctes()

logical function dlctes	(	double precision	ZR,
		double precision	ZI,
		double precision	D
	)

DLCTES

Purpose:

 DLCTES returns .TRUE. if the eigenvalue (ZR/D) + sqrt(-1)*(ZI/D)
 is to be selected (specifically, in this subroutine, if the real
 part of the eigenvalue is negative), and otherwise it returns
 .FALSE..

 It is used by the test routine DDRGES to test whether the driver
 routine DGGES successfully sorts eigenvalues.

Parameters

[in]

ZR

          ZR is DOUBLE PRECISION
          The numerator of the real part of a complex eigenvalue
          (ZR/D) + i*(ZI/D).

[in]

ZI

          ZI is DOUBLE PRECISION
          The numerator of the imaginary part of a complex eigenvalue
          (ZR/D) + i*(ZI).

[in]

D

          D is DOUBLE PRECISION
          The denominator part of a complex eigenvalue
          (ZR/D) + i*(ZI/D).

Author: Univ. of Tennessee; Univ. of California Berkeley; Univ. of Colorado Denver; NAG Ltd.