Annotation of rpl/lapack/lapack/zladiv.f, revision 1.18
1.11 bertrand 1: *> \brief \b ZLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
1.8 bertrand 2: *
3: * =========== DOCUMENTATION ===========
4: *
1.15 bertrand 5: * Online html documentation available at
6: * http://www.netlib.org/lapack/explore-html/
1.8 bertrand 7: *
8: *> \htmlonly
1.15 bertrand 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">
1.8 bertrand 15: *> [TXT]</a>
1.15 bertrand 16: *> \endhtmlonly
1.8 bertrand 17: *
18: * Definition:
19: * ===========
20: *
21: * COMPLEX*16 FUNCTION ZLADIV( X, Y )
1.15 bertrand 22: *
1.8 bertrand 23: * .. Scalar Arguments ..
24: * COMPLEX*16 X, Y
25: * ..
1.15 bertrand 26: *
1.8 bertrand 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: *
1.15 bertrand 55: *> \author Univ. of Tennessee
56: *> \author Univ. of California Berkeley
57: *> \author Univ. of Colorado Denver
58: *> \author NAG Ltd.
1.8 bertrand 59: *
60: *> \ingroup complex16OTHERauxiliary
61: *
62: * =====================================================================
1.1 bertrand 63: COMPLEX*16 FUNCTION ZLADIV( X, Y )
64: *
1.18 ! bertrand 65: * -- LAPACK auxiliary routine --
1.1 bertrand 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: *
94: END
CVSweb interface <joel.bertrand@systella.fr>