LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ sladiv1()

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

Definition at line 180 of file sladiv.f.

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