1*> \brief \b CLADIV
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 November 2011
61*
62*> \ingroup complexOTHERauxiliary
63*
64*  =====================================================================
65      COMPLEX FUNCTION CLADIV( 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            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
98