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