LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
double precision function dcabs1 ( complex*16  Z)

DCABS1

Purpose:
 DCABS1 computes |Re(.)| + |Im(.)| of a double complex number 
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2015

Definition at line 41 of file dcabs1.f.

41 *
42 * -- Reference BLAS level1 routine (version 3.6.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 2015
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
double precision function dcabs1(Z)
DCABS1
Definition: dcabs1.f:41