dcabs1 Function

public pure function dcabs1(z)

NAME

dcabs1(3f) - [BLAS:DOUBLE_BLAS_LEVEL1] DCABS1 computes
|Re(.)| + |Im(.)| of a double complex number

SYNOPSIS

 double precision function dcabs1(z)

   .. Scalar Arguments ..
   complex(kind=real64),intent(in) ::  Z
   ..

DEFINITION

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

OPTIONS

Z

       Z is complex(kind=real64)

AUTHORS

  • Univ. of Tennessee
  • Univ. of California Berkeley
  • Univ. of Colorado Denver
  • NAG Ltd.

date:November 2017

SEE ALSO

Online html documentation available at
http://www.netlib.org/lapack/explore-html/

Arguments

Type IntentOptional Attributes Name
complex(kind=real64), intent(in) :: z

Return Value doubleprecision


Contents

Source Code

dcabs1

Source Code

pure double precision function dcabs1(z)
implicit none
!
!  -- 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(kind=real64),intent(in) ::  z
!     ..
!  =====================================================================
!
!     .. Intrinsic Functions ..
      intrinsic abs,dble,dimag
!
      dcabs1 = abs(dble(z)) + abs(dimag(z))

end function dcabs1