1: *> \brief \b ZLADIV
2: *
3: * =========== DOCUMENTATION ===========
4: *
5: * Online html documentation available at
6: * http://www.netlib.org/lapack/explore-html/
7: *
8: *> \htmlonly
9: *> Download ZLADIV + dependencies
10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zladiv.f">
11: *> [TGZ]</a>
12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zladiv.f">
13: *> [ZIP]</a>
14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zladiv.f">
15: *> [TXT]</a>
16: *> \endhtmlonly
17: *
18: * Definition:
19: * ===========
20: *
21: * COMPLEX*16 FUNCTION ZLADIV( X, Y )
22: *
23: * .. Scalar Arguments ..
24: * COMPLEX*16 X, Y
25: * ..
26: *
27: *
28: *> \par Purpose:
29: * =============
30: *>
31: *> \verbatim
32: *>
33: *> ZLADIV := 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*16
44: *> \endverbatim
45: *>
46: *> \param[in] Y
47: *> \verbatim
48: *> Y is COMPLEX*16
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 November 2011
61: *
62: *> \ingroup complex16OTHERauxiliary
63: *
64: * =====================================================================
65: COMPLEX*16 FUNCTION ZLADIV( X, Y )
66: *
67: * -- LAPACK auxiliary routine (version 3.4.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: * November 2011
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: *
97: END
CVSweb interface <joel.bertrand@systella.fr>