LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 logical function lzeres ( character*2 TYPE, character*1 UPLO, integer M, integer N, complex*16, dimension( lda, * ) AA, complex*16, dimension( lda, * ) AS, integer LDA )

Definition at line 2620 of file c_zblat2.f.

2620 *
2621 * Tests if selected elements in two arrays are equal.
2622 *
2623 * TYPE is 'ge', 'he' or 'hp'.
2624 *
2625 * Auxiliary routine for test program for Level 2 Blas.
2626 *
2627 * -- Written on 10-August-1987.
2628 * Richard Hanson, Sandia National Labs.
2629 * Jeremy Du Croz, NAG Central Office.
2630 *
2631 * .. Scalar Arguments ..
2632  INTEGER lda, m, n
2633  CHARACTER*1 uplo
2634  CHARACTER*2 type
2635 * .. Array Arguments ..
2636  COMPLEX*16 aa( lda, * ), as( lda, * )
2637 * .. Local Scalars ..
2638  INTEGER i, ibeg, iend, j
2639  LOGICAL upper
2640 * .. Executable Statements ..
2641  upper = uplo.EQ.'U'
2642  IF( type.EQ.'ge' )THEN
2643  DO 20 j = 1, n
2644  DO 10 i = m + 1, lda
2645  IF( aa( i, j ).NE.as( i, j ) )
2646  \$ GO TO 70
2647  10 CONTINUE
2648  20 CONTINUE
2649  ELSE IF( type.EQ.'he' )THEN
2650  DO 50 j = 1, n
2651  IF( upper )THEN
2652  ibeg = 1
2653  iend = j
2654  ELSE
2655  ibeg = j
2656  iend = n
2657  END IF
2658  DO 30 i = 1, ibeg - 1
2659  IF( aa( i, j ).NE.as( i, j ) )
2660  \$ GO TO 70
2661  30 CONTINUE
2662  DO 40 i = iend + 1, lda
2663  IF( aa( i, j ).NE.as( i, j ) )
2664  \$ GO TO 70
2665  40 CONTINUE
2666  50 CONTINUE
2667  END IF
2668 *
2669  60 CONTINUE
2670  lzeres = .true.
2671  GO TO 80
2672  70 CONTINUE
2673  lzeres = .false.
2674  80 RETURN
2675 *
2676 * End of LZERES.
2677 *
logical function lzeres(TYPE, UPLO, M, N, AA, AS, LDA)
Definition: zblat2.f:3080

Here is the call graph for this function: