Annotation of rpl/lapack/blas/dcabs1.f, revision 1.7
1.7 ! bertrand 1: *> \brief \b DCABS1
! 2: *
! 3: * =========== DOCUMENTATION ===========
! 4: *
! 5: * Online html documentation available at
! 6: * http://www.netlib.org/lapack/explore-html/
! 7: *
! 8: * Definition:
! 9: * ===========
! 10: *
! 11: * DOUBLE PRECISION FUNCTION DCABS1(Z)
! 12: *
! 13: * .. Scalar Arguments ..
! 14: * COMPLEX*16 Z
! 15: * ..
! 16: * ..
! 17: *
! 18: *
! 19: *> \par Purpose:
! 20: * =============
! 21: *>
! 22: *> \verbatim
! 23: *>
! 24: *> DCABS1 computes absolute value of a double complex number
! 25: *> \endverbatim
! 26: *
! 27: * Authors:
! 28: * ========
! 29: *
! 30: *> \author Univ. of Tennessee
! 31: *> \author Univ. of California Berkeley
! 32: *> \author Univ. of Colorado Denver
! 33: *> \author NAG Ltd.
! 34: *
! 35: *> \date November 2011
! 36: *
! 37: *> \ingroup double_blas_level1
! 38: *
! 39: * =====================================================================
1.1 bertrand 40: DOUBLE PRECISION FUNCTION DCABS1(Z)
1.7 ! bertrand 41: *
! 42: * -- Reference BLAS level1 routine (version 3.4.0) --
! 43: * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
! 44: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
! 45: * November 2011
! 46: *
1.1 bertrand 47: * .. Scalar Arguments ..
1.7 ! bertrand 48: COMPLEX*16 Z
1.1 bertrand 49: * ..
50: * ..
51: * =====================================================================
52: *
53: * .. Intrinsic Functions ..
54: INTRINSIC ABS,DBLE,DIMAG
55: *
56: DCABS1 = ABS(DBLE(Z)) + ABS(DIMAG(Z))
57: RETURN
58: END
CVSweb interface <joel.bertrand@systella.fr>