logical function cgennd	(	integer	M,
		integer	N,
		complex, dimension( lda, * )	A,
		integer	LDA
	)

CGENND

Purpose:

    CGENND tests that its argument has a real, non-negative diagonal.

Parameters

[in]	M	M is INTEGER The number of rows in A.
[in]	N	N is INTEGER The number of columns in A.
[in]	A	A is COMPLEX array, dimension (LDA, N) The matrix.
[in]	LDA	LDA is INTEGER Leading dimension of A.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date

November 2011

Definition at line 70 of file cgennd.f.

*
*  -- LAPACK test routine (version 3.4.0) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     November 2011
*
*     .. Scalar Arguments ..
      INTEGER m, n, lda
*     ..
*     .. Array Arguments ..
      COMPLEX a( lda, * )
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      REAL               zero
      parameter                ( zero = 0.0e0 )
*     ..
*     .. Local Scalars ..
      INTEGER i, k
      COMPLEX aii
*     ..
*     .. Intrinsics ..
      INTRINSIC min, REAL, aimag
*     ..
*     .. Executable Statements ..
      k = min( m, n )
      DO i = 1, k
         aii = a( i, i )
         IF( REAL( aii ).LT.zero.OR.aimag( aii ).NE.zero ) then
            cgennd = .false.
            RETURN
         END IF
      END DO
      cgennd = .true.
      RETURN