Syntax
======

(DSCAL n a x incx)

Purpose
=======

X <- A*X

Arguments
=========

N (input) FIXNUM
Number of elements of X to be operated on.

X (input) (SIMPLE-ARRAY DOUBLE-FLOAT (*))
INCX (input) FIXNUM
Determines the position of the elements in X. Usually
INCX is 1. If INCX is bigger than 1 then the elements
considered in the operations are:

X(0),X(INCX), ... , X((N-1)*INCX)