LAPACK
3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
slarscl2.f
Go to the documentation of this file.
1
*> \brief \b SLARSCL2 performs reciprocal diagonal scaling on a matrix.
2
*
3
* =========== DOCUMENTATION ===========
4
*
5
* Online html documentation available at
6
* http://www.netlib.org/lapack/explore-html/
7
*
8
*> \htmlonly
9
*> Download SLARSCL2 + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slarscl2.f">
11
*> [TGZ]</a>
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slarscl2.f">
13
*> [ZIP]</a>
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slarscl2.f">
15
*> [TXT]</a>
16
*> \endhtmlonly
17
*
18
* Definition:
19
* ===========
20
*
21
* SUBROUTINE SLARSCL2 ( M, N, D, X, LDX )
22
*
23
* .. Scalar Arguments ..
24
* INTEGER M, N, LDX
25
* ..
26
* .. Array Arguments ..
27
* REAL D( * ), X( LDX, * )
28
* ..
29
*
30
*
31
*> \par Purpose:
32
* =============
33
*>
34
*> \verbatim
35
*>
36
*> SLARSCL2 performs a reciprocal diagonal scaling on a matrix:
37
*> x <-- inv(D) * x
38
*> where the diagonal matrix D is stored as a vector.
39
*>
40
*> Eventually to be replaced by BLAS_sge_diag_scale in the new BLAS
41
*> standard.
42
*> \endverbatim
43
*
44
* Arguments:
45
* ==========
46
*
47
*> \param[in] M
48
*> \verbatim
49
*> M is INTEGER
50
*> The number of rows of D and X. M >= 0.
51
*> \endverbatim
52
*>
53
*> \param[in] N
54
*> \verbatim
55
*> N is INTEGER
56
*> The number of columns of X. N >= 0.
57
*> \endverbatim
58
*>
59
*> \param[in] D
60
*> \verbatim
61
*> D is REAL array, length M
62
*> Diagonal matrix D, stored as a vector of length M.
63
*> \endverbatim
64
*>
65
*> \param[in,out] X
66
*> \verbatim
67
*> X is REAL array, dimension (LDX,N)
68
*> On entry, the matrix X to be scaled by D.
69
*> On exit, the scaled matrix.
70
*> \endverbatim
71
*>
72
*> \param[in] LDX
73
*> \verbatim
74
*> LDX is INTEGER
75
*> The leading dimension of the matrix X. LDX >= M.
76
*> \endverbatim
77
*
78
* Authors:
79
* ========
80
*
81
*> \author Univ. of Tennessee
82
*> \author Univ. of California Berkeley
83
*> \author Univ. of Colorado Denver
84
*> \author NAG Ltd.
85
*
86
*> \ingroup larscl2
87
*
88
* =====================================================================
89
SUBROUTINE
slarscl2
( M, N, D, X, LDX )
90
*
91
* -- LAPACK computational routine --
92
* -- LAPACK is a software package provided by Univ. of Tennessee, --
93
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
94
*
95
* .. Scalar Arguments ..
96
INTEGER
M, N, LDX
97
* ..
98
* .. Array Arguments ..
99
REAL
D( * ), X( LDX, * )
100
* ..
101
*
102
* =====================================================================
103
*
104
* .. Local Scalars ..
105
INTEGER
I, J
106
* ..
107
* .. Executable Statements ..
108
*
109
DO
j = 1, n
110
DO
i = 1, m
111
x( i, j ) = x( i, j ) / d( i )
112
END DO
113
END DO
114
115
RETURN
116
END
slarscl2
subroutine slarscl2(m, n, d, x, ldx)
SLARSCL2 performs reciprocal diagonal scaling on a matrix.
Definition
slarscl2.f:90
SRC
slarscl2.f
Generated on Tue Nov 28 2023 11:55:07 for LAPACK by
1.9.7