LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
dcabs1.f File Reference

Go to the source code of this file.

Functions/Subroutines

double precision function dcabs1 (Z)
 DCABS1 More...
 

Function/Subroutine Documentation

double precision function dcabs1 ( complex*16  Z)

DCABS1

Purpose:
 DCABS1 computes absolute value of a double complex number 
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2011

Definition at line 41 of file dcabs1.f.

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 *
47 * .. Scalar Arguments ..
48  COMPLEX*16 z
49 * ..
50 * ..
51 * =====================================================================
52 *
53 * .. Intrinsic Functions ..
54  INTRINSIC abs,dble,dimag
55 *
56  dcabs1 = abs(dble(z)) + abs(dimag(z))
57  RETURN
double precision function dcabs1(Z)
DCABS1
Definition: dcabs1.f:41