LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ dladiv2()

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