1
double precision function dcabs1(z)
3
* $Id: dcabs1.f 19695 2010-10-29 16:51:02Z d3y133 $
9
dcabs1 = dabs(t(1)) + dabs(t(2))
3
* =========== DOCUMENTATION ===========
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
11
* DOUBLE PRECISION FUNCTION DCABS1(Z)
13
* .. Scalar Arguments ..
24
*> DCABS1 computes absolute value of a double complex number
30
*> \author Univ. of Tennessee
31
*> \author Univ. of California Berkeley
32
*> \author Univ. of Colorado Denver
35
*> \date November 2011
37
*> \ingroup double_blas_level1
39
* =====================================================================
40
DOUBLE PRECISION FUNCTION DCABS1(Z)
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..--
47
* .. Scalar Arguments ..
51
* =====================================================================
53
* .. Intrinsic Functions ..
54
INTRINSIC ABS,DBLE,DIMAG
56
DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))