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

◆ lce()

logical function lce ( complex, dimension( * )  RI,
complex, dimension( * )  RJ,
integer  LR 
)

Definition at line 2583 of file c_cblat2.f.

2584*
2585* Tests if two arrays are identical.
2586*
2587* Auxiliary routine for test program for Level 2 Blas.
2588*
2589* -- Written on 10-August-1987.
2590* Richard Hanson, Sandia National Labs.
2591* Jeremy Du Croz, NAG Central Office.
2592*
2593* .. Scalar Arguments ..
2594 INTEGER LR
2595* .. Array Arguments ..
2596 COMPLEX RI( * ), RJ( * )
2597* .. Local Scalars ..
2598 INTEGER I
2599* .. Executable Statements ..
2600 DO 10 i = 1, lr
2601 IF( ri( i ).NE.rj( i ) )
2602 $ GO TO 20
2603 10 CONTINUE
2604 lce = .true.
2605 GO TO 30
2606 20 CONTINUE
2607 lce = .false.
2608 30 RETURN
2609*
2610* End of LCE.
2611*
logical function lce(RI, RJ, LR)
Definition: cblat2.f:3067
Here is the call graph for this function: