LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
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 |Re(.)| + |Im(.)| of a complex number
24 *> \endverbatim
25 *
26 * Arguments:
27 * ==========
28 *
29 *> \param[in] Z
30 *> \verbatim
31 *> Z is COMPLEX
32 *> \endverbatim
33 *
34 * Authors:
35 * ========
36 *
37 *> \author Univ. of Tennessee
38 *> \author Univ. of California Berkeley
39 *> \author Univ. of Colorado Denver
40 *> \author NAG Ltd.
41 *
42 *> \ingroup single_blas_level1
43 *
44 * =====================================================================
45  REAL function scabs1(z)
46 *
47 * -- Reference BLAS level1 routine --
48 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
49 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
50 *
51 * .. Scalar Arguments ..
52  COMPLEX z
53 * ..
54 *
55 * =====================================================================
56 *
57 * .. Intrinsic Functions ..
58  INTRINSIC abs,aimag,real
59 * ..
60  scabs1 = abs(real(z)) + abs(aimag(z))
61  RETURN
62 *
63 * End of SCABS1
64 *
65  END
real function scabs1(Z)
SCABS1
Definition: scabs1.f:46