LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
dcabs1.f
Go to the documentation of this file.
1*> \brief \b DCABS1
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8* Definition:
9* ===========
10*
11* DOUBLE PRECISION FUNCTION DCABS1(Z)
12*
13* .. Scalar Arguments ..
14* COMPLEX*16 Z
15* ..
16* ..
17*
18*
19*> \par Purpose:
20* =============
21*>
22*> \verbatim
23*>
24*> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number
25*> \endverbatim
26*
27* Arguments:
28* ==========
29*
30*> \param[in] Z
31*> \verbatim
32*> Z is COMPLEX*16
33*> \endverbatim
34*
35* Authors:
36* ========
37*
38*> \author Univ. of Tennessee
39*> \author Univ. of California Berkeley
40*> \author Univ. of Colorado Denver
41*> \author NAG Ltd.
42*
43*> \ingroup abs1
44*
45* =====================================================================
46 DOUBLE PRECISION FUNCTION dcabs1(Z)
47*
48* -- Reference BLAS level1 routine --
49* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
50* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
51*
52* .. Scalar Arguments ..
53 COMPLEX*16 z
54* ..
55* ..
56* =====================================================================
57*
58* .. Intrinsic Functions ..
59 INTRINSIC abs,dble,dimag
60*
61 dcabs1 = abs(dble(z)) + abs(dimag(z))
62 RETURN
63*
64* End of DCABS1
65*
66 END
dcabs1
double precision function dcabs1(z)
DCABS1
Definition dcabs1.f:47