LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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