LAPACK  3.9.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 2975 of file sblat2.f.

2975 *
2976 * Tests if selected elements in two arrays are equal.
2977 *
2978 * TYPE is 'GE', 'SY' or 'SP'.
2979 *
2980 * Auxiliary routine for test program for Level 2 Blas.
2981 *
2982 * -- Written on 10-August-1987.
2983 * Richard Hanson, Sandia National Labs.
2984 * Jeremy Du Croz, NAG Central Office.
2985 *
2986 * .. Scalar Arguments ..
2987  INTEGER LDA, M, N
2988  CHARACTER*1 UPLO
2989  CHARACTER*2 TYPE
2990 * .. Array Arguments ..
2991  REAL AA( LDA, * ), AS( LDA, * )
2992 * .. Local Scalars ..
2993  INTEGER I, IBEG, IEND, J
2994  LOGICAL UPPER
2995 * .. Executable Statements ..
2996  upper = uplo.EQ.'U'
2997  IF( type.EQ.'GE' )THEN
2998  DO 20 j = 1, n
2999  DO 10 i = m + 1, lda
3000  IF( aa( i, j ).NE.as( i, j ) )
3001  \$ GO TO 70
3002  10 CONTINUE
3003  20 CONTINUE
3004  ELSE IF( type.EQ.'SY' )THEN
3005  DO 50 j = 1, n
3006  IF( upper )THEN
3007  ibeg = 1
3008  iend = j
3009  ELSE
3010  ibeg = j
3011  iend = n
3012  END IF
3013  DO 30 i = 1, ibeg - 1
3014  IF( aa( i, j ).NE.as( i, j ) )
3015  \$ GO TO 70
3016  30 CONTINUE
3017  DO 40 i = iend + 1, lda
3018  IF( aa( i, j ).NE.as( i, j ) )
3019  \$ GO TO 70
3020  40 CONTINUE
3021  50 CONTINUE
3022  END IF
3023 *
3024  lseres = .true.
3025  GO TO 80
3026  70 CONTINUE
3027  lseres = .false.
3028  80 RETURN
3029 *
3030 * End of LSERES.
3031 *
Here is the caller graph for this function:
lseres
logical function lseres(TYPE, UPLO, M, N, AA, AS, LDA)
Definition: sblat2.f:2975