LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
logical function lse ( real, dimension( * )  RI,
real, dimension( * )  RJ,
integer  LR 
)

Definition at line 2757 of file c_sblat2.f.

2757 *
2758 * Tests if two arrays are identical.
2759 *
2760 * Auxiliary routine for test program for Level 2 Blas.
2761 *
2762 * -- Written on 10-August-1987.
2763 * Richard Hanson, Sandia National Labs.
2764 * Jeremy Du Croz, NAG Central Office.
2765 *
2766 * .. Scalar Arguments ..
2767  INTEGER lr
2768 * .. Array Arguments ..
2769  REAL ri( * ), rj( * )
2770 * .. Local Scalars ..
2771  INTEGER i
2772 * .. Executable Statements ..
2773  DO 10 i = 1, lr
2774  IF( ri( i ).NE.rj( i ) )
2775  $ GO TO 20
2776  10 CONTINUE
2777  lse = .true.
2778  GO TO 30
2779  20 CONTINUE
2780  lse = .false.
2781  30 RETURN
2782 *
2783 * End of LSE.
2784 *
logical function lse(RI, RJ, LR)
Definition: sblat2.f:2945

Here is the call graph for this function: