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

Chapter 2 Basic Vector Operations 159
Apply plane rotation F_SAPPLY_GROT/F_DAPPLY_GROT/F_CAPPLY_GROT/F_ZAPPLY_GROT
INTEGER*8 INCX, INCY, N
REAL*4 C
COMPLEX*8 S, X( * ), Y( * )
SUBROUTINE F_CAPPLY_GROT (N, C, S, X, INCX, Y, INCY)
INTEGER*8 INCX, INCY, N
REAL*8 C
COMPLEX*16 S, X( * ), Y( * )
SUBROUTINE F_ZAPPLY_GROT (N, C, S, X, INCX, Y, INCY)