HP MLIB User's Guide Vol. 1 7th Ed.

158 HP MLIB User’s Guide
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.
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)
i∀ 0…n 1–[]
x
i
y
i
,∈
cs
s– c
x
i
y
i
•=