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

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

      DOUBLE PRECISION FUNCTION DCABS1(Z)

*     .. Scalar Arguments ..

      DOUBLE COMPLEX Z

*     ..

*     ..

*  Purpose

*  =======

*

*  DCABS1 computes absolute value of a double complex number 

*

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

*

*     .. Intrinsic Functions ..

      INTRINSIC ABS,DBLE,DIMAG

*

      DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))

      RETURN

      END