LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
subroutine dladiv1 ( double precision  A,
double precision  B,
double precision  C,
double precision  D,
double precision  P,
double precision  Q 
)

Definition at line 179 of file dladiv.f.

179 *
180 * -- LAPACK auxiliary routine (version 3.6.0) --
181 * -- LAPACK is a software package provided by Univ. of Tennessee, --
182 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
183 * January 2013
184 *
185 * .. Scalar Arguments ..
186  DOUBLE PRECISION a, b, c, d, p, q
187 * ..
188 *
189 * =====================================================================
190 *
191 * .. Parameters ..
192  DOUBLE PRECISION one
193  parameter ( one = 1.0d0 )
194 *
195 * .. Local Scalars ..
196  DOUBLE PRECISION r, t
197 * ..
198 * .. External Functions ..
199  DOUBLE PRECISION dladiv2
200  EXTERNAL dladiv2
201 * ..
202 * .. Executable Statements ..
203 *
204  r = d / c
205  t = one / (c + d * r)
206  p = dladiv2(a, b, c, d, r, t)
207  a = -a
208  q = dladiv2(b, a, c, d, r, t)
209 *
210  RETURN
211 *
212 * End of DLADIV1
213 *
double precision function dladiv2(A, B, C, D, R, T)
Definition: dladiv.f:217

Here is the caller graph for this function: