*> \brief \b SCABS1
*
* =========== DOCUMENTATION ===========
* Online html documentation available at
* http://www.netlib.org/lapack/explore-html/
* Definition:
* ===========
* REAL FUNCTION SCABS1(Z)
* .. Scalar Arguments ..
* COMPLEX Z
* ..
*> \par Purpose:
* =============
*>
*> \verbatim
*> SCABS1 computes |Re(.)| + |Im(.)| of a complex number
*> \endverbatim
* Arguments:
* ==========
*> \param[in] Z
*> Z is COMPLEX
* Authors:
* ========
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*> \ingroup single_blas_level1
* =====================================================================
REAL FUNCTION SCABS1(Z)
* -- Reference BLAS level1 routine --
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
COMPLEX Z
* .. Intrinsic Functions ..
INTRINSIC ABS,AIMAG,REAL
SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))
RETURN
* End of SCABS1
END