LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ scabs1()

real function scabs1 ( complex  Z)

SCABS1

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

Definition at line 45 of file scabs1.f.

46 *
47 * -- Reference BLAS level1 routine --
48 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
49 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
50 *
51 * .. Scalar Arguments ..
52  COMPLEX Z
53 * ..
54 *
55 * =====================================================================
56 *
57 * .. Intrinsic Functions ..
58  INTRINSIC abs,aimag,real
59 * ..
60  scabs1 = abs(real(z)) + abs(aimag(z))
61  RETURN
62 *
63 * End of SCABS1
64 *
real function scabs1(Z)
SCABS1
Definition: scabs1.f:46
Here is the caller graph for this function: