Previous: csrot Up: ../lapack-c.html Next: cstein

csrscl

 NAME
      CSRSCL - multiply an n-element complex vector x by the real
      scalar 1/a

 SYNOPSIS
      SUBROUTINE CSRSCL( N, SA, SX, INCX )

          INTEGER        INCX, N

          REAL           SA

          COMPLEX        SX( * )

 PURPOSE
      CSRSCL multiplies an n-element complex vector x by the real
      scalar 1/a.  This is done without overflow or underflow as
      long as the final result x/a does not overflow or underflow.

 ARGUMENTS
      N       (input) INTEGER
              The number of components of the vector x.

      SA      (input) REAL
              The scalar a which is used to divide each component
              of x.  SA must be >= 0, or the subroutine will
              divide by zero.

      SX      (input/output) COMPLEX array, dimension
              (1+(N-1)*abs(INCX)) The n-element vector x.

      INCX    (input) INTEGER
              The increment between successive values of the vec-
              tor SX.  > 0:  SX(1) = X(1) and SX(1+(i-1)*INCX) =
              x(i),     1< i<= n
              < 0:  SX(1) = X(n) and SX(1+(i-1)*INCX) = x(n-i+1),
              1< i<= n