diff options
Diffstat (limited to 'eigen/lapack/cladiv.f')
-rw-r--r-- | eigen/lapack/cladiv.f | 97 |
1 files changed, 0 insertions, 97 deletions
diff --git a/eigen/lapack/cladiv.f b/eigen/lapack/cladiv.f deleted file mode 100644 index 2807ac5..0000000 --- a/eigen/lapack/cladiv.f +++ /dev/null @@ -1,97 +0,0 @@ -*> \brief \b CLADIV -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download CLADIV + dependencies -*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/cladiv.f"> -*> [TGZ]</a> -*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/cladiv.f"> -*> [ZIP]</a> -*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/cladiv.f"> -*> [TXT]</a> -*> \endhtmlonly -* -* Definition: -* =========== -* -* COMPLEX FUNCTION CLADIV( X, Y ) -* -* .. Scalar Arguments .. -* COMPLEX X, Y -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> CLADIV := 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 -*> \endverbatim -*> -*> \param[in] Y -*> \verbatim -*> Y is COMPLEX -*> 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 complexOTHERauxiliary -* -* ===================================================================== - COMPLEX FUNCTION CLADIV( 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 X, Y -* .. -* -* ===================================================================== -* -* .. Local Scalars .. - REAL ZI, ZR -* .. -* .. External Subroutines .. - EXTERNAL SLADIV -* .. -* .. Intrinsic Functions .. - INTRINSIC AIMAG, CMPLX, REAL -* .. -* .. Executable Statements .. -* - CALL SLADIV( REAL( X ), AIMAG( X ), REAL( Y ), AIMAG( Y ), ZR, - $ ZI ) - CLADIV = CMPLX( ZR, ZI ) -* - RETURN -* -* End of CLADIV -* - END |