LAPACK  3.9.1
LAPACK: Linear Algebra PACKage

◆ zladiv()

complex*16 function zladiv ( complex*16  X,
complex*16  Y 
)

ZLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.

Download ZLADIV + dependencies [TGZ] [ZIP] [TXT]

Purpose:
 ZLADIV := X / Y, where X and Y are complex.  The computation of X / Y
 will not overflow on an intermediary step unless the results
 overflows.
Parameters
[in]X
          X is COMPLEX*16
[in]Y
          Y is COMPLEX*16
          The complex scalars X and Y.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 63 of file zladiv.f.

64 *
65 * -- LAPACK auxiliary routine --
66 * -- LAPACK is a software package provided by Univ. of Tennessee, --
67 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
68 *
69 * .. Scalar Arguments ..
70  COMPLEX*16 X, Y
71 * ..
72 *
73 * =====================================================================
74 *
75 * .. Local Scalars ..
76  DOUBLE PRECISION ZI, ZR
77 * ..
78 * .. External Subroutines ..
79  EXTERNAL dladiv
80 * ..
81 * .. Intrinsic Functions ..
82  INTRINSIC dble, dcmplx, dimag
83 * ..
84 * .. Executable Statements ..
85 *
86  CALL dladiv( dble( x ), dimag( x ), dble( y ), dimag( y ), zr,
87  $ zi )
88  zladiv = dcmplx( zr, zi )
89 *
90  RETURN
91 *
92 * End of ZLADIV
93 *
complex *16 function zladiv(X, Y)
ZLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
Definition: zladiv.f:64
subroutine dladiv(A, B, C, D, P, Q)
DLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
Definition: dladiv.f:91
Here is the call graph for this function: