LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
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 2654 of file c_cblat3.f.

2654 *
2655 * Tests if selected elements in two arrays are equal.
2656 *
2657 * TYPE is 'ge' or 'he' or 'sy'.
2658 *
2659 * Auxiliary routine for test program for Level 3 Blas.
2660 *
2661 * -- Written on 8-February-1989.
2662 * Jack Dongarra, Argonne National Laboratory.
2663 * Iain Duff, AERE Harwell.
2664 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
2665 * Sven Hammarling, Numerical Algorithms Group Ltd.
2666 *
2667 * .. Scalar Arguments ..
2668  INTEGER lda, m, n
2669  CHARACTER*1 uplo
2670  CHARACTER*2 type
2671 * .. Array Arguments ..
2672  COMPLEX aa( lda, * ), as( lda, * )
2673 * .. Local Scalars ..
2674  INTEGER i, ibeg, iend, j
2675  LOGICAL upper
2676 * .. Executable Statements ..
2677  upper = uplo.EQ.'U'
2678  IF( type.EQ.'ge' )THEN
2679  DO 20 j = 1, n
2680  DO 10 i = m + 1, lda
2681  IF( aa( i, j ).NE.as( i, j ) )
2682  $ GO TO 70
2683  10 CONTINUE
2684  20 CONTINUE
2685  ELSE IF( type.EQ.'he'.OR.type.EQ.'sy' )THEN
2686  DO 50 j = 1, n
2687  IF( upper )THEN
2688  ibeg = 1
2689  iend = j
2690  ELSE
2691  ibeg = j
2692  iend = n
2693  END IF
2694  DO 30 i = 1, ibeg - 1
2695  IF( aa( i, j ).NE.as( i, j ) )
2696  $ GO TO 70
2697  30 CONTINUE
2698  DO 40 i = iend + 1, lda
2699  IF( aa( i, j ).NE.as( i, j ) )
2700  $ GO TO 70
2701  40 CONTINUE
2702  50 CONTINUE
2703  END IF
2704 *
2705  60 CONTINUE
2706  lceres = .true.
2707  GO TO 80
2708  70 CONTINUE
2709  lceres = .false.
2710  80 RETURN
2711 *
2712 * End of LCERES.
2713 *
logical function lceres(TYPE, UPLO, M, N, AA, AS, LDA)
Definition: cblat2.f:3072

Here is the call graph for this function: