LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
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 abs1
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
scabs1
real function scabs1(z)
SCABS1
Definition scabs1.f:46