| Symbol | Description | Uses |
| H | 44 |
| File | Line number | Procedure | Code |
| ./pkg/sphere/sphere.F | 263 | SHCROTATE |
REAL H(LMAXLMT*2+1) |
| ./pkg/sphere/sphere.F | 269 | SHCROTATE |
CALL FRSBASE(ANGLE,H,1,1+LMAX+LMAX) |
| ./pkg/sphere/sphere.F | 276 | SHCROTATE |
COSA = H(M+M) |
| ./pkg/sphere/sphere.F | 277 | SHCROTATE |
SINA = H(M+M+1) |
| ./pkg/sphere/sphere.F | 493 | FRSBASE |
SUBROUTINE FRSBASE(A,H,I,J) |
| ./pkg/sphere/sphere.F | 500 | FRSBASE |
REAL H(1) |
| ./pkg/sphere/sphere.F | 510 | FRSBASE |
H(I) = 1.0 |
| ./pkg/sphere/sphere.F | 513 | FRSBASE |
H(I+1) = COS(ARG) |
| ./pkg/sphere/sphere.F | 515 | FRSBASE |
H(I+2) = SIN(ARG) |
| ./pkg/sphere/sphere.F | 517 | FRSBASE |
T = H(I+1)+H(I+1) |
| ./pkg/sphere/sphere.F | 518 | FRSBASE |
H(I+3) = T*H(I+1) - 1.0 |
| ./pkg/sphere/sphere.F | 520 | FRSBASE |
H(I+4) = T*H(I+2) |
| ./pkg/sphere/sphere.F | 523 | FRSBASE |
H(L) = T*H(L-2)-H(L-4) |