LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lceres()

logical function lceres ( character*2  TYPE,
character*1  UPLO,
integer  M,
integer  N,
complex, dimension( lda, * )  AA,
complex, dimension( lda, * )  AS,
integer  LDA 
)

Definition at line 3274 of file cblat3.f.

3274 *
3275 * Tests if selected elements in two arrays are equal.
3276 *
3277 * TYPE is 'GE' or 'HE' or 'SY'.
3278 *
3279 * Auxiliary routine for test program for Level 3 Blas.
3280 *
3281 * -- Written on 8-February-1989.
3282 * Jack Dongarra, Argonne National Laboratory.
3283 * Iain Duff, AERE Harwell.
3284 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
3285 * Sven Hammarling, Numerical Algorithms Group Ltd.
3286 *
3287 * .. Scalar Arguments ..
3288  INTEGER lda, m, n
3289  CHARACTER*1 uplo
3290  CHARACTER*2 type
3291 * .. Array Arguments ..
3292  COMPLEX aa( lda, * ), as( lda, * )
3293 * .. Local Scalars ..
3294  INTEGER i, ibeg, iend, j
3295  LOGICAL upper
3296 * .. Executable Statements ..
3297  upper = uplo.EQ.'U'
3298  IF( type.EQ.'GE' )THEN
3299  DO 20 j = 1, n
3300  DO 10 i = m + 1, lda
3301  IF( aa( i, j ).NE.as( i, j ) )
3302  $ GO TO 70
3303  10 CONTINUE
3304  20 CONTINUE
3305  ELSE IF( type.EQ.'HE'.OR.type.EQ.'SY' )THEN
3306  DO 50 j = 1, n
3307  IF( upper )THEN
3308  ibeg = 1
3309  iend = j
3310  ELSE
3311  ibeg = j
3312  iend = n
3313  END IF
3314  DO 30 i = 1, ibeg - 1
3315  IF( aa( i, j ).NE.as( i, j ) )
3316  $ GO TO 70
3317  30 CONTINUE
3318  DO 40 i = iend + 1, lda
3319  IF( aa( i, j ).NE.as( i, j ) )
3320  $ GO TO 70
3321  40 CONTINUE
3322  50 CONTINUE
3323  END IF
3324 *
3325  lceres = .true.
3326  GO TO 80
3327  70 CONTINUE
3328  lceres = .false.
3329  80 RETURN
3330 *
3331 * End of LCERES.
3332 *
logical function lceres(TYPE, UPLO, M, N, AA, AS, LDA)
Definition: cblat2.f:3072
Here is the call graph for this function: