LAPACK  3.4.2
LAPACK: Linear Algebra PACKage
 All Files Functions Groups
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 absolute value of a double complex number
25 *> \endverbatim
26 *
27 * Authors:
28 * ========
29 *
30 *> \author Univ. of Tennessee
31 *> \author Univ. of California Berkeley
32 *> \author Univ. of Colorado Denver
33 *> \author NAG Ltd.
34 *
35 *> \date November 2011
36 *
37 *> \ingroup double_blas_level1
38 *
39 * =====================================================================
40  DOUBLE PRECISION FUNCTION dcabs1(Z)
41 *
42 * -- Reference BLAS level1 routine (version 3.4.0) --
43 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
44 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
45 * November 2011
46 *
47 * .. Scalar Arguments ..
48  COMPLEX*16 z
49 * ..
50 * ..
51 * =====================================================================
52 *
53 * .. Intrinsic Functions ..
54  INTRINSIC abs,dble,dimag
55 *
56  dcabs1 = abs(dble(z)) + abs(dimag(z))
57  return
58  END