subroutine sladiv1	(	real	A,
		real	B,
		real	C,
		real	D,
		real	P,
		real	Q
	)

Definition at line 180 of file sladiv.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 ..
      REAL               a, b, c, d, p, q
*     ..
*
*  =====================================================================
*
*     .. Parameters ..
      REAL               one
      parameter                ( one = 1.0e0 )
*
*     .. Local Scalars ..
      REAL               r, t
*     ..
*     .. External Functions ..
      REAL               sladiv2
      EXTERNAL           sladiv2
*     ..
*     .. Executable Statements ..
*
      r = d / c
      t = one / (c + d * r)
      p = sladiv2(a, b, c, d, r, t)
      a = -a
      q = sladiv2(b, a, c, d, r, t)
*
      RETURN
*
*     End of SLADIV1
*

Here is the caller graph for this function: