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

◆ dladiv2()

double precision function dladiv2 ( double precision a,
double precision b,
double precision c,
double precision d,
double precision r,
double precision t )

Definition at line 213 of file dladiv.f.

214*
215* -- LAPACK auxiliary routine --
216* -- LAPACK is a software package provided by Univ. of Tennessee, --
217* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
218*
219* .. Scalar Arguments ..
220 DOUBLE PRECISION A, B, C, D, R, T
221* ..
222*
223* =====================================================================
224*
225* .. Parameters ..
226 DOUBLE PRECISION ZERO
227 parameter( zero = 0.0d0 )
228*
229* .. Local Scalars ..
230 DOUBLE PRECISION BR
231* ..
232* .. Executable Statements ..
233*
234 IF( r.NE.zero ) THEN
235 br = b * r
236 IF( br.NE.zero ) THEN
237 dladiv2 = (a + br) * t
238 ELSE
239 dladiv2 = a * t + (b * t) * r
240 END IF
241 ELSE
242 dladiv2 = (a + d * (b / c)) * t
243 END IF
244*
245 RETURN
246*
247* End of DLADIV2
248*
dladiv2
double precision function dladiv2(a, b, c, d, r, t)
Definition dladiv.f:214
Here is the call graph for this function:
Here is the caller graph for this function: