double precision function dcabs1

(

complex*16

Z

)

DCABS1

Purpose:

 DCABS1 computes |Re(.)| + |Im(.)| of a double complex number

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date

December 2016

Definition at line 41 of file dcabs1.f.

*
*  -- Reference BLAS level1 routine (version 3.7.0) --
*  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     December 2016
*
*     .. Scalar Arguments ..
      COMPLEX*16 z
*     ..
*     ..
*  =====================================================================
*
*     .. Intrinsic Functions ..
      INTRINSIC abs,dble,dimag
*
      dcabs1 = abs(dble(z)) + abs(dimag(z))
      RETURN