RECPP (3sciport)

Solves a partial products problem

SYNOPSIS

  Call RECPP( n, y, incy, x, incx )

FBARGUMENTS

  n               Integer.
                  The length of the linear recurrence

  y               Real vector.
                  The real output vector of length n.

  incy            Integer.
                  The increment between elements of vector y.

  x               Real vector.
                  The real input vector of length n.

  incx            Integer.
                  The increment between elements of vector x.

DESCRIPTION

  RECPP solves a partial products problem as follows:

          Y(1) = X(1)
          DO I = 2,N
             Y(I) = X(I)*Y(I-1)
          ENDDO

  For equations and other information, see Volume 3: UNICOS Math and
  Scientific Library Reference Manual SR-2081 7.0, Cray Research, Inc.