LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
real function sladiv2
(
real
A
,
real
B
,
real
C
,
real
D
,
real
R
,
real
T
)
Definition at line
220
of file
sladiv.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
REAL
a, b, c, d, r, t
228
* ..
229
*
230
* =====================================================================
231
*
232
* .. Parameters ..
233
REAL
zero
234
parameter ( zero = 0.0e0 )
235
*
236
* .. Local Scalars ..
237
REAL
br
238
* ..
239
* .. Executable Statements ..
240
*
241
IF
( r.NE.zero )
THEN
242
br = b * r
243
if
( br.NE.zero )
THEN
244
sladiv2
= (a + br) * t
245
ELSE
246
sladiv2
= a * t + (b * t) * r
247
END IF
248
ELSE
249
sladiv2
= (a + d * (b / c)) * t
250
END IF
251
*
252
RETURN
253
*
254
* End of SLADIV
255
*
sladiv2
real function sladiv2(A, B, C, D, R, T)
Definition:
sladiv.f:220
real
Generated on Fri Dec 23 2016 15:33:33 for LAPACK by
1.8.10