LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ lse()

logical function lse ( real, dimension( * )  ri,
real, dimension( * )  rj,
integer  lr 
)

Definition at line 2627 of file sblat3.f.

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