slar2v.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	SLAR2V (N, X, Y, Z, INCX, C, S, INCC)
	SLAR2V

---

Function/Subroutine Documentation

subroutine SLAR2V	(	INTEGER	N,
		REAL, dimension( * )	X,
		REAL, dimension( * )	Y,
		REAL, dimension( * )	Z,
		INTEGER	INCX,
		REAL, dimension( * )	C,
		REAL, dimension( * )	S,
		INTEGER	INCC
	)

SLAR2V

Download SLAR2V + dependencies [TGZ] [ZIP] [TXT]

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) )
 

Parameters:

[in]	N	N is INTEGER The number of plane rotations to be applied.
[in,out]	X	X is REAL array, dimension (1+(N-1)*INCX) The vector x.
[in,out]	Y	Y is REAL array, dimension (1+(N-1)*INCX) The vector y.
[in,out]	Z	Z is REAL array, dimension (1+(N-1)*INCX) The vector z.
[in]	INCX	INCX is INTEGER The increment between elements of X, Y and Z. INCX > 0.
[in]	C	C is REAL array, dimension (1+(N-1)*INCC) The cosines of the plane rotations.
[in]	S	S is REAL array, dimension (1+(N-1)*INCC) The sines of the plane rotations.
[in]	INCC	INCC is INTEGER The increment between elements of C and S. INCC > 0.

Author:

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date:

November 2011

Definition at line 111 of file slar2v.f.

Here is the caller graph for this function: