LAPACK 3.11.0 LAPACK: Linear Algebra PACKage
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.```

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: