LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ 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 call graph for this function:
Here is the caller graph for this function: