| Symbol | Description | Uses |
| COSA | 5 |
| File | Line number | Procedure | Code |
| ./pkg/sphere/sphere.F | 267 | SHCROTATE |
REAL SINA, COSA, C, S |
| ./pkg/sphere/sphere.F | 276 | SHCROTATE |
COSA = 1.0 |
| ./pkg/sphere/sphere.F | 278 | SHCROTATE |
COSA = H(M+M) |
| ./pkg/sphere/sphere.F | 285 | SHCROTATE |
SHC(K+M) = COSA*C + SINA*S |
| ./pkg/sphere/sphere.F | 286 | SHCROTATE |
SHC(K-M) =-SINA*C + COSA*S |