NAME

ZSCAL - ZSCAL scale a vector by a constant

SYNOPSIS

SUBROUTINE ZSCAL(N,ZA,ZX,INCX)

DOUBLE COMPLEX ZA INTEGER INCX,N DOUBLE COMPLEX ZX(*)

PURPOSE

ZSCAL scales a vector by a constant.

FURTHER DETAILS

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