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.

*
*  -- Reference BLAS level1 routine (version 3.6.0) --
*  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     November 2015
*
*     .. Scalar Arguments ..
      COMPLEX z
*     ..
*
*  =====================================================================
*
*     .. Intrinsic Functions ..
      INTRINSIC abs,aimag,real
*     ..
      scabs1 = abs(REAL(z)) + abs(aimag(z))
      RETURN