![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
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