LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
real function scabs1 ( complex  Z)

SCABS1

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

Definition at line 40 of file scabs1.f.

40 *
41 * -- Reference BLAS level1 routine (version 3.6.0) --
42 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
43 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
44 * November 2015
45 *
46 * .. Scalar Arguments ..
47  COMPLEX z
48 * ..
49 *
50 * =====================================================================
51 *
52 * .. Intrinsic Functions ..
53  INTRINSIC abs,aimag,real
54 * ..
55  scabs1 = abs(REAL(z)) + abs(aimag(z))
56  RETURN
real function scabs1(Z)
SCABS1
Definition: scabs1.f:40