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: *  Authors:
   28: *  ========
   29: *
   30: *> \author Univ. of Tennessee
   31: *> \author Univ. of California Berkeley
   32: *> \author Univ. of Colorado Denver
   33: *> \author NAG Ltd.
   34: *
   35: *> \date December 2016
   36: *
   37: *> \ingroup double_blas_level1
   38: *
   39: *  =====================================================================
   40:       DOUBLE PRECISION FUNCTION DCABS1(Z)
   41: *
   42: *  -- Reference BLAS level1 routine (version 3.7.0) --
   43: *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
   44: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   45: *     December 2016
   46: *
   47: *     .. Scalar Arguments ..
   48:       COMPLEX*16 Z
   49: *     ..
   50: *     ..
   51: *  =====================================================================
   52: *
   53: *     .. Intrinsic Functions ..
   54:       INTRINSIC ABS,DBLE,DIMAG
   55: *
   56:       DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))
   57:       RETURN
   58:       END