LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

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

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