source: pacpussensors/trunk/Vislab/lib3dv-1.2.0/lib3dv/eigen/lapack/zladiv.f

Last change on this file was 136, checked in by ldecherf, 8 years ago

Doc

File size: 2.3 KB
Line 
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
Note: See TracBrowser for help on using the repository browser.