NAME

CSSCAL - CSSCAL scale a complex vector by a real constant

SYNOPSIS

SUBROUTINE CSSCAL(N,SA,CX,INCX)

REAL SA INTEGER INCX,N COMPLEX CX(*)

PURPOSE

CSSCAL scales a complex vector by a real constant.

FURTHER DETAILS

jack dongarra, linpack, 3/11/78.
modified 3/93 to return if incx .le. 0.
modified 12/3/93, array(1) declarations changed to array(*)