Mercurial > octave-nkf

view libcruft/blas/scabs1.f @ 12092:cca16271a517 release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
imread.m: fix test
author John W. Eaton <jwe@octave.org>
date Mon, 14 Sep 2009 07:57:38 +0200
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