sladiv1()

subroutine sladiv1	(	real	a,
		real	b,
		real	c,
		real	d,
		real	p,
		real	q
	)

Definition at line 176 of file sladiv.f.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. 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: