LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ 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:3039
Here is the call graph for this function: