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.

Date

November 2017

Definition at line 48 of file scabs1.f.

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

Here is the caller graph for this function: