LAPACK  3.8.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.
Date
December 2016

Definition at line 70 of file cgennd.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  COMPLEX a( lda, * )
81 * ..
82 *
83 * =====================================================================
84 *
85 * .. Parameters ..
86  REAL zero
87  parameter( zero = 0.0e0 )
88 * ..
89 * .. Local Scalars ..
90  INTEGER i, k
91  COMPLEX aii
92 * ..
93 * .. Intrinsics ..
94  INTRINSIC min, REAL, aimag
95 * ..
96 * .. Executable Statements ..
97  k = min( m, n )
98  DO i = 1, k
99  aii = a( i, i )
100  IF( REAL( aii ).LT.zero.OR.aimag( aii ).NE.zero ) then
101  cgennd = .false.
102  RETURN
103  END IF
104  END DO
105  cgennd = .true.
106  RETURN
logical function cgennd(M, N, A, LDA)
CGENND
Definition: cgennd.f:70