3 * =========== DOCUMENTATION ===========
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
11 * REAL FUNCTION SCABS1(Z)
13 * .. Scalar Arguments ..
23 *> SCABS1 computes |Re(.)| + |Im(.)| of a complex number
29 *> \author Univ. of Tennessee
30 *> \author Univ. of California Berkeley
31 *> \author Univ. of Colorado Denver
34 *> \date November 2015
36 *> \ingroup single_blas_level1
38 * =====================================================================
39 REAL FUNCTION SCABS1(Z)
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..--
46 * .. Scalar Arguments ..
50 * =====================================================================
52 * .. Intrinsic Functions ..
53 INTRINSIC ABS,AIMAG,REAL
55 SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))