LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
dcabs1.f
Go to the documentation of this file.
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
 All Files Functions