stdlib_scabs1 Function

public pure function stdlib_scabs1(z)

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

Arguments

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

Return Value real(kind=sp)


Source Code

     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