F_SAPPLY_GROT/F_DAPPLY_GROT/F_CAPPLY_GROT/F_ZAPPLY_GROT

Apply plane rotation

Name F_SAPPLY_GROT/F_DAPPLY_GROT/F_CAPPLY_GROT/F_ZAPPLY_GROT Apply plane rotation

Purpose F_xAPPLY_GROT applies a plane rotation to the vectors x and y. When the vectors x and y are real vectors, the scalars c and s are real scalars. When the vectors x and y are complex vectors, c is a real scalar and s is a complex scalar.

∀i ∈ [0…n – 1],

xi

=

 

c s

 

•

xi

 

 

yi

 

–s c

 

yi

 

 

 

 

 

 

 

 

 

 

 

If n is less then or equal to zero or if c is one and s is zero, F_xAPPLY_GROT returns immediately.

Usage

VECLIB:

 

 

INTEGER*4

INCX, INCY, N

 

REAL*4

C, S, X( * ), Y( * )

 

SUBROUTINE F_SAPPLY_GROT (N, C, S, X, INCX, Y, INCY)

 

INTEGER*4

INCX, INCY, N

 

REAL*8

C, S, X( * ), Y( * )

 

SUBROUTINE F_DAPPLY_GROT (N, C, S, X, INCX, Y, INCY)

 

INTEGER*4

INCX, INCY, N

 

REAL*4

C

 

COMPLEX*8

S, X( * ), Y( * )

 

SUBROUTINE F_CAPPLY_GROT (N, C, S, X, INCX, Y, INCY)

 

INTEGER*4

INCX, INCY, N

 

REAL*8

C

 

COMPLEX*16

S, X( * ), Y( * )

SUBROUTINE F_ZAPPLY_GROT (N, C, S, X, INCX, Y, INCY)

VECLIB8:

INTEGER*8

INCX, INCY, N

REAL*4

C, S, X( * ), Y( * )

SUBROUTINE F_SAPPLY_GROT (N, C, S, X, INCX, Y, INCY)

INTEGER*8

INCX, INCY, N

REAL*8

C, S, X( * ), Y( * )

SUBROUTINE F_DAPPLY_GROT (N, C, S, X, INCX, Y, INCY)

158HP MLIB User’s Guide