NAME

slar2v - applie a vector of real plane rotations from both sides to a sequence of 2-by-2 real symmetric matrices, defined by the elements of the vectors x, y and z

SYNOPSIS

SUBROUTINE SLAR2V(
N, X, Y, Z, INCX, C, S, INCC )

void slar2v(long int n, float ∗sx, float ∗sy, float ∗sz,
long int incx, float ∗sc, float ∗s, long int incc)

INTEGER INCC, INCX, N

REAL C( ∗ ), S( ∗ ), X( ∗ ), Y( ∗ ), Z( ∗ )

PURPOSE

SLAR2V applies a vector of real plane rotations from both sides to a sequence of 2-by-2 real symmetric matrices, defined by the elements of the vectors x, y and z. For i = 1,2,...,n
 
   ( x(i)  z(i) ) := (  c(i)  s(i) ) ( x(i)  z(i) ) ( c(i) -s(i) )
   ( z(i)  y(i) )    ( -s(i)  c(i) ) ( z(i)  y(i) ) ( s(i)  c(i) )
 

ARGUMENTS

N       (input) INTEGER
The number of plane rotations to be applied.

X       (input/output) REAL array,
dimension (1+(N-1)∗INCX) The vector x.

Y       (input/output) REAL array,
dimension (1+(N-1)∗INCX) The vector y.

Z       (input/output) REAL array,
dimension (1+(N-1)∗INCX) The vector z.

INCX    (input) INTEGER
The increment between elements of X, Y and Z. INCX > 0.

C       (input) REAL array, dimension (1+(N-1)∗INCC)
The cosines of the plane rotations.

S       (input) REAL array, dimension (1+(N-1)∗INCC)
The sines of the plane rotations.

INCC    (input) INTEGER
The increment between elements of C and S. INCC > 0.

Sun, Inc.  —  Last change: 20 Sep 1996