LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lse()

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

Definition at line 2631 of file sblat3.f.

2631 *
2632 * Tests if two arrays are identical.
2633 *
2634 * Auxiliary routine for test program for Level 3 Blas.
2635 *
2636 * -- Written on 8-February-1989.
2637 * Jack Dongarra, Argonne National Laboratory.
2638 * Iain Duff, AERE Harwell.
2639 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
2640 * Sven Hammarling, Numerical Algorithms Group Ltd.
2641 *
2642 * .. Scalar Arguments ..
2643  INTEGER lr
2644 * .. Array Arguments ..
2645  REAL ri( * ), rj( * )
2646 * .. Local Scalars ..
2647  INTEGER i
2648 * .. Executable Statements ..
2649  DO 10 i = 1, lr
2650  IF( ri( i ).NE.rj( i ) )
2651  $ GO TO 20
2652  10 CONTINUE
2653  lse = .true.
2654  GO TO 30
2655  20 CONTINUE
2656  lse = .false.
2657  30 RETURN
2658 *
2659 * End of LSE.
2660 *
logical function lse(RI, RJ, LR)
Definition: sblat2.f:2945
Here is the call graph for this function: