LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ dladiv1()

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.

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  DOUBLE PRECISION a, b, c, d, p, q
188 * ..
189 *
190 * =====================================================================
191 *
192 * .. Parameters ..
193  DOUBLE PRECISION one
194  parameter( one = 1.0d0 )
195 *
196 * .. Local Scalars ..
197  DOUBLE PRECISION r, t
198 * ..
199 * .. External Functions ..
200  DOUBLE PRECISION dladiv2
201  EXTERNAL dladiv2
202 * ..
203 * .. Executable Statements ..
204 *
205  r = d / c
206  t = one / (c + d * r)
207  p = dladiv2(a, b, c, d, r, t)
208  a = -a
209  q = dladiv2(b, a, c, d, r, t)
210 *
211  RETURN
212 *
213 * End of DLADIV1
214 *
double precision function dladiv2(A, B, C, D, R, T)
Definition: dladiv.f:220
Here is the caller graph for this function: