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