SUBROUTINE SSCAL(N,SA,SX,INCX)
 
scales a real vector SX by multiplying it by a real number SA.
 
N      Input, INTEGER N, number of elements in vector.
 
SA     Input, REAL SA, scaling factor.
 
SX     Input/output, REAL SX(N), vector to be scaled.
 
INCX   Input, INTEGER INCX, increment between elements of SX.  For 
       contiguous elements, INCX = 1.