LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ lde()

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

Definition at line 2319 of file c_dblat3.f.

2319 *
2320 * Tests if two arrays are identical.
2321 *
2322 * Auxiliary routine for test program for Level 3 Blas.
2323 *
2324 * -- Written on 8-February-1989.
2325 * Jack Dongarra, Argonne National Laboratory.
2326 * Iain Duff, AERE Harwell.
2327 * Jeremy Du Croz, Numerical Algorithms Group Ltd.
2328 * Sven Hammarling, Numerical Algorithms Group Ltd.
2329 *
2330 * .. Scalar Arguments ..
2331  INTEGER lr
2332 * .. Array Arguments ..
2333  DOUBLE PRECISION ri( * ), rj( * )
2334 * .. Local Scalars ..
2335  INTEGER i
2336 * .. Executable Statements ..
2337  DO 10 i = 1, lr
2338  IF( ri( i ).NE.rj( i ) )
2339  $ GO TO 20
2340  10 CONTINUE
2341  lde = .true.
2342  GO TO 30
2343  20 CONTINUE
2344  lde = .false.
2345  30 RETURN
2346 *
2347 * End of LDE.
2348 *
logical function lde(RI, RJ, LR)
Definition: dblat2.f:2945
Here is the call graph for this function: