LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
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 217 of file dladiv.f.

217 *
218 * -- LAPACK auxiliary routine (version 3.6.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  DOUBLE PRECISION a, b, c, d, r, t
225 * ..
226 *
227 * =====================================================================
228 *
229 * .. Parameters ..
230  DOUBLE PRECISION zero
231  parameter ( zero = 0.0d0 )
232 *
233 * .. Local Scalars ..
234  DOUBLE PRECISION br
235 * ..
236 * .. Executable Statements ..
237 *
238  IF( r.NE.zero ) THEN
239  br = b * r
240  IF( br.NE.zero ) THEN
241  dladiv2 = (a + br) * t
242  ELSE
243  dladiv2 = a * t + (b * t) * r
244  END IF
245  ELSE
246  dladiv2 = (a + d * (b / c)) * t
247  END IF
248 *
249  RETURN
250 *
251 * End of DLADIV12
252 *
dladiv2
double precision function dladiv2(A, B, C, D, R, T)
Definition: dladiv.f:217