3 * =========== DOCUMENTATION ===========
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
11 * SUBROUTINE DSCAL(N,DA,DX,INCX)
13 * .. Scalar Arguments ..
17 * .. Array Arguments ..
18 * DOUBLE PRECISION DX(*)
27 *> DSCAL scales a vector by a constant.
28 *> uses unrolled loops for increment equal to one.
34 *> \author Univ. of Tennessee
35 *> \author Univ. of California Berkeley
36 *> \author Univ. of Colorado Denver
39 *> \date November 2011
41 *> \ingroup double_blas_level1
43 *> \par Further Details:
44 * =====================
48 *> jack dongarra, linpack, 3/11/78.
49 *> modified 3/93 to return if incx .le. 0.
50 *> modified 12/3/93, array(1) declarations changed to array(*)
53 * =====================================================================
54 SUBROUTINE DSCAL(N,DA,DX,INCX)
56 * -- Reference BLAS level1 routine (version 3.4.0) --
57 * -- Reference BLAS is a software package provided by Univ. of Tennessee, --
58 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
61 * .. Scalar Arguments ..
65 * .. Array Arguments ..
66 DOUBLE PRECISION DX(*)
69 * =====================================================================
74 * .. Intrinsic Functions ..
77 IF (N.LE.0 .OR. INCX.LE.0) RETURN
80 * code for increment equal to 1
102 * code for increment not equal to 1