LAPACK  3.8.0
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.
Date
December 2016

Definition at line 66 of file zladiv.f.

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