LAPACK  3.8.0
LAPACK: Linear Algebra PACKage
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 *> \date November 2017
44 *
45 *> \ingroup double_blas_level1
46 *
47 * =====================================================================
48  DOUBLE PRECISION FUNCTION dcabs1(Z)
49 *
50 * -- Reference BLAS level1 routine (version 3.8.0) --
51 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
52 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
53 * November 2017
54 *
55 * .. Scalar Arguments ..
56  COMPLEX*16 Z
57 * ..
58 * ..
59 * =====================================================================
60 *
61 * .. Intrinsic Functions ..
62  INTRINSIC abs,dble,dimag
63 *
64  dcabs1 = abs(dble(z)) + abs(dimag(z))
65  RETURN
66  END
double precision function dcabs1(Z)
DCABS1
Definition: dcabs1.f:49