LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
zladiv.f
Go to the documentation of this file.
1*> \brief \b ZLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8*> Download ZLADIV + dependencies
9*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zladiv.f">
10*> [TGZ]</a>
11*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zladiv.f">
12*> [ZIP]</a>
13*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zladiv.f">
14*> [TXT]</a>
15*
16* Definition:
17* ===========
18*
19* COMPLEX*16 FUNCTION ZLADIV( X, Y )
20*
21* .. Scalar Arguments ..
22* COMPLEX*16 X, Y
23* ..
24*
25*
26*> \par Purpose:
27* =============
28*>
29*> \verbatim
30*>
31*> ZLADIV := X / Y, where X and Y are complex. The computation of X / Y
32*> will not overflow on an intermediary step unless the results
33*> overflows.
34*> \endverbatim
35*
36* Arguments:
37* ==========
38*
39*> \param[in] X
40*> \verbatim
41*> X is COMPLEX*16
42*> \endverbatim
43*>
44*> \param[in] Y
45*> \verbatim
46*> Y is COMPLEX*16
47*> The complex scalars X and Y.
48*> \endverbatim
49*
50* Authors:
51* ========
52*
53*> \author Univ. of Tennessee
54*> \author Univ. of California Berkeley
55*> \author Univ. of Colorado Denver
56*> \author NAG Ltd.
57*
58*> \ingroup ladiv
59*
60* =====================================================================
61 COMPLEX*16 FUNCTION zladiv( X, Y )
62*
63* -- LAPACK auxiliary routine --
64* -- LAPACK is a software package provided by Univ. of Tennessee, --
65* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
66*
67* .. Scalar Arguments ..
68 COMPLEX*16 x, y
69* ..
70*
71* =====================================================================
72*
73* .. Local Scalars ..
74 DOUBLE PRECISION zi, zr
75* ..
76* .. External Subroutines ..
77 EXTERNAL dladiv
78* ..
79* .. Intrinsic Functions ..
80 INTRINSIC dble, dcmplx, dimag
81* ..
82* .. Executable Statements ..
83*
84 CALL dladiv( dble( x ), dimag( x ), dble( y ), dimag( y ), zr,
85 $ zi )
86 zladiv = dcmplx( zr, zi )
87*
88 RETURN
89*
90* End of ZLADIV
91*
92 END
zladiv
complex *16 function zladiv(x, y)
ZLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
Definition zladiv.f:62
dladiv
subroutine dladiv(a, b, c, d, p, q)
DLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
Definition dladiv.f:89