LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lse()

logical function lse ( real, dimension( * )  RI,
real, dimension( * )  RJ,
integer  LR 
)

Definition at line 2945 of file sblat2.f.

2945 *
2946 * Tests if two arrays are identical.
2947 *
2948 * Auxiliary routine for test program for Level 2 Blas.
2949 *
2950 * -- Written on 10-August-1987.
2951 * Richard Hanson, Sandia National Labs.
2952 * Jeremy Du Croz, NAG Central Office.
2953 *
2954 * .. Scalar Arguments ..
2955  INTEGER lr
2956 * .. Array Arguments ..
2957  REAL ri( * ), rj( * )
2958 * .. Local Scalars ..
2959  INTEGER i
2960 * .. Executable Statements ..
2961  DO 10 i = 1, lr
2962  IF( ri( i ).NE.rj( i ) )
2963  $ GO TO 20
2964  10 CONTINUE
2965  lse = .true.
2966  GO TO 30
2967  20 CONTINUE
2968  lse = .false.
2969  30 RETURN
2970 *
2971 * End of LSE.
2972 *
logical function lse(RI, RJ, LR)
Definition: sblat2.f:2945
Here is the caller graph for this function: