Mercurial > hg > octave-lyh

view libcruft/blas/scabs1.f @ 8492:9e18aff77e9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[docs] remove
author Brian Gough <bjg@gnu.org>
date Tue, 13 Jan 2009 00:27:00 -0500
parents 82be108cc558
children
line wrap: on
line source

      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