BLAS/SRC/scabs1.f

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