LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ dcabs1()

double precision function dcabs1 ( complex*16  Z)

DCABS1

Purpose:
 DCABS1 computes |Re(.)| + |Im(.)| of a double complex number
Parameters
[in]Z
          Z is COMPLEX*16
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.

Definition at line 46 of file dcabs1.f.

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 *
double precision function dcabs1(Z)
DCABS1
Definition: dcabs1.f:47
Here is the caller graph for this function: