Home | History | Annotate | Download | only in lapack
      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