stdlib_dcabs1 Function

public pure function stdlib_dcabs1(z)

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

Arguments

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

Return Value real(kind=dp)


Source Code

     pure real(dp) function stdlib_dcabs1(z)
     !! DCABS1 computes |Re(.)| + |Im(.)| of a double complex number
        ! -- 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(dp), intent(in) :: z
        ! =====================================================================
           ! Intrinsic Functions 
           intrinsic :: abs,real,aimag
           stdlib_dcabs1 = abs(real(z,KIND=dp)) + abs(aimag(z))
           return
     end function stdlib_dcabs1