scabs1 Function

public pure elemental function scabs1(z)

NAME

scabs1(3f) - [BLAS:SINGLE_BLAS_LEVEL1]

SYNOPSIS

 elemental real function scabs1(z)

   .. Scalar Arguments ..
   complex,intent(in) ::  z
   ..

DEFINITION

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

OPTIONS

Z

       Z is COMPLEX

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, intent(in) :: z

Return Value real


Contents

Source Code

scabs1

Source Code

pure elemental real function scabs1(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,intent(in) ::  z
!     ..
!  =====================================================================
!     .. Intrinsic Functions ..
      intrinsic abs,aimag,real
!     ..
      scabs1 = abs(real(z)) + abs(aimag(z))

end function scabs1