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