LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
cladiv.f
Go to the documentation of this file.
1
*> \brief \b CLADIV 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
*> \htmlonly
9
*> Download CLADIV + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/cladiv.f">
11
*> [TGZ]</a>
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/cladiv.f">
13
*> [ZIP]</a>
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/cladiv.f">
15
*> [TXT]</a>
16
*> \endhtmlonly
17
*
18
* Definition:
19
* ===========
20
*
21
* COMPLEX FUNCTION CLADIV( X, Y )
22
*
23
* .. Scalar Arguments ..
24
* COMPLEX X, Y
25
* ..
26
*
27
*
28
*> \par Purpose:
29
* =============
30
*>
31
*> \verbatim
32
*>
33
*> CLADIV := X / Y, where X and Y are complex. The computation of X / Y
34
*> will not overflow on an intermediary step unless the results
35
*> overflows.
36
*> \endverbatim
37
*
38
* Arguments:
39
* ==========
40
*
41
*> \param[in] X
42
*> \verbatim
43
*> X is COMPLEX
44
*> \endverbatim
45
*>
46
*> \param[in] Y
47
*> \verbatim
48
*> Y is COMPLEX
49
*> The complex scalars X and Y.
50
*> \endverbatim
51
*
52
* Authors:
53
* ========
54
*
55
*> \author Univ. of Tennessee
56
*> \author Univ. of California Berkeley
57
*> \author Univ. of Colorado Denver
58
*> \author NAG Ltd.
59
*
60
*> \date December 2016
61
*
62
*> \ingroup complexOTHERauxiliary
63
*
64
* =====================================================================
65
COMPLEX
FUNCTION
cladiv
( X, Y )
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
X, Y
74
* ..
75
*
76
* =====================================================================
77
*
78
* .. Local Scalars ..
79
REAL
ZI, ZR
80
* ..
81
* .. External Subroutines ..
82
EXTERNAL
sladiv
83
* ..
84
* .. Intrinsic Functions ..
85
INTRINSIC
aimag, cmplx, real
86
* ..
87
* .. Executable Statements ..
88
*
89
CALL
sladiv
(
REAL( X )
, AIMAG( x ),
REAL( Y )
, AIMAG( y ), ZR,
90
$ zi )
91
cladiv
= cmplx( zr, zi )
92
*
93
RETURN
94
*
95
* End of CLADIV
96
*
97
END
sladiv
subroutine sladiv(A, B, C, D, P, Q)
SLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
Definition:
sladiv.f:93
cladiv
complex function cladiv(X, Y)
CLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
Definition:
cladiv.f:66
SRC
cladiv.f
Generated on Fri Dec 23 2016 15:28:21 for LAPACK by
1.8.10