LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
cladiv.f
Go to the documentation of this file.
00001 *> \brief \b CLADIV
00002 *
00003 *  =========== DOCUMENTATION ===========
00004 *
00005 * Online html documentation available at 
00006 *            http://www.netlib.org/lapack/explore-html/ 
00007 *
00008 *> \htmlonly
00009 *> Download CLADIV + dependencies 
00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/cladiv.f"> 
00011 *> [TGZ]</a> 
00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/cladiv.f"> 
00013 *> [ZIP]</a> 
00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/cladiv.f"> 
00015 *> [TXT]</a>
00016 *> \endhtmlonly 
00017 *
00018 *  Definition:
00019 *  ===========
00020 *
00021 *       COMPLEX FUNCTION CLADIV( X, Y )
00022 * 
00023 *       .. Scalar Arguments ..
00024 *       COMPLEX            X, Y
00025 *       ..
00026 *  
00027 *
00028 *> \par Purpose:
00029 *  =============
00030 *>
00031 *> \verbatim
00032 *>
00033 *> CLADIV := 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
00044 *> \endverbatim
00045 *>
00046 *> \param[in] Y
00047 *> \verbatim
00048 *>          Y is COMPLEX
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 complexOTHERauxiliary
00063 *
00064 *  =====================================================================
00065       COMPLEX FUNCTION CLADIV( 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            X, Y
00074 *     ..
00075 *
00076 *  =====================================================================
00077 *
00078 *     .. Local Scalars ..
00079       REAL               ZI, ZR
00080 *     ..
00081 *     .. External Subroutines ..
00082       EXTERNAL           SLADIV
00083 *     ..
00084 *     .. Intrinsic Functions ..
00085       INTRINSIC          AIMAG, CMPLX, REAL
00086 *     ..
00087 *     .. Executable Statements ..
00088 *
00089       CALL SLADIV( REAL( X ), AIMAG( X ), REAL( Y ), AIMAG( Y ), ZR,
00090      $             ZI )
00091       CLADIV = CMPLX( ZR, ZI )
00092 *
00093       RETURN
00094 *
00095 *     End of CLADIV
00096 *
00097       END
 All Files Functions