LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ 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.

70 *
71 * -- LAPACK test routine (version 3.7.0) --
72 * -- LAPACK is a software package provided by Univ. of Tennessee, --
73 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
74 * December 2016
75 *
76 * .. Scalar Arguments ..
77  INTEGER m, n, lda
78 * ..
79 * .. Array Arguments ..
80  DOUBLE PRECISION a( lda, * )
81 * ..
82 *
83 * =====================================================================
84 *
85 * .. Parameters ..
86  DOUBLE PRECISION zero
87  parameter( zero = 0.0d0 )
88 * ..
89 * .. Local Scalars ..
90  INTEGER i, k
91 * ..
92 * .. Intrinsics ..
93  INTRINSIC min
94 * ..
95 * .. Executable Statements ..
96  k = min( m, n )
97  DO i = 1, k
98  IF( a( i, i ).LT.zero ) THEN
99  dgennd = .false.
100  RETURN
101  END IF
102  END DO
103  dgennd = .true.
104  RETURN
logical function dgennd(M, N, A, LDA)
DGENND
Definition: dgennd.f:70