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.

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

Here is the call graph for this function:

Here is the caller graph for this function: