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

◆ lde()

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

Definition at line 2756 of file c_dblat2.f.

2757*
2758* Tests if two arrays are identical.
2759*
2760* Auxiliary routine for test program for Level 2 Blas.
2761*
2762* -- Written on 10-August-1987.
2763* Richard Hanson, Sandia National Labs.
2764* Jeremy Du Croz, NAG Central Office.
2765*
2766* .. Scalar Arguments ..
2767 INTEGER LR
2768* .. Array Arguments ..
2769 DOUBLE PRECISION RI( * ), RJ( * )
2770* .. Local Scalars ..
2771 INTEGER I
2772* .. Executable Statements ..
2773 DO 10 i = 1, lr
2774 IF( ri( i ).NE.rj( i ) )
2775 $ GO TO 20
2776 10 CONTINUE
2777 lde = .true.
2778 GO TO 30
2779 20 CONTINUE
2780 lde = .false.
2781 30 RETURN
2782*
2783* End of LDE.
2784*
logical function lde(RI, RJ, LR)
Definition: dblat2.f:2970
Here is the call graph for this function: