scabs1.f (cxxblas/netlib/blas/scabs1.f)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18

      REAL FUNCTION SCABS1(Z)

*     .. Scalar Arguments ..

      COMPLEX Z

*     ..

*

*  Purpose

*  =======

*

*  SCABS1 computes absolute value of a complex number

*

*  =====================================================================

*

*     .. Intrinsic Functions ..

      INTRINSIC ABS,AIMAG,REAL

*     ..

      SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))

      RETURN

      END