NAME

SROTM - Apply a Gentleman’s modified Given’s rotation constructed by SROTMG. 

SYNOPSIS

SUBROUTINE SROTM (N, X, INCY, Y, INCY, PARAM)

INTEGER INCX, INCY, N

REAL    PARAM(5), X( ∗ ), Y( ∗ )

PURPOSE

SROTM - Apply a Given’s rotation constructed by SROTMG. 
 

PARAMETERS

N      - INTEGER. 
On entry, N specifies the number of elements in the vector.  N must be at least one for the subroutine to have any visible effect.  Unchanged on exit.

X      - REAL array of DIMENSION at least
( 1 + ( n - 1 )∗abs( INCX ) ). Before entry, the incremented array X must contain the vector x. Unchanged on exit.

INCX   - INTEGER. 
On entry, INCX specifies the increment for the elements of X. INCX must not be zero. Unchanged on exit.

Y      - REAL array of DIMENSION at least
( 1 + ( m - 1 )∗abs( INCY ) ). On entry, the incremented array Y must contain the vector y. On exit, Y is overwritten by the updated vector y.

INCY   - INTEGER. 
On entry, INCY specifies the increment for the elements of Y. INCY must not be zero. Unchanged on exit.

PARAM  - REAL
On entry, the rotation values constructed by SROTMG.  Unchanged on exit.

SunSoft, Inc.  —  Last change: 27 Jun 1995