Generate Jacobi rotation | F_SGEN_JROT/F_DGEN_JROT/F_CGEN_JROT/F_ZGEN_JROT |
INTEGER*8 JROT
REAL*4S, X, Y, Z, C
SUBROUTINE F_SGEN_JROT (JROT, X, Y, Z, C, S)
INTEGER*8 JROT
REAL*8S, 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)
Chapter 2 Basic Vector Operations 179