| *> \brief \b ZLADIV |
| * |
| * =========== DOCUMENTATION =========== |
| * |
| * Online html documentation available at |
| * http://www.netlib.org/lapack/explore-html/ |
| * |
| *> \htmlonly |
| *> Download ZLADIV + dependencies |
| *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zladiv.f"> |
| *> [TGZ]</a> |
| *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zladiv.f"> |
| *> [ZIP]</a> |
| *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zladiv.f"> |
| *> [TXT]</a> |
| *> \endhtmlonly |
| * |
| * Definition: |
| * =========== |
| * |
| * COMPLEX*16 FUNCTION ZLADIV( X, Y ) |
| * |
| * .. Scalar Arguments .. |
| * COMPLEX*16 X, Y |
| * .. |
| * |
| * |
| *> \par Purpose: |
| * ============= |
| *> |
| *> \verbatim |
| *> |
| *> ZLADIV := X / Y, where X and Y are complex. The computation of X / Y |
| *> will not overflow on an intermediary step unless the results |
| *> overflows. |
| *> \endverbatim |
| * |
| * Arguments: |
| * ========== |
| * |
| *> \param[in] X |
| *> \verbatim |
| *> X is COMPLEX*16 |
| *> \endverbatim |
| *> |
| *> \param[in] Y |
| *> \verbatim |
| *> Y is COMPLEX*16 |
| *> The complex scalars X and Y. |
| *> \endverbatim |
| * |
| * Authors: |
| * ======== |
| * |
| *> \author Univ. of Tennessee |
| *> \author Univ. of California Berkeley |
| *> \author Univ. of Colorado Denver |
| *> \author NAG Ltd. |
| * |
| *> \date November 2011 |
| * |
| *> \ingroup complex16OTHERauxiliary |
| * |
| * ===================================================================== |
| COMPLEX*16 FUNCTION ZLADIV( X, Y ) |
| * |
| * -- LAPACK auxiliary routine (version 3.4.0) -- |
| * -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| * November 2011 |
| * |
| * .. Scalar Arguments .. |
| COMPLEX*16 X, Y |
| * .. |
| * |
| * ===================================================================== |
| * |
| * .. Local Scalars .. |
| DOUBLE PRECISION ZI, ZR |
| * .. |
| * .. External Subroutines .. |
| EXTERNAL DLADIV |
| * .. |
| * .. Intrinsic Functions .. |
| INTRINSIC DBLE, DCMPLX, DIMAG |
| * .. |
| * .. Executable Statements .. |
| * |
| CALL DLADIV( DBLE( X ), DIMAG( X ), DBLE( Y ), DIMAG( Y ), ZR, |
| $ ZI ) |
| ZLADIV = DCMPLX( ZR, ZI ) |
| * |
| RETURN |
| * |
| * End of ZLADIV |
| * |
| END |
