LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
scabs1.f
Go to the documentation of this file.
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 absolute value 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 2011
35 *
36 *> \ingroup single_blas_level1
37 *
38 * =====================================================================
39  REAL FUNCTION scabs1(Z)
40 *
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..--
44 * November 2011
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