LAPACK 3.12.0
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 215 of file dladiv.f.

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