SCABS1 computes |Re(.)| + |Im(.)| of a complex number
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=sp), | intent(in) | :: | z |
pure real(sp) function stdlib_scabs1(z) !! SCABS1 computes |Re(.)| + |Im(.)| of a 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(sp), intent(in) :: z ! ===================================================================== ! Intrinsic Functions intrinsic :: abs,aimag,real stdlib_scabs1 = abs(real(z,KIND=sp)) + abs(aimag(z)) return end function stdlib_scabs1