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

◆ cgennd()

logical function cgennd ( integer  m,
integer  n,
complex, dimension( lda, * )  a,
integer  lda 
)

CGENND

Purpose:
    CGENND tests that its argument has a real, 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 COMPLEX 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 cgennd.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 COMPLEX A( LDA, * )
78* ..
79*
80* =====================================================================
81*
82* .. Parameters ..
83 REAL ZERO
84 parameter( zero = 0.0e0 )
85* ..
86* .. Local Scalars ..
87 INTEGER I, K
88 COMPLEX AII
89* ..
90* .. Intrinsics ..
91 INTRINSIC min, real, aimag
92* ..
93* .. Executable Statements ..
94 k = min( m, n )
95 DO i = 1, k
96 aii = a( i, i )
97 IF( real( aii ).LT.zero.OR.aimag( aii ).NE.zero ) THEN
98 cgennd = .false.
99 RETURN
100 END IF
101 END DO
102 cgennd = .true.
103 RETURN
logical function cgennd(m, n, a, lda)
CGENND
Definition cgennd.f:68
Here is the call graph for this function:
Here is the caller graph for this function: