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 absolute value of a complex number
29
*> \author Univ. of Tennessee
30
*> \author Univ. of California Berkeley
31
*> \author Univ. of Colorado Denver
34
*> \date November 2011
36
*> \ingroup single_blas_level1
38
* =====================================================================
39
REAL FUNCTION SCABS1(Z)
41
* -- Reference BLAS level1 routine (version 3.4.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))