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

2787 *
2788 * Tests if selected elements in two arrays are equal.
2789 *
2790 * TYPE is 'ge', 'sy' or 'sp'.
2791 *
2792 * Auxiliary routine for test program for Level 2 Blas.
2793 *
2794 * -- Written on 10-August-1987.
2795 * Richard Hanson, Sandia National Labs.
2796 * Jeremy Du Croz, NAG Central Office.
2797 *
2798 * .. Scalar Arguments ..
2799  INTEGER lda, m, n
2800  CHARACTER*1 uplo
2801  CHARACTER*2 type
2802 * .. Array Arguments ..
2803  REAL aa( lda, * ), as( lda, * )
2804 * .. Local Scalars ..
2805  INTEGER i, ibeg, iend, j
2806  LOGICAL upper
2807 * .. Executable Statements ..
2808  upper = uplo.EQ.'U'
2809  IF( type.EQ.'ge' )THEN
2810  DO 20 j = 1, n
2811  DO 10 i = m + 1, lda
2812  IF( aa( i, j ).NE.as( i, j ) )
2813  $ GO TO 70
2814  10 CONTINUE
2815  20 CONTINUE
2816  ELSE IF( type.EQ.'sy' )THEN
2817  DO 50 j = 1, n
2818  IF( upper )THEN
2819  ibeg = 1
2820  iend = j
2821  ELSE
2822  ibeg = j
2823  iend = n
2824  END IF
2825  DO 30 i = 1, ibeg - 1
2826  IF( aa( i, j ).NE.as( i, j ) )
2827  $ GO TO 70
2828  30 CONTINUE
2829  DO 40 i = iend + 1, lda
2830  IF( aa( i, j ).NE.as( i, j ) )
2831  $ GO TO 70
2832  40 CONTINUE
2833  50 CONTINUE
2834  END IF
2835 *
2836  60 CONTINUE
2837  lseres = .true.
2838  GO TO 80
2839  70 CONTINUE
2840  lseres = .false.
2841  80 RETURN
2842 *
2843 * End of LSERES.
2844 *
logical function lseres(TYPE, UPLO, M, N, AA, AS, LDA)
Definition: sblat2.f:2975

Here is the call graph for this function: