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

◆ lce()

logical function lce ( complex, dimension( * )  ri,
complex, dimension( * )  rj,
integer  lr 
)

Definition at line 2621 of file c_cblat3.f.

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