LAPACK  3.10.0
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 *
real function sladiv2(A, B, C, D, R, T)
Definition: sladiv.f:216