LAPACK  3.10.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 2613 of file c_cblat2.f.

2614 *
2615 * Tests if selected elements in two arrays are equal.
2616 *
2617 * TYPE is 'ge', 'he' or 'hp'.
2618 *
2619 * Auxiliary routine for test program for Level 2 Blas.
2620 *
2621 * -- Written on 10-August-1987.
2622 * Richard Hanson, Sandia National Labs.
2623 * Jeremy Du Croz, NAG Central Office.
2624 *
2625 * .. Scalar Arguments ..
2626  INTEGER LDA, M, N
2627  CHARACTER*1 UPLO
2628  CHARACTER*2 TYPE
2629 * .. Array Arguments ..
2630  COMPLEX AA( LDA, * ), AS( LDA, * )
2631 * .. Local Scalars ..
2632  INTEGER I, IBEG, IEND, J
2633  LOGICAL UPPER
2634 * .. Executable Statements ..
2635  upper = uplo.EQ.'U'
2636  IF( type.EQ.'ge' )THEN
2637  DO 20 j = 1, n
2638  DO 10 i = m + 1, lda
2639  IF( aa( i, j ).NE.as( i, j ) )
2640  $ GO TO 70
2641  10 CONTINUE
2642  20 CONTINUE
2643  ELSE IF( type.EQ.'he' )THEN
2644  DO 50 j = 1, n
2645  IF( upper )THEN
2646  ibeg = 1
2647  iend = j
2648  ELSE
2649  ibeg = j
2650  iend = n
2651  END IF
2652  DO 30 i = 1, ibeg - 1
2653  IF( aa( i, j ).NE.as( i, j ) )
2654  $ GO TO 70
2655  30 CONTINUE
2656  DO 40 i = iend + 1, lda
2657  IF( aa( i, j ).NE.as( i, j ) )
2658  $ GO TO 70
2659  40 CONTINUE
2660  50 CONTINUE
2661  END IF
2662 *
2663  60 CONTINUE
2664  lceres = .true.
2665  GO TO 80
2666  70 CONTINUE
2667  lceres = .false.
2668  80 RETURN
2669 *
2670 * End of LCERES.
2671 *
logical function lceres(TYPE, UPLO, M, N, AA, AS, LDA)
Definition: cblat2.f:3069
Here is the call graph for this function: