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

Chapter 2 Basic Vector Operations 179
Generate Jacobi rotation F_SGEN_JROT/F_DGEN_JROT/F_CGEN_JROT/F_ZGEN_JROT
INTEGER*8 JROT
REAL*4 S, X, Y, Z, C
SUBROUTINE F_SGEN_JROT (JROT, X, Y, Z, C, S)
INTEGER*8 JROT
REAL*8 S, X, Y, Z, C
SUBROUTINE F_DGEN_JROT (JROT, X, Y, Z, C, S)
INTEGER*8 JROT
REAL*4 X, Z, C
COMPLEX*8 S, Y
SUBROUTINE F_CGEN_JROT (JROT, X, Y, Z, C, S)
INTEGER*8 JROT
REAL*8 X, Z, C
COMPLEX*16 S, Y
SUBROUTINE F_ZGEN_JROT (JROT, X, Y, Z, C, S)