Return to dcabs1.f CVS log

Up to [local] / rpl / lapack / blas

Mise à jour de Lapack.

    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: *> \date November 2017
   44: *
   45: *> \ingroup double_blas_level1
   46: *
   47: *  =====================================================================
   48:       DOUBLE PRECISION FUNCTION DCABS1(Z)
   49: *
   50: *  -- Reference BLAS level1 routine (version 3.8.0) --
   51: *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
   52: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   53: *     November 2017
   54: *
   55: *     .. Scalar Arguments ..
   56:       COMPLEX*16 Z
   57: *     ..
   58: *     ..
   59: *  =====================================================================
   60: *
   61: *     .. Intrinsic Functions ..
   62:       INTRINSIC ABS,DBLE,DIMAG
   63: *
   64:       DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))
   65:       RETURN
   66:       END