Man Linux: Main Page and Category List

NAME

       CSCAL - scales a vector by a constant.

SYNOPSIS

       subroutine cscal(n,ca,cx,incx)

           c                          scales a vector by a constant.

           c                          jack dongarra, linpack, 3/11/78.

           c                          modified   to   correct   problem   with
                                      negative increment, 8/21/90.

           complex                    ca,cx(1)

           integer                    i,incx,ix,n

           if(n.le.0)return

           if(incx.eq.1)go            to 20

           c                          code for increment not equal to 1

           ix                         = 1

           if(incx.lt.0)ix            = (-n+1)*incx + 1

           do                         10 i = 1,n

           cx(ix)                     = ca*cx(ix)

           ix                         = ix + incx

           10                         continue

           return

           c                          code for increment equal to 1

           20                         do 30 i = 1,n

           cx(i)                      = ca*cx(i)

           30                         continue

           return

           end

PURPOSE