![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b ZLADIV 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 *> \htmlonly 00009 *> Download ZLADIV + dependencies 00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zladiv.f"> 00011 *> [TGZ]</a> 00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zladiv.f"> 00013 *> [ZIP]</a> 00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zladiv.f"> 00015 *> [TXT]</a> 00016 *> \endhtmlonly 00017 * 00018 * Definition: 00019 * =========== 00020 * 00021 * COMPLEX*16 FUNCTION ZLADIV( X, Y ) 00022 * 00023 * .. Scalar Arguments .. 00024 * COMPLEX*16 X, Y 00025 * .. 00026 * 00027 * 00028 *> \par Purpose: 00029 * ============= 00030 *> 00031 *> \verbatim 00032 *> 00033 *> ZLADIV := X / Y, where X and Y are complex. The computation of X / Y 00034 *> will not overflow on an intermediary step unless the results 00035 *> overflows. 00036 *> \endverbatim 00037 * 00038 * Arguments: 00039 * ========== 00040 * 00041 *> \param[in] X 00042 *> \verbatim 00043 *> X is COMPLEX*16 00044 *> \endverbatim 00045 *> 00046 *> \param[in] Y 00047 *> \verbatim 00048 *> Y is COMPLEX*16 00049 *> The complex scalars X and Y. 00050 *> \endverbatim 00051 * 00052 * Authors: 00053 * ======== 00054 * 00055 *> \author Univ. of Tennessee 00056 *> \author Univ. of California Berkeley 00057 *> \author Univ. of Colorado Denver 00058 *> \author NAG Ltd. 00059 * 00060 *> \date November 2011 00061 * 00062 *> \ingroup complex16OTHERauxiliary 00063 * 00064 * ===================================================================== 00065 COMPLEX*16 FUNCTION ZLADIV( X, Y ) 00066 * 00067 * -- LAPACK auxiliary routine (version 3.4.0) -- 00068 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00069 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00070 * November 2011 00071 * 00072 * .. Scalar Arguments .. 00073 COMPLEX*16 X, Y 00074 * .. 00075 * 00076 * ===================================================================== 00077 * 00078 * .. Local Scalars .. 00079 DOUBLE PRECISION ZI, ZR 00080 * .. 00081 * .. External Subroutines .. 00082 EXTERNAL DLADIV 00083 * .. 00084 * .. Intrinsic Functions .. 00085 INTRINSIC DBLE, DCMPLX, DIMAG 00086 * .. 00087 * .. Executable Statements .. 00088 * 00089 CALL DLADIV( DBLE( X ), DIMAG( X ), DBLE( Y ), DIMAG( Y ), ZR, 00090 $ ZI ) 00091 ZLADIV = DCMPLX( ZR, ZI ) 00092 * 00093 RETURN 00094 * 00095 * End of ZLADIV 00096 * 00097 END