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