subroutine dladiv1	(	double precision	A,
		double precision	B,
		double precision	C,
		double precision	D,
		double precision	P,
		double precision	Q
	)

Definition at line 180 of file dladiv.f.

*
*  -- LAPACK auxiliary routine (version 3.7.0) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     January 2013
*
*     .. Scalar Arguments ..
      DOUBLE PRECISION   a, b, c, d, p, q
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      DOUBLE PRECISION   one
      parameter                ( one = 1.0d0 )
*
*     .. Local Scalars ..
      DOUBLE PRECISION   r, t
*     ..
*     .. External Functions ..
      DOUBLE PRECISION   dladiv2
      EXTERNAL           dladiv2
*     ..
*     .. Executable Statements ..
*
      r = d / c
      t = one / (c + d * r)
      p = dladiv2(a, b, c, d, r, t)
      a = -a
      q = dladiv2(b, a, c, d, r, t)
*
      RETURN
*
*     End of DLADIV1
*

Here is the caller graph for this function: