LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lseres()

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

Definition at line 2663 of file sblat3.f.

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