LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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:2972
Here is the call graph for this function: