1*bf2c3715SXin Li*> \brief \b CLADIV 2*bf2c3715SXin Li* 3*bf2c3715SXin Li* =========== DOCUMENTATION =========== 4*bf2c3715SXin Li* 5*bf2c3715SXin Li* Online html documentation available at 6*bf2c3715SXin Li* http://www.netlib.org/lapack/explore-html/ 7*bf2c3715SXin Li* 8*bf2c3715SXin Li*> \htmlonly 9*bf2c3715SXin Li*> Download CLADIV + dependencies 10*bf2c3715SXin Li*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/cladiv.f"> 11*bf2c3715SXin Li*> [TGZ]</a> 12*bf2c3715SXin Li*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/cladiv.f"> 13*bf2c3715SXin Li*> [ZIP]</a> 14*bf2c3715SXin Li*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/cladiv.f"> 15*bf2c3715SXin Li*> [TXT]</a> 16*bf2c3715SXin Li*> \endhtmlonly 17*bf2c3715SXin Li* 18*bf2c3715SXin Li* Definition: 19*bf2c3715SXin Li* =========== 20*bf2c3715SXin Li* 21*bf2c3715SXin Li* COMPLEX FUNCTION CLADIV( X, Y ) 22*bf2c3715SXin Li* 23*bf2c3715SXin Li* .. Scalar Arguments .. 24*bf2c3715SXin Li* COMPLEX X, Y 25*bf2c3715SXin Li* .. 26*bf2c3715SXin Li* 27*bf2c3715SXin Li* 28*bf2c3715SXin Li*> \par Purpose: 29*bf2c3715SXin Li* ============= 30*bf2c3715SXin Li*> 31*bf2c3715SXin Li*> \verbatim 32*bf2c3715SXin Li*> 33*bf2c3715SXin Li*> CLADIV := X / Y, where X and Y are complex. The computation of X / Y 34*bf2c3715SXin Li*> will not overflow on an intermediary step unless the results 35*bf2c3715SXin Li*> overflows. 36*bf2c3715SXin Li*> \endverbatim 37*bf2c3715SXin Li* 38*bf2c3715SXin Li* Arguments: 39*bf2c3715SXin Li* ========== 40*bf2c3715SXin Li* 41*bf2c3715SXin Li*> \param[in] X 42*bf2c3715SXin Li*> \verbatim 43*bf2c3715SXin Li*> X is COMPLEX 44*bf2c3715SXin Li*> \endverbatim 45*bf2c3715SXin Li*> 46*bf2c3715SXin Li*> \param[in] Y 47*bf2c3715SXin Li*> \verbatim 48*bf2c3715SXin Li*> Y is COMPLEX 49*bf2c3715SXin Li*> The complex scalars X and Y. 50*bf2c3715SXin Li*> \endverbatim 51*bf2c3715SXin Li* 52*bf2c3715SXin Li* Authors: 53*bf2c3715SXin Li* ======== 54*bf2c3715SXin Li* 55*bf2c3715SXin Li*> \author Univ. of Tennessee 56*bf2c3715SXin Li*> \author Univ. of California Berkeley 57*bf2c3715SXin Li*> \author Univ. of Colorado Denver 58*bf2c3715SXin Li*> \author NAG Ltd. 59*bf2c3715SXin Li* 60*bf2c3715SXin Li*> \date November 2011 61*bf2c3715SXin Li* 62*bf2c3715SXin Li*> \ingroup complexOTHERauxiliary 63*bf2c3715SXin Li* 64*bf2c3715SXin Li* ===================================================================== 65*bf2c3715SXin Li COMPLEX FUNCTION CLADIV( X, Y ) 66*bf2c3715SXin Li* 67*bf2c3715SXin Li* -- LAPACK auxiliary routine (version 3.4.0) -- 68*bf2c3715SXin Li* -- LAPACK is a software package provided by Univ. of Tennessee, -- 69*bf2c3715SXin Li* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 70*bf2c3715SXin Li* November 2011 71*bf2c3715SXin Li* 72*bf2c3715SXin Li* .. Scalar Arguments .. 73*bf2c3715SXin Li COMPLEX X, Y 74*bf2c3715SXin Li* .. 75*bf2c3715SXin Li* 76*bf2c3715SXin Li* ===================================================================== 77*bf2c3715SXin Li* 78*bf2c3715SXin Li* .. Local Scalars .. 79*bf2c3715SXin Li REAL ZI, ZR 80*bf2c3715SXin Li* .. 81*bf2c3715SXin Li* .. External Subroutines .. 82*bf2c3715SXin Li EXTERNAL SLADIV 83*bf2c3715SXin Li* .. 84*bf2c3715SXin Li* .. Intrinsic Functions .. 85*bf2c3715SXin Li INTRINSIC AIMAG, CMPLX, REAL 86*bf2c3715SXin Li* .. 87*bf2c3715SXin Li* .. Executable Statements .. 88*bf2c3715SXin Li* 89*bf2c3715SXin Li CALL SLADIV( REAL( X ), AIMAG( X ), REAL( Y ), AIMAG( Y ), ZR, 90*bf2c3715SXin Li $ ZI ) 91*bf2c3715SXin Li CLADIV = CMPLX( ZR, ZI ) 92*bf2c3715SXin Li* 93*bf2c3715SXin Li RETURN 94*bf2c3715SXin Li* 95*bf2c3715SXin Li* End of CLADIV 96*bf2c3715SXin Li* 97*bf2c3715SXin Li END 98