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.

Date

December 2016

Definition at line 70 of file dgennd.f.

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