Return to dcabs1.f CVS log

Up to [local] / rpl / lapack / blas

Première mise à jour de lapack et blas.

    1: *> \brief \b DCABS1
    2: *
    3: *  =========== DOCUMENTATION ===========
    4: *
    5: * Online html documentation available at
    6: *            http://www.netlib.org/lapack/explore-html/
    7: *
    8: *  Definition:
    9: *  ===========
   10: *
   11: *       DOUBLE PRECISION FUNCTION DCABS1(Z)
   12: *
   13: *       .. Scalar Arguments ..
   14: *       COMPLEX*16 Z
   15: *       ..
   16: *       ..
   17: *
   18: *
   19: *> \par Purpose:
   20: *  =============
   21: *>
   22: *> \verbatim
   23: *>
   24: *> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number
   25: *> \endverbatim
   26: *
   27: *  Arguments:
   28: *  ==========
   29: *
   30: *> \param[in] Z
   31: *> \verbatim
   32: *>          Z is COMPLEX*16
   33: *> \endverbatim
   34: *
   35: *  Authors:
   36: *  ========
   37: *
   38: *> \author Univ. of Tennessee
   39: *> \author Univ. of California Berkeley
   40: *> \author Univ. of Colorado Denver
   41: *> \author NAG Ltd.
   42: *
   43: *> \ingroup double_blas_level1
   44: *
   45: *  =====================================================================
   46:       DOUBLE PRECISION FUNCTION DCABS1(Z)
   47: *
   48: *  -- Reference BLAS level1 routine --
   49: *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
   50: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   51: *
   52: *     .. Scalar Arguments ..
   53:       COMPLEX*16 Z
   54: *     ..
   55: *     ..
   56: *  =====================================================================
   57: *
   58: *     .. Intrinsic Functions ..
   59:       INTRINSIC ABS,DBLE,DIMAG
   60: *
   61:       DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))
   62:       RETURN
   63: *
   64: *     End of DCABS1
   65: *
   66:       END