LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ lderes()

logical function lderes ( character*2  type,
character*1  uplo,
integer  m,
integer  n,
double precision, dimension( lda, * )  aa,
double precision, dimension( lda, * )  as,
integer  lda 
)

Definition at line 2659 of file dblat3.f.

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