summaryrefslogtreecommitdiffhomepage
path: root/eigen/lapack/cladiv.f
diff options
context:
space:
mode:
Diffstat (limited to 'eigen/lapack/cladiv.f')
-rw-r--r--eigen/lapack/cladiv.f97
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