PLASMA  2.4.5
PLASMA - Parallel Linear Algebra for Scalable Multi-core Architectures
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
sgennd.f
Go to the documentation of this file.
1  LOGICAL FUNCTION sgennd (M, N, A, LDA)
2  IMPLICIT NONE
3 *
4 * -- LAPACK test routine (version 3.1) --
5 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
6 * February 2008
7 *
8 * .. Scalar Arguments ..
9  INTEGER m, n, lda
10 * ..
11 * .. Array Arguments ..
12  REAL a( lda, * )
13 * ..
14 *
15 * Purpose
16 * =======
17 *
18 * SGENND tests that its argument has a non-negative diagonal.
19 *
20 * Arguments
21 * =========
22 *
23 * M (input) INTEGER
24 * The number of rows in A.
25 *
26 * N (input) INTEGER
27 * The number of columns in A.
28 *
29 * A (input) REAL array, dimension (LDA, N)
30 * The matrix.
31 *
32 * LDA (input) INTEGER
33 * Leading dimension of A.
34 *
35 * =====================================================================
36 *
37 * .. Parameters ..
38  REAL zero
39  parameter( zero = 0.0e0 )
40 * ..
41 * .. Local Scalars ..
42  INTEGER i, k
43 * ..
44 * .. Intrinsics ..
45  INTRINSIC min
46 * ..
47 * .. Executable Statements ..
48  k = min( m, n )
49  DO i = 1, k
50  IF( a( i, i ).LT.zero ) THEN
51  sgennd = .false.
52  return
53  END IF
54  END DO
55  sgennd = .true.
56  return
57  END