LAPACK
3.10.1
LAPACK: Linear Algebra PACKage
◆
sladiv2()
real function sladiv2
(
real
A
,
real
B
,
real
C
,
real
D
,
real
R
,
real
T
)
Definition at line
215
of file
sladiv.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
REAL
A, B, C, D, R, T
223
* ..
224
*
225
* =====================================================================
226
*
227
* .. Parameters ..
228
REAL
ZERO
229
parameter( zero = 0.0e0 )
230
*
231
* .. Local Scalars ..
232
REAL
BR
233
* ..
234
* .. Executable Statements ..
235
*
236
IF
( r.NE.zero )
THEN
237
br = b * r
238
if
( br.NE.zero )
THEN
239
sladiv2
= (a + br) * t
240
ELSE
241
sladiv2
= a * t + (b * t) * r
242
END IF
243
ELSE
244
sladiv2
= (a + d * (b / c)) * t
245
END IF
246
*
247
RETURN
248
*
249
* End of SLADIV2
250
*
sladiv2
real function sladiv2(A, B, C, D, R, T)
Definition:
sladiv.f:216
real
Generated on Tue Apr 12 2022 14:55:44 for LAPACK by
1.9.1