Annotation of rpl/lapack/lapack/zladiv.f, revision 1.8
1.8 ! bertrand 1: *> \brief \b ZLADIV
! 2: *
! 3: * =========== DOCUMENTATION ===========
! 4: *
! 5: * Online html documentation available at
! 6: * http://www.netlib.org/lapack/explore-html/
! 7: *
! 8: *> \htmlonly
! 9: *> Download ZLADIV + dependencies
! 10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zladiv.f">
! 11: *> [TGZ]</a>
! 12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zladiv.f">
! 13: *> [ZIP]</a>
! 14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zladiv.f">
! 15: *> [TXT]</a>
! 16: *> \endhtmlonly
! 17: *
! 18: * Definition:
! 19: * ===========
! 20: *
! 21: * COMPLEX*16 FUNCTION ZLADIV( X, Y )
! 22: *
! 23: * .. Scalar Arguments ..
! 24: * COMPLEX*16 X, Y
! 25: * ..
! 26: *
! 27: *
! 28: *> \par Purpose:
! 29: * =============
! 30: *>
! 31: *> \verbatim
! 32: *>
! 33: *> ZLADIV := 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*16
! 44: *> \endverbatim
! 45: *>
! 46: *> \param[in] Y
! 47: *> \verbatim
! 48: *> Y is COMPLEX*16
! 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 complex16OTHERauxiliary
! 63: *
! 64: * =====================================================================
1.1 bertrand 65: COMPLEX*16 FUNCTION ZLADIV( X, Y )
66: *
1.8 ! bertrand 67: * -- LAPACK auxiliary routine (version 3.4.0) --
1.1 bertrand 68: * -- LAPACK is a software package provided by Univ. of Tennessee, --
69: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
1.8 ! bertrand 70: * November 2011
1.1 bertrand 71: *
72: * .. Scalar Arguments ..
73: COMPLEX*16 X, Y
74: * ..
75: *
76: * =====================================================================
77: *
78: * .. Local Scalars ..
79: DOUBLE PRECISION ZI, ZR
80: * ..
81: * .. External Subroutines ..
82: EXTERNAL DLADIV
83: * ..
84: * .. Intrinsic Functions ..
85: INTRINSIC DBLE, DCMPLX, DIMAG
86: * ..
87: * .. Executable Statements ..
88: *
89: CALL DLADIV( DBLE( X ), DIMAG( X ), DBLE( Y ), DIMAG( Y ), ZR,
90: $ ZI )
91: ZLADIV = DCMPLX( ZR, ZI )
92: *
93: RETURN
94: *
95: * End of ZLADIV
96: *
97: END
CVSweb interface <joel.bertrand@systella.fr>