LAPACK  3.10.1
LAPACK: Linear Algebra PACKage

◆ lse()

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

Definition at line 2941 of file sblat2.f.

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