LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ sladiv1()

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

Definition at line 176 of file sladiv.f.

177 *
178 * -- LAPACK auxiliary routine --
179 * -- LAPACK is a software package provided by Univ. of Tennessee, --
180 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
181 *
182 * .. Scalar Arguments ..
183  REAL A, B, C, D, P, Q
184 * ..
185 *
186 * =====================================================================
187 *
188 * .. Parameters ..
189  REAL ONE
190  parameter( one = 1.0e0 )
191 *
192 * .. Local Scalars ..
193  REAL R, T
194 * ..
195 * .. External Functions ..
196  REAL SLADIV2
197  EXTERNAL sladiv2
198 * ..
199 * .. Executable Statements ..
200 *
201  r = d / c
202  t = one / (c + d * r)
203  p = sladiv2(a, b, c, d, r, t)
204  a = -a
205  q = sladiv2(b, a, c, d, r, t)
206 *
207  RETURN
208 *
209 * End of SLADIV1
210 *
real function sladiv2(A, B, C, D, R, T)
Definition: sladiv.f:216
Here is the caller graph for this function: