DCABS1 computes |Re(.)| + |Im(.)| of a double complex number
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=dp), | intent(in) | :: | z |
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