LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
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
* 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 December 2016
36
*
37
*> \ingroup double_blas_level1
38
*
39
* =====================================================================
40
DOUBLE PRECISION
FUNCTION
dcabs1
(Z)
41
*
42
* -- Reference BLAS level1 routine (version 3.7.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
* December 2016
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
dcabs1
double precision function dcabs1(Z)
DCABS1
Definition:
dcabs1.f:41
BLAS
SRC
dcabs1.f
Generated on Fri Dec 23 2016 15:28:03 for LAPACK by
1.8.10