LAPACK
3.6.1
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
217
of file
sladiv.f
.
217
*
218
* -- LAPACK auxiliary routine (version 3.5.0) --
219
* -- LAPACK is a software package provided by Univ. of Tennessee, --
220
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
221
* January 2013
222
*
223
* .. Scalar Arguments ..
224
REAL
a, b, c, d, r, t
225
* ..
226
*
227
* =====================================================================
228
*
229
* .. Parameters ..
230
REAL
zero
231
parameter ( zero = 0.0e0 )
232
*
233
* .. Local Scalars ..
234
REAL
br
235
* ..
236
* .. Executable Statements ..
237
*
238
IF
( r.NE.zero )
THEN
239
br = b * r
240
if
( br.NE.zero )
THEN
241
sladiv2
= (a + br) * t
242
ELSE
243
sladiv2
= a * t + (b * t) * r
244
END IF
245
ELSE
246
sladiv2
= (a + d * (b / c)) * t
247
END IF
248
*
249
RETURN
250
*
251
* End of SLADIV
252
*
sladiv2
real function sladiv2(A, B, C, D, R, T)
Definition:
sladiv.f:217
SRC
sladiv.f
Generated on Sun Jun 19 2016 20:54:21 for LAPACK by
1.8.10