LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
scabs1.f
Go to the documentation of this file.
00001 *> \brief \b SCABS1
00002 *
00003 *  =========== DOCUMENTATION ===========
00004 *
00005 * Online html documentation available at 
00006 *            http://www.netlib.org/lapack/explore-html/ 
00007 *
00008 *  Definition:
00009 *  ===========
00010 *
00011 *       REAL FUNCTION SCABS1(Z)
00012 * 
00013 *       .. Scalar Arguments ..
00014 *       COMPLEX Z
00015 *       ..
00016 *  
00017 *
00018 *> \par Purpose:
00019 *  =============
00020 *>
00021 *> \verbatim
00022 *>
00023 *> SCABS1 computes absolute value of a complex number
00024 *> \endverbatim
00025 *
00026 *  Authors:
00027 *  ========
00028 *
00029 *> \author Univ. of Tennessee 
00030 *> \author Univ. of California Berkeley 
00031 *> \author Univ. of Colorado Denver 
00032 *> \author NAG Ltd. 
00033 *
00034 *> \date November 2011
00035 *
00036 *> \ingroup single_blas_level1
00037 *
00038 *  =====================================================================
00039       REAL FUNCTION SCABS1(Z)
00040 *
00041 *  -- Reference BLAS level1 routine (version 3.4.0) --
00042 *  -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
00043 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00044 *     November 2011
00045 *
00046 *     .. Scalar Arguments ..
00047       COMPLEX Z
00048 *     ..
00049 *
00050 *  =====================================================================
00051 *
00052 *     .. Intrinsic Functions ..
00053       INTRINSIC ABS,AIMAG,REAL
00054 *     ..
00055       SCABS1 = ABS(REAL(Z)) + ABS(AIMAG(Z))
00056       RETURN
00057       END
 All Files Functions