1ZDRSCL(1) LAPACK auxiliary routine (version 3.2) ZDRSCL(1)
2
3
4
6 ZDRSCL - multiplies an n-element complex vector x by the real scalar
7 1/a
8
10 SUBROUTINE ZDRSCL( N, SA, SX, INCX )
11
12 INTEGER INCX, N
13
14 DOUBLE PRECISION SA
15
16 COMPLEX*16 SX( * )
17
19 ZDRSCL multiplies an n-element complex vector x by the real scalar 1/a.
20 This is done without overflow or underflow as long as the final result
21 x/a does not overflow or underflow.
22
24 N (input) INTEGER
25 The number of components of the vector x.
26
27 SA (input) DOUBLE PRECISION
28 The scalar a which is used to divide each component of x. SA
29 must be >= 0, or the subroutine will divide by zero.
30
31 SX (input/output) COMPLEX*16 array, dimension
32 (1+(N-1)*abs(INCX)) The n-element vector x.
33
34 INCX (input) INTEGER
35 The increment between successive values of the vector SX. > 0:
36 SX(1) = X(1) and SX(1+(i-1)*INCX) = x(i), 1< i<= n
37
38
39
40 LAPACK auxiliary routine (versionNo3v.e2m)ber 2008 ZDRSCL(1)