cgennd()

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.

Definition at line 67 of file cgennd.f.

*
*  -- LAPACK test routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. 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

Here is the call graph for this function:

Here is the caller graph for this function: