LAPACK  3.8.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.
Date
November 2017

Definition at line 49 of file dcabs1.f.

49 *
50 * -- Reference BLAS level1 routine (version 3.8.0) --
51 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
52 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
53 * November 2017
54 *
55 * .. Scalar Arguments ..
56  COMPLEX*16 z
57 * ..
58 * ..
59 * =====================================================================
60 *
61 * .. Intrinsic Functions ..
62  INTRINSIC abs,dble,dimag
63 *
64  dcabs1 = abs(dble(z)) + abs(dimag(z))
65  RETURN
double precision function dcabs1(Z)
DCABS1
Definition: dcabs1.f:49