dcabs1()

double precision function dcabs1

(

complex*16

z

)

DCABS1

Purpose:

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

Parameters

[in]

Z

!> Z is COMPLEX*16 !>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 46 of file dcabs1.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*16 Z
*     ..
*     ..
*  =====================================================================
*
*     .. Intrinsic Functions ..
      INTRINSIC abs,dble,dimag
*
      dcabs1 = abs(dble(z)) + abs(dimag(z))
      RETURN
*
*     End of DCABS1
*

Here is the call graph for this function:

Here is the caller graph for this function: