LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ lde()

logical function lde ( double precision, dimension( * )  RI,
double precision, dimension( * )  RJ,
integer  LR 
)

Definition at line 2627 of file dblat3.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  DOUBLE PRECISION 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  lde = .true.
2651  GO TO 30
2652  20 CONTINUE
2653  lde = .false.
2654  30 RETURN
2655 *
2656 * End of LDE
2657 *
logical function lde(RI, RJ, LR)
Definition: dblat2.f:2942
Here is the call graph for this function: