dgennd()

logical function dgennd	(	integer	M,
		integer	N,
		double precision, dimension( lda, * )	A,
		integer	LDA
	)

DGENND

Purpose:

    DGENND tests that its argument has a 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 DOUBLE PRECISION 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 dgennd.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 ..
      DOUBLE PRECISION A( LDA, * )
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      DOUBLE PRECISION   ZERO
      parameter( zero = 0.0d0 )
*     ..
*     .. Local Scalars ..
      INTEGER I, K
*     ..
*     .. Intrinsics ..
      INTRINSIC min
*     ..
*     .. Executable Statements ..
      k = min( m, n )
      DO i = 1, k
         IF( a( i, i ).LT.zero ) THEN
            dgennd = .false.
            RETURN
         END IF
      END DO
      dgennd = .true.
      RETURN