LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
scsum1.f
Go to the documentation of this file.
1
*> \brief \b SCSUM1 forms the 1-norm of the complex vector using the true absolute value.
2
*
3
* =========== DOCUMENTATION ===========
4
*
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
7
*
8
*> \htmlonly
9
*> Download SCSUM1 + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/scsum1.f">
11
*> [TGZ]</a>
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/scsum1.f">
13
*> [ZIP]</a>
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/scsum1.f">
15
*> [TXT]</a>
16
*> \endhtmlonly
17
*
18
* Definition:
19
* ===========
20
*
21
* REAL FUNCTION SCSUM1( N, CX, INCX )
22
*
23
* .. Scalar Arguments ..
24
* INTEGER INCX, N
25
* ..
26
* .. Array Arguments ..
27
* COMPLEX CX( * )
28
* ..
29
*
30
*
31
*> \par Purpose:
32
* =============
33
*>
34
*> \verbatim
35
*>
36
*> SCSUM1 takes the sum of the absolute values of a complex
37
*> vector and returns a single precision result.
38
*>
39
*> Based on SCASUM from the Level 1 BLAS.
40
*> The change is to use the 'genuine' absolute value.
41
*> \endverbatim
42
*
43
* Arguments:
44
* ==========
45
*
46
*> \param[in] N
47
*> \verbatim
48
*> N is INTEGER
49
*> The number of elements in the vector CX.
50
*> \endverbatim
51
*>
52
*> \param[in] CX
53
*> \verbatim
54
*> CX is COMPLEX array, dimension (N)
55
*> The vector whose elements will be summed.
56
*> \endverbatim
57
*>
58
*> \param[in] INCX
59
*> \verbatim
60
*> INCX is INTEGER
61
*> The spacing between successive values of CX. INCX > 0.
62
*> \endverbatim
63
*
64
* Authors:
65
* ========
66
*
67
*> \author Univ. of Tennessee
68
*> \author Univ. of California Berkeley
69
*> \author Univ. of Colorado Denver
70
*> \author NAG Ltd.
71
*
72
*> \date December 2016
73
*
74
*> \ingroup complexOTHERauxiliary
75
*
76
*> \par Contributors:
77
* ==================
78
*>
79
*> Nick Higham for use with CLACON.
80
*
81
* =====================================================================
82
REAL
FUNCTION
scsum1
( N, CX, INCX )
83
*
84
* -- LAPACK auxiliary routine (version 3.7.0) --
85
* -- LAPACK is a software package provided by Univ. of Tennessee, --
86
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
87
* December 2016
88
*
89
* .. Scalar Arguments ..
90
INTEGER
INCX, N
91
* ..
92
* .. Array Arguments ..
93
COMPLEX
CX( * )
94
* ..
95
*
96
* =====================================================================
97
*
98
* .. Local Scalars ..
99
INTEGER
I, NINCX
100
REAL
STEMP
101
* ..
102
* .. Intrinsic Functions ..
103
INTRINSIC
abs
104
* ..
105
* .. Executable Statements ..
106
*
107
scsum1
= 0.0e0
108
stemp = 0.0e0
109
IF
( n.LE.0 )
110
$
RETURN
111
IF
( incx.EQ.1 )
112
$
GO TO
20
113
*
114
* CODE FOR INCREMENT NOT EQUAL TO 1
115
*
116
nincx = n*incx
117
DO
10 i = 1, nincx, incx
118
*
119
* NEXT LINE MODIFIED.
120
*
121
stemp = stemp + abs( cx( i ) )
122
10
CONTINUE
123
scsum1
= stemp
124
RETURN
125
*
126
* CODE FOR INCREMENT EQUAL TO 1
127
*
128
20
CONTINUE
129
DO
30 i = 1, n
130
*
131
* NEXT LINE MODIFIED.
132
*
133
stemp = stemp + abs( cx( i ) )
134
30
CONTINUE
135
scsum1
= stemp
136
RETURN
137
*
138
* End of SCSUM1
139
*
140
END
scsum1
real function scsum1(N, CX, INCX)
SCSUM1 forms the 1-norm of the complex vector using the true absolute value.
Definition:
scsum1.f:83
SRC
scsum1.f
Generated on Fri Dec 23 2016 15:28:27 for LAPACK by
1.8.10