LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
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
220
of file
dladiv.f
.
220
*
221
* -- LAPACK auxiliary routine (version 3.7.0) --
222
* -- LAPACK is a software package provided by Univ. of Tennessee, --
223
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
224
* January 2013
225
*
226
* .. Scalar Arguments ..
227
DOUBLE PRECISION
a, b, c, d, r, t
228
* ..
229
*
230
* =====================================================================
231
*
232
* .. Parameters ..
233
DOUBLE PRECISION
zero
234
parameter ( zero = 0.0d0 )
235
*
236
* .. Local Scalars ..
237
DOUBLE PRECISION
br
238
* ..
239
* .. Executable Statements ..
240
*
241
IF
( r.NE.zero )
THEN
242
br = b * r
243
IF
( br.NE.zero )
THEN
244
dladiv2
= (a + br) * t
245
ELSE
246
dladiv2
= a * t + (b * t) * r
247
END IF
248
ELSE
249
dladiv2
= (a + d * (b / c)) * t
250
END IF
251
*
252
RETURN
253
*
254
* End of DLADIV12
255
*
dladiv2
double precision function dladiv2(A, B, C, D, R, T)
Definition:
dladiv.f:220
double
Generated on Fri Dec 23 2016 15:33:18 for LAPACK by
1.8.10