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)
Chapter 2 Basic Vector Operations 159