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

Go to the source code of this file.

Functions/Subroutines

real function scabs1 (Z)
 SCABS1 More...
 

Function/Subroutine Documentation

real function scabs1 ( complex  Z)

SCABS1

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

Definition at line 40 of file scabs1.f.

40 *
41 * -- Reference BLAS level1 routine (version 3.4.0) --
42 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
43 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
44 * November 2011
45 *
46 * .. Scalar Arguments ..
47  COMPLEX z
48 * ..
49 *
50 * =====================================================================
51 *
52 * .. Intrinsic Functions ..
53  INTRINSIC abs,aimag,real
54 * ..
55  scabs1 = abs(REAL(z)) + abs(aimag(z))
56  RETURN
real function scabs1(Z)
SCABS1
Definition: scabs1.f:40